相关试卷
-
1、小明用VB编写了统计短文（不超过500字）中英语单词频次的程序。在文本框Text1中输入短文，单击“单词统计”按钮Count后，在列表框List1中按字典升序输出单词（不区分大小写）和出现频次，程序运行结果如图所示。
请回答下列问题：
(1)、观察程序代码，该事件处理过程名为。(2)、实现上述功能的 VB 程序如下，请在划线处填入合适的代码。Private Sub Count_Click()
Dim word(1 To 500) As String, num(1 To 500) As Integer
Dim s As String, c As String, tmp As String, t As Integer
Dim i As Integer, j As Integer, k As Integer, low As Integer, high As Integer
Dim m As Integer, n As Integer, b As Integer
For i = 1 To 500
num(i) = 0
Next i
s = Text1.Text : n = Len(s)
i = 1 : b = 1 : m = 0 : j = 0
Do While i <= n
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then
j = j + 1
Else
If j > 0 Then
tmp =
low = 1
high = m
Do While low <= high
t = (low + high) \ 2
If tmp = word(t) Then
Exit Do
If tmp < word(t) Then
high = t - 1
Else
low = t + 1
Loop
If Then
For k = m To low Step -1
word(k + 1) = word(k)
num(k + 1) = num(k)
Next k
num(low) = 1
m = m + 1
Else
num(t) = num(t) + 1
End If
j = 0
End If
b = i + 1
End If
i = i + 1
Loop
List1.Clear
For i = 1 To m
List1.AddItem word(i) + ":" + Str(num(i)) + "次"
Next i
End Sub
Function Lowcase(t As String) As String
Dim c As String, s As String, i As Integer
s = ""
For i = 1 To Len(t)
c = Mid(t, i, 1)
If c >= "A" And c <= "Z" Then s = s + Chr(Asc(c) + 32) Else s = s + c
Next i
End Function
-
2、有一个报数游戏，n个人排成一圈，游戏开始时规定个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。
实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer，m As Integer
Dim a(1 To 50)As Integer
n= Val(Text1. Text)
m= Val(Text2. Text)
For i= 1 To n
Next i
s=0；j=0
Do While s <n
t=0
Do While t <m
t=t+ a(j)
Loop
a(j)=0
s=s+1
List1. Additem"第"+Str(s)+"次："+Str(j)
Loop
End sub
(1)、“报数”按钮的对象名称是。(2)、程序代码中，加框处有错，请改正。 应改为(3)、程序代码中，将横线处语句补充完整。(4)、程序运行结束后，变量t的值是。 -
3、为了丰富学生业余生活，学校举办校园歌手大赛，邀请了5位音乐老师作为评委打分，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，取评委打分的平均值作为选手的最终得分。程序运行结果界面如图所示。
请分析任务，完成下列题目。
程序代码如下：
Private Sub Command1_Click()
Dim s As single
Dim Max ， Min ，i As Integer
Dim a(5) As Integer
Max = 0
Min = ①
s = 0
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个分数")
s = s + a(i)
If ② Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
s = ③
Text1.Text = Max
Text2.Text = Min
Text3.Text = s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End Sub
请分析任务，完成下列题目。
(1)、下列控件在本程序窗体中用到的是（ ）A、列表框 B、单选按钮 C、标签 D、组合框(2)、为精确计算选手的最终得分，程序中变量s的数据类型应定义为（ ）A、整型 B、单精度型 C、字符型 D、布尔型(3)、程序中①所在位置表达式正确的是（ ）A、0 B、1 C、5 D、10(4)、程序中②所在位置表达式正确的是（ ）A、Max < a(i) B、Max >a(i) C、Max =a(i) D、Max <> a(i)(5)、程序中③所在位置表达式正确的是（ ）A、s/3 B、(s+Max+ Min)/5 C、(s - Max - Min) / 3 D、(s - Max - Min) / 5(6)、变量s所表示的含义是（ ）A、最低分 B、最高分 C、评委打分 D、最终得分(7)、当一个选手的得分分别为9，8，9，7，8的时候，下列最终得分计算正确的是（ ）A、8 B、8.33 C、7.66 D、7(8)、程序中Command1控件响应的事件是（ ）A、单击事件 B、双击事件 C、载入事件 D、活动事件(9)、程序中数组a(5)包含的元素个数是（ ）A、1 B、5 C、6 D、10(10)、程序“For i = 1 To 5 ……Next i”中“s = s + a(i) ”被执行的次数是（ ）A、1 B、4 C、5 D、6 -
4、某VB程序段如下：
s = "Hello World"
s1 = ""
n = Len(s)
For i = 1 To n \2
If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then
s1 = s1 + Mid(s, i, 1)
Else
s1 = Mid(s, n - i + 1, 1) + s1
End If
Next i
Text1.Text = s1
执行该程序段后，在文本框Text1中显示的是（ ）
A、WlleH B、oorld C、dlroo D、Orldo -
5、有如下程序段：
Function delStr (S As String, m As Integer) As String
Dim n As Integer:n = Len(S)
If m <1 Or m > n Then delStr = "输入位置有误!"
If m = 1 Then delStr = Mid(S, 2, n-1)
If m < n Then delStr = Mid(S, 1, m-1)+Mid(S, m+1, n-m)
If m = n Then delStr = Mid(S, 1, n-1)
End Function
Private Sub Command1_ Click()
Dim S As String:Dim i As Integer
S = Text1.Text
For i = 1 To 10 Step 2
S = delStr(S, i)
Next i
Text2. Text = S
End Sub
文本框Text1中输入Happybirthday，执行该程序段，文本框Text2中显示的是（ ）
A、apybrtda B、apbrhday C、Happybirhday D、Day -
6、有如下VB程序段：
Dim a(1 To 10) As Integer
s = "7218634594": n = Len(s)
t = 0
For i = 1 To n - 1
a(i) = Val(Mid(s， i， 2))
Next i
For i = 1 To n - 2 Step 2
k = i
For j = i + 2 To n - 1 Step 2
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1
End If
Next i
Text1.Text = Str(t)
该程序段运行后，文本框Text1中显示的内容是（ ）
A、1 B、2 C、3 D、4 -
7、已知由字母组成的字符串s，现要实现如下功能：将字符串s中的字母按照26个英文字母顺序依次输出(重复出现的字母只需输出一次)。如s="Congratulate"，输出结果为"aceglnortu"，为实现上述功能，在横线处填入的代码应该是（ ）
Dim a(1 To 26)As Integer
s=Text1. Text
For i=1 To Len(s)
①
If c>="A" And c<="Z" Then c=Chr(Asc(c)+32)
②
Next i
For i=1 To 26
If a(i)<> 0 Then Label1.Caption= Label1.Caption+ ③
Next i
A、①c=Mid(s,i,1) ②a(Asc(c)-96)=a(Asc(c)-96)+1 ③Chr(96+i) B、①c=Mid(s,i,1) ②a(i)=a(i)+1 ③Chr(a(i)) C、①c=Mid(s,i,1) ②a(Asc(c)-96)=a(Asc(c)-96)+1 ③Chr(a(i)) D、①c=Mid(s,i,1) ②a(i)=a(i)+1 ③Chr(96+i) -
8、个程序，从键盘上输入3个数，计算这三个数的和，并输出结果。
-
9、在Python中，ord( )函数的作用是将字符转换为对应的ASCII码值，chr()函数的作用是将ASCII码值转换为对应的字符。阅读下列程序，写出运行结果。
def encrypt（st1）：
st2=""
for s in stl:
st2 += chr（ord（s）+5）
return st2
print（encrypt（"ktocji"））
运行结果是
-
10、Python程序语言中的“=”和数学上的“=”是一回事。
-
11、某同学先后给变量a赋值情况如下：
a=100
a=a+1
a=“abc”
你能告诉这个同学变量a到底存储的是哪个量吗?（ ）
A、100 B、Abc C、111 D、都有可能 -
12、下列关系或逻辑表达式的结果为True的是（ ）A、2*2< 2+2 B、123+45<178 C、Not(6<>11) D、（5 > 0) And (4 < 3)
-
13、给下面几个不同进制的数排序，写出计算步骤
1111111（B） 200（O） 126（D） 81（H）
-
14、用UltraEdit软件观察字符串“a(i)+b(j)=9”的内码，如图所示，则字符串“A(i)+B(j)=10”的内码是（ ）
A、61 28 69 29 2B62 28 6A 29 3D40 B、41 28 69 29 2B42 28 6A 29 3D 3A C、61 28 69 29 2B62 28 6A 29 3D 31 30 D、41 28 69 29 2B42 28 6A 29 3D 31 30 -
15、下面是信息技术课堂中高一（1）班同学对数据压缩这一话题的讨论，你认为不正确的是（ ）A、多媒体数据能够被压缩是因为数据本身存在冗余 B、多媒体数据压缩不允许失真 C、多媒体数据压缩过程是编码，解压缩过程是解码 D、JPEG是静态图像压缩标准之一
-
16、下面哪种格式的文件不能用于存储视频信息：（ ）。A、AVI B、WAV C、MPG D、RM
-
17、十六进制数(A5)16转换成十进制数是（ ）A、21 B、90 C、165 D、155
-
18、有甲乙两幅经压缩的800×600像素的BMP图像文件，甲图为64色，乙图为8位色，则甲图和乙图的存储容量之比约为（ ）A、8：1 B、3：4 C、5：3 D、5：8
-
19、有两幅BMP位图图像，均为500×300像素，24位色，如下图所示。则两幅图的存储容量（ ）
A、左图比右图大 B、一样大 C、左图比右图小 D、无法判断 -
20、使用UltraEdit软件观察字符内码，部分界面如图所示，下列说法正确的是（ ）
A、字符“！”的内码占两个字节 B、存储该字符串的内码共需要15个字节 C、字符“C”在计算机内部是以十六进制数“43”存储的 D、字符“，”的二进制编码是10100011 10101100