VB笔试（B卷）(2)

1． 以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们

的和。

Private Sub Form_Click() For i = 1 To 20

x = Int(Rnd * 101 （1） ) If x （2） 5 = 0 Then Print x

s = （3） + x End If Next i

Print \＝\End Sub

2． 以下程序的功能是打印如右下图所示 的“*”行三角形。

Private Sub Form_Click()

n = InputBox(\请输入行数：\

For i = 1 To n

For j = 1 To （4） Print \ Next j

For j = 1 To （5） Print \ Next j

（6） Next i

*************************End Sub

3． 以下程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互

换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换 Private Sub Command6_Click() Dim a(1 to 10) As Integer For i = 1 To 10 a(i) = i

Next i

Call Swap( （7） ，10) For i = 1 To 10 Print a(i);

Next i End Sub

Sub Swap(ByRef b() As Integer, n As Integer) For i = 1 To （8） T = b(i)

b(i) = b( （9） ) b( （10） ) = T Next i End Sub

第 6 页 共 6 页