浙江省诸暨中学2019-2020年高二上学期10月阶段性考试 信息技术试题 （word版，含答案）
诸暨中学 2019 学年高二阶段性考试技术卷
第一部分 信息技术（50 分）
一、单选题（每题 2 分） 有一个对象属性面板如
右所示，回答下列问题： 1、这是（ ）
A 窗体控件 B 属性控件 C 按钮控件 D 标签 Lable 控件 2、该对象名为（ ）
A cmd_1 B CommandButtom C Caption D lable 3、若欲其中的属性名 caption 获得赋值为“转换”正确的是（ ） A Command1.Text=“转换” B Lable.Caption=“转换” C Command1.Caption=“转换” D Lable.Text=“转换”
4、“如果 a，b，c 中任意一个为 0，那么 y＝y＋1”。能实现该功能的 VB 语句是( ) A．If a ＝ 0 And b ＝ 0 And c = 0 Then y ＝ y*y ＋ 1 B．If a * b * c＝ 0 Then y ＝ y^2 ＋ 1
C．If a ＝ 0, b ＝ 0, c = 0 Then y ＝ y^2 ＋ 1 D. If a ＝ b ＝ c = 0 Then y ＝ y*y ＋ 1 5、在 Visual Basic 程序中要用到存储范围为-150000～150000 的某一整数变量，则该变量的类型 应该定义为 （A）Integer （B）Long （C）Single （D）Boolean 6、产生[1，40] 范围内某一随机整数的表达式是 （A）Rnd * 40 （B）Int(Rnd * 40) （C）Int(Rnd * 40) + 1 （D）Int(Rnd * 39) + 1 7、在 Visual Basic 中，表达式 13 \\ 5 Mod 4 的值是 （A） 1 （B） 2 （C） 3 （D） 4 8、对于任意小数 a，如果要四舍五入保留 2 位小数，表达式为 （A）(int(a)*10+0.5)/10 （B）int(a*10+0.5)/10 （C）(int(a)*100+0.5)/100 （D）int(a*100+0.5)/100 9、有如下的程序段：
Private Sub Command1_Click() Dim a As String, b As String a = Text1.Text : b = Text2.Text Text3.Text = a + b End Sub
运行程序，在对象 Text1 和 Text2 中分别输入 2 和 3，则单击命令按钮 Command1 后，对象 Text3 中 显示 （A） 23 （B）5 （C） 2 （D） 3
2
1 / 6
浙江省诸暨中学2019-2020年高二上学期10月阶段性考试 信息技术试题 （word版，含答案）
10、有如下的 Visual Basic 程序段： s = 0 : x = 1 Do While x <= 5 s = s + x x = x + 2 Loop
该程序段运行后，语句 s = s + x 执行的次数是 （A） 1 （B） 2 （C） 3 （D） 5 11、某算法的部分流程图如右图所示，执行这部分流程后，输出 s,n 的值分别是
A. 105，9 B. 15，9 C. 105，7 D. 15，7 12、有如下 VB 程序段：
flag = True : i = 1
s←1,n←1 Do While i <= 6
x = Int(Rnd * 100) + 1 N If flag or x >50 Then s<100 a(i)=x Y flag = Not flag s←s*n 输出 s,n i = i + 1
n←n+2 End if
Loop
执行该程序段后，在下列选项中，a（1）～a（6）各元素 值不可能的是 ．．．A.52，95，46，74，77，83 B.50，55，46，70，21，97
C.62，78，57，61，69，50 D.31，54，48，72，50，82
二、填空题 13、王敏的 QQ 密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己 的密码信息：
①密码是六位数字，前面两位为 31；②最后两位数字相同；③能被 16 和 46 整除。 程序界面如图所示，单击“帮助找回密码”按钮，可能的密码显示在列表框 List1 中。 解决此问题的相应程序如下，完成相应的填充。 Private Sub Command1_Click（）
Dim a As Integer , s As Long , b As Integer , i As Integer For i=0 To 9999 ①
s=310000+i
If s Mod 46 = 0 Then a = s mod 10
b=(s\\10)mod 10 List1 If ② Then ③ End If End If
2 / 6
浙江省诸暨中学2019-2020年高二上学期10月阶段性考试 信息技术试题 （word版，含答案）
Next i End Sub 14、小明编写了一个字符重组程序，在文本框 Text1 中输入偶数个字符，单击“重组”按钮 Command1 ．．．后，将输入的内容从头、尾至中间依次取字符，组成一个新的字符串 Str2，并在文本框 Text2
中输出。例如在文本框 Text1 中输入字符 \，程序运行后在文本框 Text2 中显示字 符 \。 实现上述功能的 VB 程序如下，请在划线处填入合适的代码： Private Sub Command1_Click()
Dim Str1 As String, Str2 As String Str1 = Text1.Text Str2 = \Do while ① Str2 = Str2 + ② Str2 = Str2 + ③ m = m + 1 第 14 题 Loop
Text2.text=str2 End Sub
15、素数只能被 1 和它本身整除，不能被其他自然数整除。编写 VB 程序实现如下功能：单击“产 生奇数并判断”按钮 Command1，随机产生一个三位正奇数显示在文本框 Text1 中，并在文本框 Text2 中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为 953 时，程序运行界面如第 11 题图 a 所示。
①
② ③
④
第 11 题图 b 第 11 题图 a
(1)在设计程序界面时，应使用第 11 题图 b 所示“控件工具箱”中的 (填写相应编号)添加文 本框 Text1。
(2)实现上述功能的 VB 程序如下，请在划线处填写合适的代码。 Private Sub Command1_Click()
3 / 6
浙江省诸暨中学2019-2020年高二上学期10月阶段性考试 信息技术试题 （word版，含答
案）
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数 Randomize n = ① ‘n 为三位正奇数
Text1.Text = Str(n) : flag = True: i = 3 Do While i <= n - 1 And flag = True If n Mod i = 0 Then flag = False End If i = i + 2 Loop
If ② Then
Text2.Text = Str(n) + “是素数” Else
Text2.Text = Str(n) + “不是素数” End If End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是 (单选，填字母）。
A. n \\ i = Int(n / i) B. n \\ i = n/ i C. n Mod i = n \\ i 16、某英文字符加密算法，对明文中的每个字符进行下列加密处理： 1）将该字符 ASCII 码转换成对应的 2 位 16 进制数；2）将产生的 16 进制数互换位置 3）步骤 2 产生的 16 进制数即为明文加密后的密文字符 根据上述加密算法，小明编写了一个解密程序，界面如图 1） 如果明文为 24，那么密文是 2） 请在横线处填上合适的代码 Dim s as string
Private Sub Command1_Click()
Dim d as string,d1 as string,d2 as string Dim c as integer,c1 as integer,c2 as integer Dim ans as string,i as integer ‘读取密文，显示在 text1，并存储在 s 中，代码略 Ans=””
For i = 1 To len(s) step 2
d1 = Mid(s, i, 1) : d2 = Mid(s, i+1, 1)
else c1=val(d1) if d1>=”A” then ①
c2=val(d2) : c= ② d=chr(c) : ans= ③ Next i
Text2.Text = ans End Sub
4 / 6
浙江省诸暨中学2019-2020年高二上学期10月阶段性考试 信息技术试题 （word版，含答案）
诸暨中学 2019 学年高二阶段性考试技术答题卷
姓名： 班级: 考号：
_
一、选择题 (本大题共 12 小题，每小题 2 分，共 24 分)
1. [A] [B] [C] [D] 5. [A] [B] [C] [D] 9. [A] [B] [C] [D] 2. [A] [B] [C] [D] 6. [A] [B] [C] [D] 10. [A] [B] [C] [D] 3. [A] [B] [C] [D] 7. [A] [B] [C] [D] 11. [A] [B] [C] [D] 4. [A] [B] [C] [D] 8. [A] [B] [C] [D] 12. [A] [B] [C] [D]
二、非选择题(本大题共 26 分) 13. (1) (2) (2 分) _(2 分) (2 分)
(3)
14. (1)
(2 分) (2 分) (2 分) (2)
(3)
15. (1)
(1 分) (2) ①_
(2 分) (2 分) (3) （2 分)
(2)②
16. (1)
(1 分) (2 分) (2 分) _(2 分) (2) ①
(2)② (2)③ 5 / 6
浙江省诸暨中学2019-2020年高二上学期10月阶段性考试 信息技术试题 （word版，含答
案）
诸暨中学 2019 学年高二阶段性考试技术答案
1-12、CDBBB CBDAC AC
13、 step 16; a=b ; list1.additem str(s)
14、m mid(str1,m+1,1); mid(str1,len(str1)-m,1) 15、int((rnd*450)+50)*2+1; flag=true; B 16、2343; C1=ASC(d1)-55; c2*16+c1; ans+d 6 / 6
浙江省诸暨中学2019-2020年高二上学期10月阶段性考试 信息技术试题（word版，含答案）
