中科新闻网姆姆啪集百万潮流欺母:VB程序帮忙看了改一下，拜托了．
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 01:26:01
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i As Integer
Print "转换前数据为：";
For i = 1 To 10
a(i) = Val(InputBox("请输入数据:"))
Print a(i);
Next i
End Sub
Private Sub Command2_Click()
Print
Dim i As Integer, t As Integer
For i = 1 To 5
t = a(i)
a(i) = a(10 - i + 1)
a(10 - i + 1) = t
Next i
Print "转换后数据为：";
For i = 1 To 10
Print a(i);
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i As Integer
Print "转换前数据为：";
For i = 1 To 10
a(i) = Val(InputBox("请输入数据:"))
Print a(i);
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, t As Integer
For i = 1 To 5
t = a(i)
a(i) = a(10 - i + 1)
a(10 - i + 1) = t
Next i
Print "转换后数据为：";
For i = 1 To 10
Print a(i);
Next i
End Sub
其实你的功能已经实现了.只是在Command1_Click()
下又定义了,Dim a(1 To 10) As Integer而没有用到通用里的变量
所以存在问题,把Command1_Click() 下Dim a(1 To 10) As Integer去掉
就是你想要的东西吧.
谢谢啊~