一个VB程序问题

单击一个按钮，在Text1中随机显示一些字母和符号

追问：如果说我想在里面显示10个怎么办

答案：呵呵,这个简单
Private Sub Command1_Click()
  Dim AscNumber As Long
  Dim i As Integer
   Text1.Text = ""  '清空textbox
    For i = 1 To 10 '这个10改成你想要的个数
      Randomize     '初始化随机数发生器
      AscNumber = Int((126 - 32 + 1) * Rnd + 32) '随机获取字符的asc码 (字符和数字位于 32~126区间)
      Text1 = Text1 & Chr(AscNumber) '将asc码用chr函数转换成字符
    Next i
End Sub

将以上代码复制粘贴就ok了
Private Sub Command1_Click()
Dim ZF As Long
Randomize
ZF = Int((126 - 32 + 1) * Rnd + 32)
Text1 = Chr(ZF)
End Sub
在单击按钮事件里写上
Text1文本的内容=“....”

上一个：VB代码（网页）？
下一个：vb编程，筛选