题库 高中信息

题干

简易加法器:小王用VB编写了一个简易加法器,其功能如下:在文本框Text1中输入数字,中间用“,”隔开,单击“计算”命令按钮后,将这几个数字的和输出在标签Label1中。运行界面如图所示,VB程序代码如下,请回答以下问题。

(1)Cmd1对象属于________类。(单选,填字母:
A.Label /B.TextBox /C.CommandButton)。
(2)请在划线处填入合适代码。
Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, ans As Integer
Dim chAs String, s As String
s = Text1.Text
ans = 0
j = 1
For i = 1 To Len(s)
_______________
If ch = "," Then
ans = ____________
j = i + 1
End If
Next i
Label1.Caption = "计算结果是:" +Str(ans)
End Sub
(3)运行该程序,在文本框中输入“21,5,3”(不包含双引号),则计算结果是_______。
上一题 下一题 0.99难度 填空题 更新时间:2019-05-28 12:10:13

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

同类题1

   (加试题)创建VB程序,统计英语短文中字母出现的次数,并输出出现次数最多的字母和未出现的字母。要求字母不区分大小写,均表示为大写字母。程序运程界面如图所示。


算法如下:

(1)获取输入的英语短文,存入变量s

(2)统计字母出现次数

    依次取出s中的每个字符

    如果是大写字母,计算其在字母表中的位置n,并计数

    如果是小写字母,计算其在字母表中的位置n,并计数

(用数组a存放26个字母出现的次数,a(1)存放“A”出现的次数,a(2)存储“B”出现的次数,……,a(26)存储“Z”出现的次数。)

  (3)找出最大出现次数   

  (4)找出出现次数最多和未出现过的字母并输出   

VB程序如下,在其中①②③划线处填定相应代码,完善程序。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, max As Integer
Dim a(1 To 26) As Integer '数组a存放26个字母出现的次数。
Dim s As String, c As String '变量s存放输入的短文
Dim s1 As String, s2 As String   '变量s1、s2分别存放出现次数最高和未出现的字母组成的字符串
s = Text1.Text
'统计字母出现次数
For i = 1 To Len(s)  
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then
n = Asc(c) - Asc("A") + 1
a(n) =1____________
ElseIf c >= "a" And c <= "z" Then
n = Asc(c) - 32 - Asc("A") + 1
a(n) = a(n) + 1
End If
Next i
'找出最大出现次数
max = a(1)   
For i = 1 To 26
If2____________ Then
max = a(i)
End If
Next i
'找出出现次数最多和未出现过的字母
For i = 1 To 26
If 3__________ Then
s1 = s1 + " " + Chr(Asc("A") + i - 1)
ElseIf a(i) = 0 Then
s2 = s2 + " " + Chr(Asc("A") + i - 1)
End If
Next i
Label2.Caption = "出现次数最多的字母是:" & s1 & "  出现次数为:" & Str(max)
Label3.Caption = "未出现的字母是:" & s2
End Sub