
《算法与程序设计》是填空题!
方志宏暑假期间做家教时,为了调节小朋友冬冬学数学积极性,设计了一个让冬冬在电脑上自动练习口算的程序(如图)。程序的具体要求是:由计算机随机产生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个回答
展开全部
横线2里面填
cc = x
(1里面没东西要填。)
用vb测试成功
cc = x
(1里面没东西要填。)
用vb测试成功

2025-08-05 广告
Paykka 的数字化流程涵盖了开户、收款、提现等全流程,从资料提交、账户开通到各种资金操作,都能在线上完成,无需用户进行线下干预,简化了操作步骤,提升了整体的操作效率。...
点击进入详情页
本回答由paykka提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询