当前位置：试卷中心 > 试卷详情

2017-2018学年浙江省绍兴市诸暨市牌头中学高二（上）月考信息技术试卷（1月份）

发布：2024/4/20 14:35:0

一、选择题（本题共13小题，每小题2分，只有一个答案是正确的，多选或不选均不得分）

1．小周定义了一个变量rs来存储超市里商品条形码，变量的数据类型应是（　　）
A．Integer B．String C．Long D．Date
组卷：10引用：3难度：0.9
解析
2．下列可作为VB变量名的是（　　）
A．true B．we*6 C．dew3 D．3ABC
组卷：6引用：2难度：0.9
解析
3．随机产生一个范围为[8，89]的正整数的VB表达式是（　　）
A．8+int（82*rnd） B．8+int（90*rnd）
C．int（90*Exp） D．int（82*rnd）
组卷：9引用：1难度：0.9
解析
4．下列Visual Basic表达式的值为True的是（　　）
A．1=2
B．“78“＞“79“
C．Len（“78“）=Len（“中国“）
D．Mid（“abcdef“，2，3）=“abc“
组卷：6引用：1难度：0.9
解析
5．将数学表达式sin（e³）+
|
x
+
y
|
写成Visual Basic的表达式，其正确的形式是（　　）
A．sin（exp（3））+sqr（abs（x+y））
B．sin（e^3）+sqr（abs（x+y））
C．sin（exp（3））+sqr（|x+y|）
D．sin（e^3）+sqr（|x+y|）
组卷：6引用：3难度：0.7
解析

当前模式为游客模式，立即登录查看试卷全部内容及下载

二、程序设计题（本题共4个大题，共24分．）

16．用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd,随机生成两个[0，1）之间的随机数，由此构成一个投点坐标（x,y），然后根据x²+y²＜=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）

①
s=0
Do While i＜=n'随机投点n次
x=Rnd：y=Rnd
z=

②
If z＜=1Then
s=s+1
End If
i=i+1
Loop
Text2．Text=

③
组卷：2引用：1难度：0.6
解析
17．【加试题】李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（1）“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100 内的随机数*27+2，…，“Z”变为一个 1 到 100 内的随机数*27+26；
（2）每个字母变为数字后会加上一个“-”用来分割数字；
（3）其他空格和标点字符都按原来的表示．
李雷利用VB 编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序会将密文解密并将解密后的内容显示在文本框 Text2 中．
程序运行界面如图所示：

（1）根据描述，若密文为“1905-1442-”，则表示的是：

．
（2）实现上述功能的 VB 程序如下，请在横线处填入合适代码．
Private Sub Command1_Click（　　）
Dim s As String,yw As String,t As 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.
组卷：7引用：2难度：0.1
解析