VB编程问题（本人业余菜鸟）追100！

来源：百度知道 编辑：UC知道 时间：2024/05/19 09:15:33
如果要做一个程序，打开之后弹出个窗体，有一个按钮，有文字，点那个按钮又弹出新窗体，新窗体只是有不同的文字，其他一样。应该怎么做，要详细。
做好了的程序可以在其他没安VB的电脑上运行么？
上学去了，
就是类似这样里那个东西，
http://www.qzone.cc/zhuanti/FoolDay/
我要一个程序。直接运行的。

Private Sub Form_Load()
Show
Randomize
detail = "你好,sorry,哈哈" '在双引号里面可以继续添加内容，用半角的逗号分隔
a = Split(detail, ",")
Do
MsgBox (a(Int(Rnd * UBound(a))))
Loop
End Sub

把代码复制进去以后，生成exe文件就可以用了

我来给你做。Hi我吧

Private Sub Form_Load()
a1 = MsgBox("1", , "愚人节")
If a1 = vbOK Then a2 = MsgBox("2", , "愚人节")
If a1 = vbOK Then a3 = MsgBox("3", , "愚人节")
If a1 = vbOK Then a4 = MsgBox("4", , "愚人节")
If a1 = vbOK Then a5 = MsgBox("5", , "愚人节")
If a1 = vbOK Then a6 = MsgBox("6", , "愚人节")
If a1 = vbOK Then a7 = MsgBox("7", , "愚人节")
If a1 = vbOK Then a8 = MsgBox("8", , "愚人节")
If a1 = vbOK Then a9 = MsgBox("9", , "愚人节")
If a1 = vbOK Then a1 = MsgBox("1", , "愚人节")

End Sub<