2018-2019學年浙江省臺州市溫嶺市箬橫中學高二（上）月考信息技術試卷（10月份）
發布：2024/4/20 14:35:0
一、選擇題（共24分，其中1-10題每題2分，11題4分）
-
1．將數學表達式：x2+5x+3寫成VisualBasic表達式，正確的是（ ）
組卷：0引用：1難度：0.4 -
2．下列VB表達式的值等于3的是（ ）
組卷：4引用：1難度：0.4 -
3．有如下VB程序段：
a=12
b=54
t=a
a=b
b=t
該程序執行后，變量a,b的值分別是（ ）組卷：8引用：1難度：0.6 -
4．如下VB程序段：
a=3：b=6：c=5
if a＞=b and a＞=c then
y=a
else if b＞=c then
y=b
else
y=c
end if
該程序運行之后，整數型變量y的值（ ）組卷：13引用：1難度：0.5 -
5．在VB中，若用a,b,c分別代表對象名，屬性名，屬性值，則下列表達形式正確的是（ ）
組卷：3引用：1難度：0.5
二、填空題（共26分，其中第1題每空1分，其余每空2分）
-
15．統計“英文句子單詞平均長度”的程序，其實現功能為：在文本框Text1中輸入要統計的英文句子，單擊“統計”按鈕Command1．進行統計，求出句子中共有幾個單詞、句子單詞的平均長度，并顯示在標簽框Label1中。程序運行界面如圖所示。
（1）代碼“Private Sub Command1_Click （ ）”中的Command1_Click是（單選，填字母：A．對象名/B．事件名/C．事件處理過程名）。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （ ）
Dim s As String
Dim n As Integer
Dim cnt As Integer
Dim i As Integer
Dim num As Single
Dim cd As Single
Dim ave As Single
s=Text1．Text
n=Len（s）
num=0
cd=0
cnt=0
For i=1To n
①
If c＞=“a“And c＜=“z“or c＞=“A“And c＜=“Z“Then
cnt=cnt+1
ElseIf c＞=“0“And c＜=“9“Then‘單詞中可能有數字，也進行統計
cnt=cnt+1
Else
If cnt＞0Then
num=num+1
cd=cd+cnt
②
End If
End If
Next i
ave=cd/num
Label1．Caption=“總共有“+Str（num）+“個單詞，平均長度為“+Str（ave）
End Sub組卷：2引用：1難度：0.5 -
16．某數字加密算法描述如下：將某位數字與其位置相加得到num,num除以11的余數即為編號，若余數為0編號為11，從密碼表中找出與編號對應的加密字符完成加密。密碼表如下：
小明按照上述方法，設計了一個數字加密的VB程序，功能如下：單擊“加密”按鈕Commandl,程序依次將文本框Text1中每個數字進行加密，并將加密后的密文在文本框Text2中輸出。下表顯示了數字“2018”的加密過程：編號 1 2 3 4 5 6 7 8 9 10 11 加密字符 V i s u a l B A S I C
程序運行效果如圖所示。數字 2 0 1 8 位置 1 2 3 4 編號 3 2 4 1 加密字符 s i u V
（1）設計如圖所示的程序界面，至少要使用個類（填數字）。
（2）實現上述功能的VB程序如下，請在橫線處填入合適代碼。
Private Sub Command1_Click（ ）
Dim s As String,s1As String,s2As String,num As Integer
s=“VisualBASIC“
s1=Text1．Text
s2=““
i=1
Do While①
num=Val（Mid（s1，i,1））+i
num=num Mod 11
If num=0Then num=11
s2=②
i=i+1
Loop
Text2．Text=s2
End Sub
（3）若密文是“uAV”，則明文是。組卷：2引用：2難度：0.5