《浙江省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
