vb试题求答

来源：百度知道 编辑：UC知道 时间：2024/06/06 04:50:45
编一个程序，生成10个两位随机数，存入到一维数组，再按反序存放后输出。程序的设计界面如图所示，程序运行时单击【生成一维数组】按钮将产生一个由10个100以内的随机整数组成的数组，并显示在第一个文本框中。单击【反序存放】按钮将把数组中的元素反序存放并显示在第二个文本框中，

我得qq 3874000，加我qq给小弟解答一下更是感激

Dim a(9)
Private Sub Command1_Click()
Text1.Text = ""
For i = 0 To 9
a(i) = Int(89 * Rnd + 10)
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub

Private Sub Command2_Click()
Text2.Text = ""
For i = 0 To 5
a(i) = a(9 - i)
Next i
For i = 0 To 9
Text2.Text = Text2.Text + Str(a(i))
Next i
End Sub
Private Sub Form_Load()
Command1.Caption = "生成一维数组"
Command2.Caption = "反序存放"
End Sub

要在窗体上画两个COMMAND 和两个TEXT 就OK了.

调试通过!

Dim a(9)
Private Sub Command1_Click()
Text1 = ""
For i = 0 To 9
Randomize
a(i) = Int(99 * Rnd)
Text1 = Text1 + Str(a(i))
Next i
End Sub

Private Sub Command2_Click()
Text2 = ""
For j = 9 To 0 Step -1
Text2 = Text2 + Str(a(j))
Next j
End Sub

Private Sub Form_Load()
Text1 = ""
Text