2024年3月27日发(作者：)

高中信息技术 VB赋值语句 浏览题阅览题 会考复习题

学校:___________姓名：___________班级：___________考号：___________

评卷人

得分

一、选择题

1．数组排序。点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整

数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。如图所示。

程序代码如下：

Dim a(1 To 10) As Integer

Dim i, j, k, kt As Integer

Private Sub Command1_Click()

'清除列表框数据

For i ＝ 1 To 10

Randomize '随机数初始化

a(i) ＝ Int(Rnd() * 1000)

m Str(i) ＋ ”＝” ＋ Str(a(i))

Next i

d ＝ True '激活排序按钮

End Sub

Private Sub Command2_Click()

For i ＝ 1 To 9

k ＝ i

For j ＝____①____To 10

If a(j) > a(k) Then k ＝ j

Next j

试卷第1页，总17页

If i <> k Then

__②____

End If

Next i

For i ＝ 1 To 10

m Str(i) ＋ ” ＝” ＋ Str(a(i))

Next i

End Sub

请在①、②划线处填入合适的语句或表达式，把程序补充完整：

程序中①划线处应填入__________________；

程序中②划线处应填入__________________。

【答案】①I+1；②t=a（k）:a(k)=a(i):a(i)=t

【解析】

2．执行VB语句s=Mid("abcdefgh",2,3)+chr(66)后，变量s的值为( )

A．"cdB" B．"bcd65" C． "cdA" D．"bcdB"

【答案】D

【解析】

3．在ＶＢ中，有如下程序段，该程序段执行后，变量x的值是

x=0

for i=1 to 5

x=x+i-1

next i

A．0 B．5 C．15 D．10

【答案】D

【解析】

4．某VB程序功能：输入正整数n,单击命令按钮Command1后，则会衍生出一串有规

律的数字，形式为“1 2 3…n-1 n n-1…3 2 1 ”。例如n=6时，显示的数字串为“1 2 3 4 5 6 5 4

3 2 1 ”。

Private Sub Command1_Click()

Dim a As intger, i As intger, s As String

n = Val()

试卷第2页，总17页