描写弹钢琴的优美句子:VB高手请进!!!!!!!!!!!!!!!!!!!!!!!
快快!!!!!!!!!!!!!!有追加的!!!!!!!!!!!!!
神啊,开启我封尘的记忆!(好久不写,自己修改一下)
VB6的版本是:
Private Sub Command1_Click()
On Error Resume Next
Dim mArray(1 to 20) As Double
Dim tmpString As String
Dim n As Integer
Dim Success As Boolean
Dim t as Double
For n = 1 To 20
Do
tmpString = InputBox("请输入第" & n & "个数字","输入提示")
Success = IsNumeric(tmpString)
Loop Until Success = True
mArray(n) = Val(tmpString)
Next
Text1.Text = "---------- Input ---------" & vbNewline
For n = 1 To 20
Text1.Text = Text1.Text & CStr(mArray(n)) & vbNewline
Next
Text1.Text = Text1.Text & vbNewline & vbNewline
For n = 1 To 10
t = mArray(n)
mArray(n) = mArray(21-n)
mArray(21-n) = t
Next
Text1.Text = "---------- Output ---------" & vbNewline
For n = 1 To 20
Text1.Text = Text1.Text & CStr(mArray(n)) & vbNewline
Next
End Sub
ps:这里输入用InputBox语句,输出用TextBox控件
ps:你是初学者吗?
首先输出原来的数组,然后:
如果数组是a(1 to 20)
dim b,c
for r=1 to 10
b=a(r)
c=a(20-r+1)
a(r)=c
a(20-r+1)=b
next r
再输出新数组。OK
用数组解决,太容易了。