2018-2019学年浙江省杭州市西湖高级中学高二(下)月考信息技术试卷(4月份)
发布:2024/4/20 14:35:0
一、选择题:本大题13小题,第小题2分,共26分.在每小题给出的四个选项中,只有一个是符合题目要求的.
-
1.下列可作为VB变量名的是( )
组卷:7引用:1难度:0.5 -
2.在VB语句dim s(9)as integer中,数组s的变量个数和类型是( )
组卷:5引用:1难度:0.5 -
3.将数学表达式x2≤y+z写成VB表达式,正确的是( )
组卷:6引用:1难度:0.8 -
4.VB表达式val(mid(str(3.5),2,1))的值是( )
组卷:3引用:1难度:0.3 -
5.VB语句Text1.text=“浙江省“用于在文本框中显示文字“浙江省”,该语句中的“text“是( )
组卷:3引用:1难度:0.7 -
6.VB语句fix(rnd*6)+1所产生数的范围(小括号表示边界值不能取到,中括号表示边界值能取到)是( )
组卷:1引用:1难度:0.4
二、综合题:本大题6小题,其中第14题2分,第15题4分,第16题4分,第17题4分,第18题5分,第19题4分共19分.
-
18.下列程序的功能是对某校2011年3月份技术高考成绩进行排名分析,数组a中保存学生技术考试的成绩,数组b中保存学生的姓名,第i个学生的技术成绩保存在a(i)中,对应的学生姓名保存在b(i)中,最后按技术成绩从高到低进行排序。程序界面如图所示,左边列表框List1中显示的是所有学生到的原始数据,单击“排序“按钮(Command1)后,在右边的列表框List2中显示排序完成后的结果(按成绩从高到低排列)。
(1)虚线内程序段所采用的排序算法名称是
(2)程序加框处代码有错,请改正。
Dim a(1 To n) As Single'设共有n名学生
Dim b(1 To n) As String
Private Sub Form_Load
End Sub
Private Sub Command1_Click
Dim i As Integer,j As Integer
Dim tmp As,st As String
b(j)=st
End If
Next j
Next i
For i=1 To n
st=Str(a(i))+″″+b(i)
List2.AddItem st
Next i
End Sub组卷:0引用:1难度:0.6 -
19.数组a中存储的是左右交替上升的n个正整数,如表所示:
a(1) a(2) a(3) …… a(n-2) a(n-1) a(n) 3 25 38 …… 55 31 12
Private Sub Command1_Click ( )
Const n=6
Dim a(1 To n)As Integer,flag As Boolean
Dim i As Integer,j As Integer,m As Integer,key As Integer
'读取一组正整数,按上述规则存入数组a中,代码略。
key=Val(Text1.Text)
i=1
j=(n+1)\2
flag=False
Do WhileAnd Not flag'(1)
m=(i+j)\2
If key=a(m) Then
flag=True
Elself key<a(m) Then
j=m-1
Else
i=m+1
End If
Loop
If Not flag And j>0 Then
m='(2)
If key=a(m) Then flag=True
End If
If flag Then
Text2.Text=Str(m)
Else
Text2.Text=“找不到“
End If
End Sub组卷:1引用:2难度:0.5