会用vb6.0的来

显示全部楼层 · 2006-9-17 12:41:09

Option ExplicitDim rn(4) As StringDim sTime As BytePrivate Sub Command1_Click()sTime = Rnd * 4If sTime = 0 ThenText1 = rn(0)ElseIf sTime = 1 ThenText1 = rn(1)ElseIf sTime = 2 ThenText1 = rn(2)ElseIf sTime = 3 ThenText1 = rn(3)End IfEnd SubPrivate Sub Form_Load()Randomizern(0) = "a"rn(1) = "b"rn(2) = "ab"rn(3) = "0"End Sub

千问 · 2006-9-17 12:41:09

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

千问 · 2006-9-17 12:41:09

往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往往

千问 · 2006-9-17 12:41:09

你可以编成数组，然后随机选数，对应数组选出字母。