当前位置: 高中信息技术 / 综合题
  • 1. (2018高三上·宁波月考) 小李利用所学的 VB 知识,编写了一个简单计算器:在文本框 Text1 中输入一个加减算式(只包含数字和“ +”、“ -”符号,以“ =”结束),点击“计算”按钮 Command1,计算结果在标签 Label1 上显示。程序运行界面如下图所示:

    1. (1) 要实现程序运行时,单击文本框 Text1 即可将文本 框 清 空 , 则 应 在 (A 、Command1_Click/B 、 Form_Load/C 、 Text1_Click)事件处理过程中添加语句 Text1.text=””。
    2. (2) 实现上述功能的 VB 程序如下,请在划线处填入合适的代码

      Private Sub Command1_Click

      Dim s As String, ch As String, sum As Integer

      Dim fh As Integer

      s = Text1.Text: fh = 1: p = 0: sum=0

      For i = 1 To Len(s)

      ch = Mid(s, i, 1)

      If ch >= "0" And ch <= "9" Then

      p =

      Else

      sum =

      p = 0

      If ch = "-" Then

      fh = -1

      ElseIf ch = "+" Then

      fh = 1

      End If

      End If

      Next i

      Label1.Caption = Str(sum)

      End Sub

    3. (3) 若文本框 Text1 中输入的内容为“ 12*10=”(不包括双引号),单击“计算”按钮后,标签Label1 上将显示: .(A 、 120 / B 、 22 / C 、 0 /D 、程序出错无法显示)

微信扫码预览、分享更方便