《算法与程序设计》是填空题!
方志宏暑假期间做家教时,为了调节小朋友冬冬学数学积极性,设计了一个让冬冬在电脑上自动练习口算的程序(如图)。程序的具体要求是:由计算机随机产生10道两位数加法题作为输入框...
方志宏暑假期间做家教时,为了调节小朋友冬冬学数学积极性,设计了一个让冬冬在电脑上自动练习口算的程序(如图)。程序的具体要求是:由计算机随机产生10道两位数加法题作为输入框的字符显示输入框上面,然后冬冬在输入框上输入答案,按“确定”按钮或回车键,显示一题回答一题,每回答一题下面的提示信息栏及得分栏上都会显示相应的信息。为了实现这一目标,程序中划线处应填入的合适语句是: _________(1)_________。
Private Sub Command1_Click()
Dim p, aa, bb, cc, x As Integer
Dim s As String
Randomize
p = 0
For i = 1 To 10
aa = 10 + Int(Rnd * 90)
bb = 10 + Int(Rnd * 90)
s = InputBox(Str(aa) + "+" + Str(bb) + "=?") ‘输入函数,等待接收用户输入
cc = Val(s)
x = aa + bb
If _________(2)_________Then
p = p + 10: Text1.Text = "棒极了!加10分"
Else
Text1.Text = "请继续努力!"
End If
Text2.Text = "您当前得分是:" + Str(p)
Next
End Sub 展开
Private Sub Command1_Click()
Dim p, aa, bb, cc, x As Integer
Dim s As String
Randomize
p = 0
For i = 1 To 10
aa = 10 + Int(Rnd * 90)
bb = 10 + Int(Rnd * 90)
s = InputBox(Str(aa) + "+" + Str(bb) + "=?") ‘输入函数,等待接收用户输入
cc = Val(s)
x = aa + bb
If _________(2)_________Then
p = p + 10: Text1.Text = "棒极了!加10分"
Else
Text1.Text = "请继续努力!"
End If
Text2.Text = "您当前得分是:" + Str(p)
Next
End Sub 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询