高中信息技术VB程序的调试会考复习题

高中信息技术VB程序的调试会考复习题学校:___________姓名：___________班级：___________考号：___________

一、选择题

1．数组排序。点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。如图所示。

程序代码如下：

Dim a(1 To 10) As Integer

Dim i, j, k, kt As Integer

Private Sub Command1_Click()

List1.Clear'清除列表框数据

For i ＝1 To 10

Randomize'随机数初始化

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

List1.AddItem Str(i) ＋”＝” ＋Str(a(i))

Next i

Command2.Enabled ＝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

If i <> k Then

__②____

End If

Next i

List2.Clear

For i ＝1 To 10

List2.AddItem Str(i) ＋” ＝” ＋Str(a(i))

Next i

End Sub

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

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

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

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

【解析】

2．Sub test2()

a = 12：

b = 12：

c = 5

Label1.Caption = ""

Label2.Caption = ""

If a > b Or Not b

Label1.Caption = "monday"

Else

Label2.Caption = "tiger"

End If

Label3.Caption =" Label1.Caption+" Label2.Caption

End sub

该程序段运行后，在标签Label3的Caption属性值是( )

A．"monday" B．"tiger" C．"mondaytiger" D．""

【答案】A

【解析】

3．在窗体上画一个命令按钮，名称为command1，单击命令按钮，执行如下事件过程：Private Sub Command1_Click()

Dim a As String

Dim c As String

a = "software and hardware"

c = Mid(a, 14, 8)

Text1.text = c

End Sub

则在文本框Text1中显示的信息是（）

A、software and hardware

B、software

C、hadrware

D、and

【答案】C

【解析】

4．有如下Visual Basic程序段：

s=1

for i= 1 to 11 step 3

s=s*i

next i

语句s=s*i共执行的次数为（）

A．11 B．10 C．5 D．4

【答案】D

【解析】

5．数学表达式“a>b>c”对应的VB表达式是（）

A．a>b>c B．a>b and a>c C．a>b and b>c D．a>b or b>c

【答案】C

【解析】

6．表达式abs(int(-2.88)+int(3.14))的值是（）。

A．5 B．0 C．1 D．2

【答案】B

【解析】

7．对以下程序段的说法正确的是（）

s=0

i=0

Do While s<10

i=i+1

s=s+i*i

Loop

A．该程序的循环体执行了3次

B．该程序段结束后i的值为3

C．该程序段结束后i的值为4

D．该程序段结束后s的值为13

【答案】ABD

【解析】

8．在Visual Basic代码中，将多个语句合并在一行上的并行符是( )

A．撇号（'）B．冒号（:）C．感叹号（!）D．问号（?）

【答案】B

【解析】

9．有如下一段VB程序。

Private Sub Command1_Click()

Dim y As Long

Text1.Text = ""

y = f(3)

Label1.Caption = Str(y)

End Sub

Function f(n As Int eger) As Long

Text1.Text = Text1.Text + Str(n)

If n <= 1 Then

f = 1

Else

f = f(n - 1) + 2

End If

End Function

程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（）A． 1 B． 3 C． 123 D． 321

【答案】D