组卷题库 > 高中信息技术试卷库

浙江省杭州市2016年信息技术高考模拟卷六

作者UID:6286416
日期: 2024-11-14
高考模拟
选择题
非选择题
【加试题】小张设计了一个“加减运算测试”程序。程序启动时运行界面如右图所示。在文本框Text1中输人计算结果后单击“下一题”按钮Command1,如计算结果正确,则得分加10分,否则不加分,同时显示下一试题内容并计数,直至完成10题测试。实现上述功能的VB程序如下,但加下划线代码有错,请改正。

   Dim n As Integer    '为试题计数器
   Dim s As Integer    's为测试得分
   Dim a As Integer, b As Integer  'a,b 为运箅数
   Dim c As String 'c为运算符:"+ "表示加运算,"一"表示减运算
   Private Sub Command1Click()
   If c ="+"  Then
      If a + b = Val(Text1.Text) Then
         s = s + 10
      End If
   Else
     If c ="-"  Then       ①                
         s = s + 10
      End If
   End If
   Label2.Caption = "得分:" + Str(s)
   DispTest
   End Sub
   Private Sub FormLoad()
  Randomize
  n = 0
  s = 0
  DispTest
  End Sub
  Private Sub DispTest()
 n = n + 10       ②       
  If n < 11 Then
    Label1.Caption = "试题" + Str(n)    'a,b为运算数,且要求a不小于b
    a = Int(Rnd() * 100)
    b = Int(Rnd() * 100)
      If Rnd() > 0.5 Then c = "+" Else c = "-"
      Label3.Caption = Str(a) + c + Str(b) + "="
     Text1.Text = ""
Else
   Command1.Caption = "完成测试"
End If
End Sub
①处正确的代码是
②处正确的代码是
试卷列表
教育网站链接