VB编程问题(本人业余菜鸟)追100!

发布网友发布时间：2024-09-27 13:24

共4个回答

热心网友时间：2024-11-03 22:27

t=Array("你再点","你难道非点不可吗","不要再点啦","再点就死机了!","后面还可以再加很多")
For i=0 To UBound(t)
MsgBox t(i)
Next

'用记事本将以上内容存为 VBS 文件比如 01.vbs 那它就可以直接运行了

热心网友时间：2024-11-03 22:28

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

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

热心网友时间：2024-11-03 22:28

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
自己再加点咯

热心网友时间：2024-11-03 22:29

我来给你做。Hi我吧