题库 高中信息

题干

小李利用所学的 VB 知识,编写了一个简单计算器:在文本框 Text1 中输入一个加减算式(只包含数字和“ +”、“ -”符号,以“ =”结束),点击“计算”按钮 Command1,计算结果在标签 Label1 上显示。程序运行界面如下图所示:

(1)要实现程序运行时,单击文本框 Text1 即可将文本 框 清 空 , 则 应 在 _______(A 、Command1_Click/B、 Form_Load/C、 Text1_Click)事件处理过程中添加语句 Text1.text=”” 。
(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)若文本框 Text1 中输入的内容为“ 12*10=”(不包括双引号),单击“计算”按钮后,标签Label1 上将显示:________ .(A、 120 / B、 22 / C、 0 /D、程序出错无法显示)
上一题 下一题 0.99难度 填空题 更新时间:2019-03-28 07:24:01

答案(点此获取答案解析)

同类题1

计算机在存储数字字符时,1个字符占1个字节(8位),现在有如下算法可以对数字字符的存储进行压缩:以每2个数字字符为一组,将其组成一个两位的十六进制数(如输入的“41”组成十六进制数41H),再转换为对应的ASCII字符进行存储。(注意:ASCII的最大值为127D,所以2个数字字符为一组时,第1个字符必须小于8,否则不合法)
例如:
输入
输出
414243
ABC
758927
不合法
 
小波用Visual Basic 6. 0软件编写了一个压缩程序,功能如下:在文本框Text1中输入需压缩数据(偶数个字符),单击“压缩”按钮,程序对压缩数据依次进行压缩处理,压缩数据显示在文本框Text2中。程序运行界面如图所示:

(1)结合程序代码,命令按钮“压缩”的对象名是_________________
(2)为实现上述功能,请在程序划线处填入合适的代码。
Private Sub cm1_Click()
Dim s1 As String,s2 As String,c1 As String,c2 As String
Dim i As Integer,k As Integer
s1 = Text1. Text
For i = 1 To Len(s1) Step 2

c1 = Mid(s1,i,1)

______________

If c1 >= “8” Then

s2 = “不合法”
Exit For  ‘跳出For循环

Else

k = _____________
s2 = s2 + Chr(k) ‘ Chr函数的作用,将ASCII码转换为字符,例Chr(65) = “A”

End If

Next i
Text2. Text = s2
End Sub
(3)若在文本框Text1中输入“61A2”,单击“压缩”按钮后,变量i的值为_________(单选,填字母:
A.3 /B.4 /C.5 /D.程序错误)。