vb专家进来答题

来源：百度知道 编辑：UC知道 时间：2024/05/09 04:29:07
有到题帮忙做一下.... 是有A1到A10,B1到B10,C1到C10,D1到D10,E1到E10.50个字符,共五组,然后单击command后A.B.C.D.E中每一组随机抽取其中的一个,输出到TEXT1中,就可以啦...

Private Sub Form_click()
Dim a(1 To 10) As String, b(1 To 10) As String
For i = 1 To 10
a(i) = i
b(i) = i & "b"
Next
Randomize
Text1.Text = a(Int(Rnd * (10) + 1)) & " " & b(Int(Rnd * (10) + 1))
End Sub

5组 也是类似。自己改吧

Private Sub Command1_Click()
Text1.Text = Chr(65) & Trim(Str(Int(1 + Rnd * 9)))
For i = 2 To 5
Text1.Text = Text1.Text + "," + Chr(64 + i) & Trim(Str(Int(1 + Rnd * 10)))
Next i
End Sub

数组里面抽取随机元素。。

我不是专家。路过。