VB编程新手问题

来源：百度知道 编辑：UC知道 时间：2024/05/09 05:58:12
我是一个新手，用的是VB6，我想设计一个程序玩玩，就是那种恶搞的，一个提示框里边有个确定，确定上面有字，点一下确定，字就变了，那种的，哪位高手大概的讲一下，谢谢了

随便画一个按钮叫Command1，代码：
Option Explicit

Private q(), x

Private Sub Command1_Click()
Command1.Caption = q(Int(x * Rnd))
End Sub

Private Sub Form_Load()
q = Array("你好", "你今年多大", "喂", "你几岁了") '可以有很多
x = UBound(q) + 1
Randomize
Command1_Click
End Sub

Private Sub Form_Load()
Dim name As String, age As String, address As String, msg As String

For i = 0 To 3
name = InputBox("你叫什么名字?", "温馨询问")
age = InputBox("芳龄几何?", "温馨询问")
address = InputBox("家住何方?", "温馨询问")
MsgBox "对不起哦,我年级大了点,刚才说的我一个也不记得,能不能成说一下", vbOKCancel, "Sorry!"
Next
MsgBox "果然是一个有耐心的人,来,来,来,我现在把我的毕生所学全部传授给你!", vbOKOnly, "哈哈!"
End Sub

Private Sub Command1_Click()
MsgBox "我严重告诉你：", 48, "