试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省温州市十五校联合体2017 -2018学年高二上学期信息技术期中考试试题
Dim i as Integer, max as Integer Dim a(1 to 10) as Integer
‘代码略，随机产生 10 个不重复的数存于数组 a 的 10 个元素 a(1)~a(10)中max=a(1)
For i=2 to 10
If a(i)>a(max) then max=i Next i
变量 max 用于存储（ ）
Dim a(1 To 100) As Single '依次存储100个学生成绩
Const n = 100
Private Sub Form_Load()
'本过程从数据库中读取1到100号学生成绩，并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As single
max = ①
For i = 2 To n
if ②
Next i
Text1.Text = "成绩最高分是：" + Str(max)
执行该流程图后，输出b的结果是（ ）
Dim tmp As Integer
Dim a(1 To 10) As Integer
For i=2 To 10
Text1.Text = ""
For i= 1 To 5
For j=i+1 To 6
If s(i) + s(i) < s(j) + s(i) Then
t= s(j): s(j)= s(i): s(i)=t
End If
Next j
For i=1 To 6
Text1.Text = s(i) + Text1.Text
If Then
tmp = a(i)
For j= To 1 Step -1 ‘依次后移
If tmp > a(j) Then Exit For
a(j+1)= a(j)
‘插入数据
For i= 1 To 10
List1.Addltem a(i)
要实现上述功能，方框①②③中的语句分别是（ ）
temp=a[n-1]
for i in range(n-2,x-1,-1):
a[x]=temp
试题篮
Then
To 1 Step -1 ‘依次后移
‘插入数据
