浙江省诸暨市牌头中学2017-2018学年高二1月月考信息技术试题Word版含答案

牌头中学高二技术月考卷
第一部分：信息技术（共50分）
一、选择题（本题共13小题，每小题2分，只有一个答案是正确的，多选或不选均不得
分。

）
答案填涂在答题卷的1-13小题！
1、小周定义了一个变量rs来存储超市里商品条形码，变量的数据类型应是（）A．Integer B．String C．Long D．Date
2、下列可作为VB变量名的是( )
（A）true （B）we*6 （C）dew3（D）3ABC
3、随机产生一个范围为[8,89]的正整数的VB表达式是 ( )
（A）8+int(82*rnd) （B）8+int(90*rnd)
（C）int(90*Exp) （D）int(82*rnd)
4、下列Visual Basic表达式的值为True的是（）
A．1=2 B．"78"〉"79"
C．Len("78")＝L en("中国") D．Mid("abcdef", 2, 3) = "abc"
5、将数学表达式sin(e)+写成Ｖisual Basic的表达式，其正确的形式是（）
Ａ、sin(exp(3))+sqr(abs(x+y)) Ｂ、sin(e^3)+sqr(abs(x+y))
Ｃ、sin(exp(3))+sqr(|x+y|) Ｄ、sin(e^3)+sqr(|x+y|)
6、运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。

发生"下标越界"错误时所执行的语句是( )
Private Sub Command1_Cli ck()
Dim a(0 To 5) A s Integer
Dim i As Integer ’①
a(0) = 1 '②
For i = 1 To 5
a(i) = 2 * a(i - 1) + 1 '③
Next i
Text1.Text = Str(a(6)) '④
End Sub
（A）①（B）②（C）③（D）④
7、在Visual Basic的代码窗口中，语句Password.Caption= "a>b"中的Password是（）（A）对象名（B）属性值（C）属性名（D）类名
8、某VB程序的一个事件过程如下：
Private Sub C ommand1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text1.Text = Str(Sqr(a))
End Sub
程序运行时，单击命令按钮command1后弹出如图所示的错误信息提示。

出现错误的原因是（）
A、变量a类型定义错误
B、界面缺少文本框Text1
C、Command1属性设置错误
D、Sqr函数计算时出错
9、第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上面方法撕开，变成7张纸片，一直这样下去。

描述计算撕了n次后纸片总数s的算法部分流程图如下图所示：
空白矩形框中应该填入的是…………………………………………………( )
（A）s←s+2 （B）s←s+3 （C）s←s+j （D）s←s*3
10、下面程序段运行后，变量T的值为（）
T=1：K=1
Do While K<=5
T=T*K
K=K+2
Loop
A、3
B、15
C、120
D、60
11、某Visual Basic程序如下：
Private Sub Command1_Click()
Dim s As String, i As Integer
s = ""
For i = 1 To 10 Step 2
s = Str(i) + s
Next i
Text1.Text = s
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（）
A．13579 B．1 3 5 7 9 C．9 7 5 3 1 D．97531
12、有如下Ｖisual Basic程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For 循环计算一个表达式的值，这个表达式是（ ）
A 、1+1/2+2/3+3/4+4/5
B 、1+1/2+2/3+3/4
C 、1/2+2/3+3/4+4/5
D 、1+1/2+1/3+1/4+1/5 13、使用两种不同的VB 程序段实现相同的功能：则划线处填入的代码正确的是（ ） temp=1:g=2
Do while g<=6
temp=temp+g
g=g+2
loop
二、程序设计题(本题共4个大题，每空2分，共24分。

)
14、有如下程序段,该程序段运行后，e 的值为()i 的值为()j 的值为()
e=0
For i=2 to 10 step 2
For j=1 to 6
If (i+j) mod 3=0 then e=e+1
Next j
Next i
15、以下Visual Basic 程序的功能是：在文本框Text1中输入一个两位数x ，将个位上的数和十位上的数互换组合成新的两位数y ，并在文
本框Text_2中输出新数。

Private Sub Command1_Click()
Dim x As Integer, y As Integer
Dim i As Integer, j As Integer
x=val(text1.text)
temp=1 __________________ temp=temp+g next g
_____________ ①
y=j*10+i
Text1.Text = y②
End Sub
（1）为了实现上述表达式的计算，①处应填写的是____________。

（2）程序中②处的表达式有误，应更正为____________。

16、用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd,随机生成两个[0,1）之间的随机数，由此构成一个投点坐标（x,y），然后根据x2+y2<=1投点是否在圆内来求PI的近似值。

其中总共随机投点n次，统计落点在单位圆内的点数为s,则4s/n即为所求PI的近似值。

程序界面如图所示，在Text1中输入投点的个数，单机“计算”按钮，PI的近似值结果显示在中。

）
Text2
（1）要使得按钮的文字显示为“计算”，应该修改该对象的__________属性。

（2）要实现上述功能，请在划线处填入合适代码。

Private Sub Command1_Click()
Randomize '随机数初始化
Dim i As Long, n As Long, s As Long
Dim x As Double, y As Double, z As Double
n = Val(Text1.Text)
__________________________○1
s = 0
Do While i <= n ' 随机投点n次
x = Rnd: y = Rnd
z = ____________________○2
If z <= 1 Then
s = s + 1
End If
Loop
Text2.Text =○3
17、李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（1）“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100内的随机数*27+2，……，“Z”变为一个1到100内的随机数*27+26；
（2）每个字母变为数字后会加上一个“—”用来分割数字；
（3）其他空格和标点字符都按原来的表示。

李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Co mmand1后，程序会将密文解密并将解密后的内容显示在文本框Text2中。

程序运行界面如图所示：
（1）根据描述，若密文为“1905-1442-”，则表示的是：_______________
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()
Dim s As String, yw As String, tAs String
Dim value As Integer '用于存储某字母在密文中对应数值的临时变量
s = Text1.Text
value = 0
yw = ""
For i = 1 To Len(s)
t =①
If t >= "0" And t <= "9" Then
value = value * 10 + Val(t)
ElseIf t = "—" Then
yw = yw + Chr(Asc("A") + value Mod 27 -1)
②
Else
yw = yw + t
End If
Next i
Text2.Text = yw
End Sub
选择题：
BCACA DABBB CCC 填空题
110,12,7
2j mod 10
text_2.text=str(y)
3caption
i=1
x*x+y*y 或sqr(x*x+y*y) 4ok
mid(s,i,1) value=0。