《浙江省2019-2020学年高二上学期10月阶段性考试 信息技术 Word版含答案》由会员分享,可在线阅读,更多相关《浙江省2019-2020学年高二上学期10月阶段性考试 信息技术 Word版含答案(6页珍藏版)》请在金锄头文库上搜索。
1、 1 诸暨中学诸暨中学 20192019 学年学年高二阶段性高二阶段性考试技术考试技术卷卷 第一部分第一部分 信息技术信息技术(5050 分)分) 一、单选题一、单选题(每题(每题 2 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
2、Command1.Caption=“转换” D Lable.Text=“转换” 4、“如果 a,b,c 中任意一个为 0,那么 yy 21”。能实现该功能的 VB 语句是( ) AIf a 0 And b 0 And c = 0 Then y y*y 1 BIf a * b * c 0 Then y y2 1 CIf a 0, b 0, c = 0 Then y y2 1 D. If a b c = 0 Then y y*y 1 5、在 Visual Basic 程序中要用到存储范围为-150000150000 的某一整数变量,则该变量的类型 应该定义为 (A)Integer (B)Long
3、(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、
4、有如下的程序段: 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 10、有如下的 Visual Basic 程序段: s = 0 : x = 1 Do While x = 5 s = s + x x = x + 2 Loop
5、该程序段运行后,语句 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 Do While i 50 Then a(i)=x flag = Not flag i = i + 1 End if Loop 执行该程序段后,在下列选项中,a(1)a(6)各元素 值不可能 的是 A.52,95,46,74,77,83 B.50,55,46,70,21,97
6、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 F
7、or i=0 To 9999 s=310000+i If s Mod 46 = 0 Then a = s mod 10 b=(s10)mod 10 If Then End If End If List1 s1,n1 s100 ss*n nn+2 N Y 输出 s,n 3 Next i End Sub 14、 小明编写了一个字符重组程序, 在文本框 Text1 中输入偶数个 字符, 单击 “重组” 按钮 Command1 后,将输入的内容从头、尾至中间依次取字符,组成一个新的字符串 Str2,并在文本框 Text2 中输出。例如在文本框 Text1 中输入字符 “12345678“,程序运行后在
8、文本框 Text2 中显示字 符 “18273645“。 实现上述功能的 VB 程序如下,请在划线处填入合适的代码: Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1 = Text1.Text Str2 = “ : m = 0 Do while Str2 = Str2 + Str2 = Str2 + m = m + 1 Loop Text2.text=str2 End Sub 15、素数只能被 1 和它本身整除,不能被其他自然数整除。编写 VB 程序实现如下功能:单击“产 生奇数并判断” 按钮 Comman
9、d1, 随机产生一个三位正奇数显示在文本框 Text1 中, 并在文本框 Text2 中显示其是否为素数的判断结果。例如,当随机产生的三位正奇数为 953 时,程序运行界面如第 11 题图 a 所示。 第 11 题图 a 第 11 题图 b (1)在设计程序界面时,应使用第 11 题图 b 所示“控件工具箱”中的 (填写相应编号)添加文 本框 Text1。 (2)实现上述功能的 VB 程序如下,请在划线处填写合适的代码。 Private Sub Command1_Click() 第 14 题 4 Dim n As Integer, i As Integer Dim flag As Boolea
10、n 用于标记是否为素数 Randomize n = _ n 为三位正奇数 Text1.Text = Str(n) : flag = True: i = 3 Do While i =”A” then _ else c1=val(d1) c2=val(d2) : c=_ d=chr(c) : ans=_ Next i Text2.Text = ans End Sub 5 诸暨中学 2019 学年高二阶段性考试技术答题卷 姓名:姓名:_ _ 班级班级:_:_ 考号:考号:_ 一、选择题一、选择题 ( (本大题共本大题共 1212 小题,每小题小题,每小题 2 2 分,共分,共 2424 分分) )
11、1. A B C D 2. A B C D 3. A B C D 4. A B C D 5. A B C D 6. A B C D 7. A B C D 8. A B C D 9. A B C D 10. A B C D 11. A B C D 12. A B C D 二、非选择题二、非选择题( (本大题共本大题共 2626 分分) ) 13. (1)13. (1) _ _ (2(2 分分) ) (2)(2)_(2(2 分分) ) (3)(3)_(2(2 分分) ) 14. (1)14. (1) _(2(2 分分) ) (2)_ (2(2)_ (2 分分) ) (3)(3)_(2(2 分分)
12、) 15. (1)15. (1) (1(1 分分) ) (2) (2) _ (2(2 分分) ) (2)(2)_(2(2 分分) (3) (3) (2 2 分分) ) 16. (1)16. (1) _ (1(1 分分) ) (2) (2) (2(2 分分) ) (2)(2) (2(2 分分) ) (2)(2)_(2_(2 分分) ) 6 诸暨中学 2019 学年高二阶段性考试技术答案 1-12、CDBBB CBDAC AC 13、 step 16; a=b ; list1.additem str(s) 14、mlen(str1)/2; 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