2016年计算机二级《VB》填空题练习与答案

2016年上半年计算机等级考试将于本周六开考，同学们都复习得怎么样了?下面本站小编为大家搜索整理了关于《VB》填空题练习与答案，欢迎参考练习，希望对大家备考有所帮助!想了解更多相关信息请持续关注我们应届毕业生考试网。

1.随机产生位学生的分数(分数范围0～00)，存放数组a中，以每分一个“*”显示，如下图(-)所示。

Private Sub form_Click()

Dim a%( To )

For i = To

a(i) = _______【】______

Print _______【】_______

Next i

End Sub

2.输出大小可变的正方形图案，如图.所示，最外圈是第一层，要求每层上用的数字与层数相同。

Option Base

Private Sub Form_Click()

Dim a()

n = InputBox("输入 n")

ReDim a(n, n)

For i = To (n + ) /

For j = i To n - i +

For k = i To n - i +

_______【】_______

Next k

Next j

Next i

For i = To n

For j = To n

_______【】_______

Next j

_______【】_______

Next i

End Sub

3.下面的程序是将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序。

Private Sub form_Click()

Dim a, i%, n%, m%

a = Array(, , , , , , , , , )

n = UBound(A)

ReDim _______【】_______

m = Val(InputBox("输入插入的.数 n"))

For i = UBound(A) - To 0 Step -

If m >= a(i) Then

_______【】_______

If i = 0 Then a(i) = m

Else

_______【】_______

Exit For

End If

Next i

For i = 0 To UBound(A)

Print a(i)

Next i

End Sub

4.冒泡排序程序如下，请填空。

Private Sub Form_Click()

Dim a, i%, n%, j%

a = Array(, , , , , , , , )

n = UBound(A)

For i = 0 To n -

For j = 0 To n - - i

If a(j) > a(j + ) Then

_______【】_______

_______【0】_______

a(j + ) = t

End If

Next j

Next i

For i = 0 To UBound(A)

Print a(i)

Next i

End Sub

5.在窗体上画一个名称为“Command”的命令按钮，然后编写如下事件过程：

Private Sub Command_Click()

Dim a As String

a = ""

For i = To

Print Space( - i); Mid$(a, _【】__ , * i - )

Next i

End Sub

程序运行后，单击命令按钮，窗体上的输出结果是:

请填空。