1、- 1 -浙江省温岭市箬横中学 2018-2019 学年高二信息技术 10 月月考试题（无答案）第一部分 信息技术（50 分）一、选择题（共 24 分，其中 1-10 题每题 2 分，11 题 4 分）1.将数学表达式： x25 x3 写成 VisualBasic 表达式，正确的是( )A.2*xx3 B.x25*x3C.sqr(x)5x3 D.x25x32.下列 VB 表达式的值等于 3 的是( )A.Sqr(9) B.abs(1)C.Len(“1”) D Len(“3”)3.有如下 VB 程序段：( )a12b54taabbt该程序执行后，变量 a，b 的值分别是( )A.12，54 B.
2、54，12C.54，54 D.12，124.如下 VB 程序段：a3：b6：c5if ab and ac thenyaelse if bc then ybelseycend if该程序运行之后，整数型变量 y 的值( )- 2 -A.0 B.5 C.6 D.35.在 VB 中，若用 a，b，c 分别代表对象名，属性名，属性值，则下列表达形式正确的是( )A.a.bc B.a.cbC.b.ca D.b.ac6.为使下面左右框内的 VB 程序段实现相同的功能，则左框内划线处填写的代码应该是( )s0：t1Do While ta(5)a(a(1)1) D.a(a(2)a(1)a(4).9. 该程序的
3、运行后 label1 中显示的是( )S0C0Do While C 1If Asc(a(n) = Asc(a(n - 1) Thenm = 1Elsem = 2End Ifb(m) = b(m) + 1n = n - 1Loop数组 b 各元素的初始值都为 0,文本框 Textl 的内容为“2 0181018”。执行程序后，变量 b(1)的值为A6 B5 C4 D3二、填空题(共 26 分，其中第 1 题每空 1 分，其余每空 2 分)1.Visual Basic 程序设计中，某对象的属性窗口和代码窗口如下图所示： - 4 -根据图中所给的信息，在下表中填入相应的序号。对象名 属性值 类 事件
4、过程2.以下程序运行后，a(1)值为 ，a(2)值为 Dim a(1 to 5) As IntegerDim i As Integer , t As Integera(1)=3 :a(2)=8: a(3)=4: a(4)=10: a(5)=6For i=2 To 5If a(1)= “a“ And c = “A“ And c = “0“ And c 0 Thennum = num + 1cd = cd + cnt End IfEnd If- 6 -Next iave = cd / numLabel1.Caption = “总共有“ + Str(num) + “个单词，平均长度为“ + Str(
5、ave)End Sub5.某数字加密算法描述如下：将某位数字与其位置相加得到 num，num 除以 11 的余数即为编号，若余数为 0 编号为 11，从密码表中找出与编号对应的加密字符完成加密。密码表如下：编号 1 2 3 4 5 6 7 8 9 10 11加密字符 V i s u a l B A S I C小明按照上述方法，设计了一个数字加密的 VB 程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框 Text1 中每个数字进行加密，并将加密后的密文在文本框Text2 中输出。下表显示了数字“2018”的加密过程：数字 2 0 1 8位置 1 2 3 4编号 3 2 4 1加
6、密字符 s i u V程序运行效果如图所示。（1）设计如图所示的程序中，至少要使用 个类（填数字） 。（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。Private Sub Command1_Click()Dim s As String, s1 As String, s2 As String, num As Integers = “VisualBASIC“s1 = Text1.Texts2=“i = 1Do While num = Val(Mid(s1, i, 1) + inum = num Mod 11If num = 0 Then num = 11s2 = i = i + 1LoopText2.Text = s2End Sub（3）若密文是“uAV”,则明文是 。
