|
 要求让计算机随机出10题两位数加法练习，运行时的要求如图例组所示。
单击开始练习按钮，设置一个执行10次的for-next循环，调用随机函数rnd
产生A-B之间随机整数的式子为：
Int(Rnd() *(B-A+1)+ A)
Label3.Caption = Int(Rnd() * 90 + 10)
Label4.Caption = Int(Rnd() * 90 + 10)
x = Val(Label3.Caption +
Val(Label4.Caption)
将标签控件接受的字符转换成数值后计算值赋给X
|
在输入语句InputBox("你的答案是")的对话框里，请输入你的答案并讲答案赋给msg，
If Val(msg) = x Then n = n + 1如果做对就累计正确题数，依次做10题
|
|
|
练习结束，由输出语句MsgBox所示的对话框，输出你本次练习的成绩，以每题10分计算得分，&为字符连接运算符，用vbCrLf换行输出画面如图。其中用Select
Case- End Select语句作为多分支选择，这样可以避免if-else-endif的多重嵌套。
|
|
制作应用程序界面
适当调整窗体Form1的大小，然后在上面建立四个标签框控件Lable1-Lable4，两个命令按钮Command1和Command2，一个线条line1，按图调整各控件在窗体中的位置。
设置控件属性
a)
Label1和
Label2的Caption属性为：加数1和加数2
b)
Label3和Label4的Caption属性为：空
c)
Label3和Label4的BackColor背景设置成白色
d)
Label3和Label4的BorderStyle的边框样式设置成1-Fixed
e)
Command1和Command2的Caption属性为：开始练习和结束
编写程序代码
a)
代码如下：
Private Sub Command1_Click()
Randomize '产生随机数列
n = 0: m = 0
'赋初值
For I= 1 To 10
'设置一个执行10次的for-next循环，调用随机函数rnd
Label3.Caption = Int(Rnd() *
90 + 10) '产生2位随机整数加数1
Label4.Caption = Int(Rnd() *
90 + 10) '产生2位随机整数加数2
x = Val(Label3.Caption) +
Val(Label4.Caption) '计算机给出标准答案
Msg = InputBox("你的答案是") '将输入你的答案赋给Msg
If Val(msg) = x Then n = n +
1 '如果做对就累计正确题数
Next I
'依次做10题
m = 10 * n
'以每题10分计算得分
Msg = "你在本次练习中"
& vbCrLf & "正确"
& n & "题"
& vbCrLf & "成绩为"
& m & "分"
& vbCrLf
Select Case m >= 0 And m
<= 100
Case m>=90
Msg = msg & "优"
& vbCrLf & "祝贺你!"
Case
m>=80
Msg = msg & "良"
& vbCrLf & "加把劲!"
Case
m>=60
Msg = msg & "中"
& vbCrLf & "努力啊!"
Case
Else
Msg = msg & "差"
& vbCrLf & "请继续练习"
End Select
MsgBox Msg
'输出你本次练习的成绩以及相应的评语
End Sub
|
