UC知道求VB代码，根本没看懂题啊~~~
来源：百度知道 编辑：UC知道 时间：2024/06/14 15:39:24
编写一段程序，通过窗体的单击事件执行，显示使用MsgBox对话框。其中分别使用MsgBox函数中对话框类型数值为：16、33、53、69、306、579（使用InputBox输入这些数，然后作为MsgBox中的类型对话框参数）。
Private Sub Form_Click()
Dim a As Integer
Do
a = InputBox("请输入一个数，输入-1结束")
If a = -1 Then Exit Do
MsgBox a
Loop
End Sub
这样就行了。
Private Sub Command1_Click()
MsgBox "提示", InputBox("请输入类型", "请输入")
End Sub