会用vb6.0的来

来源：百度知道 编辑：UC知道 时间：2024/05/25 02:37:13
使电脑在a b ab o这几个字母间随机选择一个显示在text1里，在vb中怎么声明
我的意思是，比如在vb中我放一个按钮，当我按下后，在text1中会随机显示a b ab o当中的一个

上面的也太长了吧

Private Sub Form_Load()
Randomize Timer
Select Case Int(Rnd * 4)
Case 0
Text1 = "a"
Case 1
Text1 = "ab"
Case 2
Text1 = "b"
Case 3
Text1 = "o"
End Select
End Sub

Option Explicit
Dim rn(4) As String
Dim sTime As Byte

Private Sub Command1_Click()
sTime = Rnd * 4
If sTime = 0 Then
Text1 = rn(0)
ElseIf sTime = 1 Then
Text1 = rn(1)
ElseIf sTime = 2 Then
Text1 = rn(2)
ElseIf sTime = 3 Then
Text1 = rn(3)
End If
End Sub

Private Sub Form_Load()
Randomize
rn(0) = "a"
rn(1) = "b"
rn(2) = "ab"
rn(3) = "0"
End Sub

s1="ab"
i = int(Rnd * 3+1)
j= int(Rnd * 2+1)
if i=3 then
text1="o"
else
text1=str(s1,i,j)
end if

往往往往往往往往往