level 15
MsgBox "消息内容"
就这么简单(其实就这么用也太简单了,还没给消息框加图标和换标题呢)
2020年04月24日 23点04分
3
level 15
回复4楼:
你这不止是不会用MsgBox的问题啊……简直是错误百出了(可以说全部代码都写错了)
我给你写个完整的参考答案吧:
Dim a As Integer, b As Integer, c As Integer
'出题的两个数和答案应该定义在最前面,而且类型用Integer就够了
Private Sub Command1_Click() '“出题”按钮
Dim t As Integer
'这个t是用来交换两个数的变量,因为如果是减法,需要保证被减数大于等于减数
a = Int(Rnd * 10)
b = Int(Rnd * 10)
If Option1.Value Then '加法
c = a + b
Else '减法
If a < b Then
t = a
a = b
b = t
End If
c = a - b
End If
Text1.Text = a
Text2.Text = b
Text3.Text = ""
Text3.SetFocus
End Sub
Private Sub Option1_Click() '“加法”单选按钮
Label1.Caption = "+" '显示符号用的是标签啊,看清楚好么
End Sub
Private Sub Option2_Click() '“减法”单选按钮
Label1.Caption = "-"
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer) '这才是答题应该用的事件
Dim x As Integer
If KeyAscii = 13 Then '如果按了回车键,则执行以下代码
x = Val(Text3.Text)
If c = x Then '用If的块语句形式时,Then后面要换行的
MsgBox "恭喜你,答对了!" '我没让你后面写多余的东西吧?
Else
MsgBox "Sorry,请再试一次!"
Text3.Text = "" '清空文本框的正确写法是一对双引号,不是什么Clear
Text3.SetFocus '另外,不要用And把两条语句连在一行,And不是这么用的
End If
End If
End Sub
2020年04月25日 00点04分
5
吧务
level 13
消息对话框 —— MsgBox("消息内容" , x + y , "系统提示")
' x 的值代表有什么样的按钮 -------------
0 有【确定】按钮
1 有【确定】【取消】按钮
2 有【终止】【重试】【忽略】按钮
3 有【是】【否】【取消】按钮
4 有【是】【否】按钮
5 有【重试】【取消】按钮
' y 的值所代表用什么样的图标 -----------
16 关键信息图标
32 询问信息图标
48 警告信息图标
64 信息图标
' 点击按钮后 MsgBox() 函数返回的值
1 【确定】按钮
2 【取消】按钮
3 【终止】按钮
4 【重试】按钮
5 【忽略】按钮
6 【是】按钮
7 【否】按钮
例如:出现【是】【否】按钮的询问消息对话框。
Dim i As Integer
……
i = MsgBox("这些结果正确吗?", 4 + 32, "系统提示")
If i = 6 Then
' 点击了【是】按钮
' ……
Else
' 点击了【否】按钮
' ……
End If
注意:MsgBox 也可以是语句,
语句无需【整型变量 = 】和【小括号】 —— 例如:
MsgBox "所有结果全部计算完毕!" , 0 + 64 , "系统提示"
2020年04月25日 03点04分
7
补充:x+y的部分还可以加更多的数字,比如默认消息框中的焦点位于第一个按钮,加256则是焦点位于第二个按钮,加512则是焦点位于第三个按钮
2020年04月25日 04点04分