《浙江省温岭市箬横中学2018-2019学年高二信息技术10月月考试题（无答案）》由会员分享，可在线阅读，更多相关《浙江省温岭市箬横中学2018-2019学年高二信息技术10月月考试题（无答案）（6页珍藏版）》请在金锄头文库上搜索。
1、浙江省温岭市箬横中学2018-2019学年高二信息技术10月月考试题（无答案）第一部分 信息技术（50分）一、选择题（共24分，其中1-10题每题2分，11题4分）1.将数学表达式：x25x3写成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.54，12C.54，54 D.12，124.如下VB程序段：a3：b6：
2、c5if ab and ac thenyaelse if bc then ybelseycend if该程序运行之后，整数型变量y的值()A.0 B.5 C.6 D.35.在VB中，若用a，b，c分别代表对象名，属性名，属性值，则下列表达形式正确的是()A.a.bcB.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. 该程序的运行后label1中显示的是()S0C0Do While C 1 If Asc(a(n) = Asc(a(n -
3、 1) Then m = 1 Else m = 2 End If b(m) = b(m) + 1 n = n - 1Loop数组b各元素的初始值都为0,文本框Textl的内容为“20181018”。执行程序后，变量b(1)的值为A6B5C4D3二、填空题(共26分，其中第1题每空1分，其余每空2分)1.Visual Basic 程序设计中，某对象的属性窗口和代码窗口如下图所示： 根据图中所给的信息，在下表中填入相应的序号。对象名属性值类事件过程2.以下程序运行后，a(1)值为 ，a(2)值为 Dim a(1 to 5) As Integer Dim i As Integer , t As In
4、teger a(1)=3 :a(2)=8: a(3)=4: a(4)=10: a(5)=6 For i=2 To 5 If a(1)= a And c = A And c = 0 And c 0 Then num = num + 1 cd = cd + cnt End If End If Next i ave = cd / num Label1.Caption = 总共有 + Str(num) + 个单词，平均长度为 + Str(ave)End Sub5.某数字加密算法描述如下：将某位数字与其位置相加得到num，num除以11的余数即为编号，若余数为0编号为11，从密码表中找出与编号对应的加密
5、字符完成加密。密码表如下：编号1234567891011加密字符VisualBASIC小明按照上述方法，设计了一个数字加密的VB程序，功能如下:单击“加密”按钮Commandl,程序依次将文本框Text1中每个数字进行加密，并将加密后的密文在文本框Text2中输出。下表显示了数字“2018”的加密过程：数字2018位置1234编号3241加密字符siuV 程序运行效果如图所示。（1）设计如图所示的程序中，至少要使用 个类（填数字）。（2）实现上述功能的VB程序如下，请在划线处填入合适代码。 Private Sub Command1_Click() Dim s As String, s1 As String, s2 As String, num As Integer s = VisualBASIC s1 = Text1.Text s2= i = 1 Do While num = Val(Mid(s1, i, 1) + i num = num Mod 11 If num = 0 Then num = 11 s2 = i = i + 1 Loop Text2.Text = s2 End Sub（3）若密文是“uAV”,则明文是 。- 6 -
