Question

关于vb编程的一个问题，需要用到循环语句编写，希望高手帮忙解答，问题如下

单击command1命令按钮时，反复通过33~126之间的随机数生成一个ASCII字符，将其连接到文本框Text2中，直到生成的字符已在Text2中时为止。

Answer 1

Private Sub Command1_Click()
Dim i As Integer, s As String
Randomize
i = 33 + Int(Rnd() * 94)
Do Until InStr(1, s, Chr(i)) > 0
s = s & Chr(i)
i = 33 + Int(Rnd() * 94)
Loop
Text2.Text = s
End Sub

Answer 2

Dim i%, t$
Text2.Text = Chr(Int(Rnd * 94) + 33)
Randomize
t = Chr(Int(Rnd * 94) + 33)
Do While InStr(Text2.Text, t) = 0
Text2.Text = Text2.Text & t
Randomize
t = Chr(Int(Rnd * 94) + 33)
Loop