Option Explicit
Private Sub Command1_Click() Dim a(2) As String Dim k As Integer For k = 0 To 2 a(k) = Str(Rnd() * 2) Text2 = Text1 & Str(a(k)) Next k End Sub
产生100个1000以内随机数并在Text中显示 Private Sub Form_Load() Dim a(100) As Integer Randomize Timer For k = 1 To 100 a(k) = Int(Rnd() * 1000) Text1 = Text1 & Str(a(k)) Next k End Sub
Private Sub Command1_Click() Dim a(10) As Integer
Dim i As Integer
For i = 1 To 10
Print Int((10 - 0 + 1) * Rnd + 0) Next i
End Sub
Private Sub Command2_Click() Dim a(2) As Integer
Dim i As Integer
For i = 1 To 3
Print Int((3) * Rnd) Next i
End Sub
正确例题（VB输出2进制1位数随机数程序） Private Sub Command3_Click() Dim a(2) As String Dim k As Integer a(0) = "一" a(1) = "十" Text2 = a(Rnd() * 2)
End Sub
正确例题（VB输出2进制2位数随机数程序） Private Sub Command2_Click() Dim a(3) As String a(0) = "凹" a(1) = "平" a(2) = "凸"
Text2 = a(Rnd() * 3) + a(Rnd() * 3)
End Sub
正确例题（VB输出2进制2位数随机数程序） Private Sub Command1_Click() Dim a(3) As String a(0) = "凹" a(1) = "平" a(2) = "凸"
Text1 = a(Rnd() * 3) + a(Rnd() * 3)+ a(Rnd() * 3) + a(Rnd() * 3)
End Sub
正确例题（VB输出2进制2位数随机数程序） Private Sub Command1_Click() Dim a(3) As String a(0) = "凹" a(1) = "平" a(2) = "凸"
Text1 = a(Rnd() * 3) + a(Rnd() * 3)+ a(Rnd() * 3) + a(Rnd() * 3)+ a(Rnd() * 3)+ a(Rnd() * 3) + a(Rnd() * 3)
End Sub
正确例题（VB输出2进制2位数随机数程序） Private Sub Command1_Click() Dim a(2) As String a(0) = "凹" a(1) = "凸" Text2 = a(2 * Rnd) + a(2 * Rnd)
End Sub
正确例题（VB输出3进制7位数随机数程序） Private Sub Command2_Click() Dim a(3) As String a(0) = "凹" a(1) = "平" a(2) = "凸"
Text3 = a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3)
End Sub
正确例题（VB输出2进制2位数随机数程序） Private Sub Command1_Click() Dim a(0, 2) As String a(0, 0) = "凹" a(0, 1) = "凸" Text2 = a(0 * Rnd, 2 * Rnd)
End Sub
Option Explicit
正确例题（VB输出2进制7位数随机字符串程序）
Private Sub Command1_Click() Dim a(2) As String a(0) = "0" a(1) = "1"
Text1 = a(Rnd() * 2) + a(Rnd() * 2) + a(Rnd() * 2) + a(Rnd() * 2) + a(Rnd() * 2) + a(Rnd() * 2) + a(Rnd() * 2)
End Sub
正确例题（VB输出3进制7位数随机字符串程序） Private Sub Command2_Click() Dim a(3) As String a(0) = "0" a(1) = "1" a(2) = "2"
Text2 = a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3) + a(Rnd() * 3)
End Sub
正确例题（VB输出4进制7位数随机字符串程序） Private Sub Command3_Click() Dim a(4) As String a(0) = "0" a(1) = "1" a(2) = "2" a(3) = "3"
Text3 = a(Rnd() * 4) + a(Rnd() * 4) + a(Rnd() * 4) + a(Rnd() * 4) + a(Rnd() * 4) + a(Rnd() * 4) + a(Rnd() * 4)
End Sub
正确例题（VB输出5进制7位数随机字符串程序） Private Sub Command4_Click() Dim a(5) As String a(0) = "0" a(1) = "1" a(2) = "2" a(3) = "3" a(4) = "4" Text4 = a(Rnd() * 5) + a(Rnd() * 5) + a(Rnd() * 5) + a(Rnd() * 5) + a(Rnd() * 5) + a(Rnd() * 5) + a(Rnd() * 5)
End Sub
正确例题 Private Sub Command1_Click() Dim i, j, k As Integer For i = 1 To 2 For j = 1 To 2 Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) Next Next End Sub
正确例题 Private Sub Command1_Click() Dim i, j, k As Integer For i = 1 To 2 For j = 1 To 2 Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1) Next Next End Sub
正确例题 Private Sub Command1_Click() Dim i, j, k As Integer For i = 1 To 2 For j = 1 To 2 Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, Rnd() * 1)& vbCrLf & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1) Next Next End Sub
