2018-2019学年浙江省名校协作体高三(上)月考信息技术试卷(9月份)
发布:2024/11/14 10:30:2
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求,不选、多选、错选均不得分)
-
1.下列有关信息的说法,正确的是( )
组卷:9引用:1难度:0.8 -
2.下列有关浏览器与网页、网络协议的说法,正确的是( )
组卷:1引用:2难度:0.5 -
3.使用word编辑某文档,部分界面如图所示,以下说法正确的是( )
组卷:7引用:1难度:0.6 -
4.使用Access软件创建一张数据表,其设计视图界面如图所示,下列说法正确的是( )
组卷:5引用:1难度:0.4 -
5.使用UltraEdit软件观察字符内码,结果如图所示。
以下说法正确的是( )组卷:1引用:1难度:0.5
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
-
16.小王设计了一个算法试图求出平面坐标系中最左点出发,从左往右途经所有点到达最右点的路径值和,编写了一个VB程序功能如下:在文本框Text1中输入需随机生成的坐标点数量,单击“生成”按钮Command1后,在列表框List1中生成相应数量的坐标点(坐标值为大于等于1小于10的实数,保留一位小数),在文本框Text2中输出路径值。程序界面如图所示。
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Private Sub Command1_Click ( )
Dim x(1To 100)As Single,y(1To 100)As Single
Dim tmp As Single,length As Single,sum As Single,x1As Single,y1As Single
Dim i As Integer,j As Integer,k As Integer
Randomize
List1.Clear
k=Val(Text1.Text)
For i=1To k
x(i)=Int(Rnd*90)/10+1
y(i)=Int(Rnd*90)/10+1
List1.AddItem“X:“+Str(x(i))+““+“Y:“+Str(y(i))
Next i
For i=1To k-1
For j=1To k-i
If x(j)>x(j+1)Then
x(i)=x(i)+x(j)
x(j)=x(i)-x(j)
tmp=y(j)
y(j)=y(j+1)
y(j+1)=tmp
End If
Next j
Next i
sum=0:length=0
For i=1To k-1
x1=
'变量y1计算方法同x1,代码略
length=Sqr(x1+y1)
sum=sum+length
Next i
Text2.Text=Str(Int(sum*10)/10)
End Sub组卷:0引用:1难度:0.9 -
17.某密码的破译步骤如下:
(1)找出文章(以“。”结束)中所有用英文表示的数字(均为小写,数字范围1≤n≤20),单词与数字对应如下:单词 one two three four five six seven eight nine ten …… twenty 数字 1 2 3 4 5 6 7 8 9 10 …… 20
(3)把这些两位数按升序排成一行,组成一个最小的新数,如果新数开头为0,就去除。
(4)步骤(3)找出的最小数即为密码。
小明按照上述方法,设计了一个解密的VB程序,功能如下:单击“解密”按钮Commandl,程序依次将文本框Textl中以空格分隔的每个英文单词取出,若单词属于数字单词,则按解密步骤进行处理,最后在文本框Text2中输出解密结果。程序运行效果如图所示,请回答下列问题:
(1)若文章内容为“tom bought two apples and five oranges,which cost ten dollars altogether。”,则破译后的密码应为
(2)请在横线处填入合适的代码。
Dim a(1To 20)As String
Private Sub Form_Load ( )
a(1)=“one“:a(2)=“two“
'……将所有数字单词按顺序存入数组a中,代码略
End Sub
Private Sub Command1_Click ( )
Dim s As String,tmp As String
Dim c as Integer,i As Integer,j As Integer,k As Integer,t As String,ch As As String,code As Long
Dim b(1To 100)As String'b数组存放数字单词处理后得到的两位数
s=Text1.Text
c=0:i=1:flag=True:t=““
Do While i<=Len(s)
ch=Mid(s,i,1)
If ch>=“a“And ch<=“z“Then
t=t+ch
flag=False
ElseIf flag=False Then
For j=1To 20
If t=a(j) Then
c=c+1
b(c)=
End If
Next j
t=““
flag=True
End If
i=i+1
Loop
’将b数组中的两位数按数值大小进行升序排序,代码略
For i=1To c
t=Val(b(i))
Next i
Text2.Text=Str(code)
End Sub
Function decode(num As Integer) As String
Dim mo As Integer
mo=num*num Mod 100
If mo=0Then
decode=“00“
ElseIf
decode=“0“+Trim(Str(mo))
Else
decode=Trim(Str(mo))'Trim为去除字符串两端空格的函数
End If
End Function组卷:2引用:1难度:0.5