浙江省诸暨中学2018_2019学年高二信息技术上学期10月阶段性考试试题20.doc

《浙江省诸暨中学2018_2019学年高二信息技术上学期10月阶段性考试试题20.doc》由会员分享，可在线阅读，更多相关《浙江省诸暨中学2018_2019学年高二信息技术上学期10月阶段性考试试题20.doc（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、浙江省诸暨中学2018-2019学年高二信息技术上学期10月阶段性考试试题第一部分信息技术（共50分）一、选择题（本大题共13小题，每小题2分，共26分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分。）1.在VB中，下列表达式的值为5的是（ ）ASqr(5.2) BAbs(5.2) CFix(5.2) D.Len(5.2)2.假设变量a=4，b=5，执行a=a*b:b=a/b:a=a/b语句以后，a和b的值分别是（ ）A5 和4 B4 和5 C20 和20D4 和43.在VB中，设整型变量x、y的值分别是3、6，则下列语句中，能实现在标签Label1中显示“s =

2、 18”的语句是（ ）ALabel1.Caption = s = x * yBLabel1.Caption = s = + Str(x * y)CLabel1 = s = (x + y) 2D. Label1.Caption = s = + Val(x * y)4.在Visual Basic中，能随机产生一个小写字母的表达式是（ ）开始s0, i 1i 9?ss+ i输出sYNii+1i mod 7=4?NYAAsc(Int(Rnd()*25+97)BChr(Int(Rnd()*25+65)CChr(Int(Rnd()*26+97)D. Asc(Int(Rnd()*26+65)5某算法的流程图

3、如第5题图所示。执行这部分流程后，输出S的结果是（ ）A.45B.6 C.10 D. 156.有如下VB 程序段：S = 0i = 5Do While i 12 If s 0 s = Str(n Mod 7) + s n = n 7Loop执行该程序段后，变量s的值是（ ）A.121 B. 121 C. 211 D. 2119.在VB中设计了如第9题图a所示的界面，图b为所选对象的属性面板，图c为工程资源管理窗口，以下说法正确的是()第9题图a 图b 图c所选对象名称是Circle，属于Shape类；该窗体所存储的文件名是“草图frm”；该VB工程名是工程1；所选对象运行时不可见。AB CD1

4、0.对于实数，保留2位小数且第3位四舍五入的表达式是（）AInt(x*100)/100 BInt(x*1000)/100CInt(x*100+0.5)/100 D.(x*1000+5)10011.执行各选项的VB程序段后，变量s的值为“99以内所有正偶数之和”的是（ ）AS=0 BFor i = 2 To 98For i = 2 To 99 Step 2 s = s + is = s + 2 i = i + 2Next i Next iCs = 0 D.i = 2Do While i= 98 Do While i100 i = i + 2 s = s + is = s + i i = i +

5、2Loop Loop12.某VB程序段如下：Private Sub Command1_Click()Dim a As IntegerDim b As Booleana = (a + 1) * 2b = a - 1print a:print bEnd Sub程序运行时，单击命令按钮Command1后，变量a和b的值分别是（）A2 1 B2 true C4 -1 D.4 False13.某算法的VB程序段如下:i = 1: j = 7: s = key = 34Do While i = j m = (i + j) 2 If key = a(m) Then s = s + 2: Exit Do Ex

6、it Do 表示退出循环 ElseIf key a(m) Then j = m - 1: s = s + 1Else i = m + 1: s = s + 3End IfLoopText1.Text = s数组元素a(1)到a（9）的值依次为“15，26，34，47，53，59，60，72，85”。若该程序段执行后，文本框Text1中显示的内容可能是（ ）A. 31B. 132C. 313D. 1312二、非选择题（本大题共3小题，其中第14小题6分，第15小题9分，第16小题9分,共24分）14、编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母、符号等的字符串，单击“统计”

7、按钮Cmd_1，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如第14题图所示。（1）在设计界面时，应使用右图所示“控件工具箱”中的_（填写相应编号）添加“统计”按钮。第14题图（2）为实现上述功能，请在处填入合适代码。Private Sub Command1_Click() Dim s As String, c As String Dim i As Integer, n As Integer, num As Integer s = Text1.Text: num = 0 n = _i = 1Do While i = 65 And n = 97 And n = 122 Th

8、en_ End IfNext iText2.Text = resultj = 2c = Mid(result, 1, 1)Do While j = Len(result)If Mid(result, j, 1) = 0 And c = 9 1分 Loop 1分（3）程序中的Command1应改为Cmd_1 2分15、(1)BackColor 1分（2）B 2分（3） i 10 Mod 10 2分 Sqr(i) = Int(Sqr(i) 2分 List1.AddItem Str(i) 1分 Str(num) 1分16、(1)Caption 1分（2） n = ASC(Mid(s, i, 1) 2分 result = result + Mid(s, i, 1) 2分 j = j + 1 1分 Str(Asc(c) 2分（3）5 1分