大学vb考试题库

Next i For i = 1 To n a(i, i) = 1 Next i

For j = 2 To i - 1 For i = 3 To n

a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next i Picture1.Print ; Next j

Picture1.Print Tab(j * n); a(i, j) For i = 1 To n For j = 1 To i

Picture1.Print a(i, j); \ Next j Picture1.Print Next i End Sub

37、声明一个整型的二维数组a(1 to 4,1 to 4)，用随机函数产生各元素，范围介于[1,20]之间，编程将第2行和第4行对应元素交换。 Private Sub Form_Click()

Dim a(0 To 3, 0 To 3), i%, j%, t For i = 0 To 3 For j = 0 To 3

a(i, j) = Int(Rnd * 21 + 1) Print Tab(j * 5); a(i, j); Next j Next i Print Print

For j = 0 To 3

t = a(1, j): a(1, j) = a(3, j): a(3, j) = t Next j For i = 0 To 3 For j = 0 To 3

Print Tab(j * 5); a(i, j); Next j Next i End Sub

38、随机产生10个[30,100]内的整数，求最小值及所对应的下标。 Private Sub Form_click()

Dim a(1 To 10) As Integer, zb%, mina%, i% For i = 1 To 10

a(i) = Int(Rnd * 71 + 30) Print a(i); Next i

37

zb = 1 mina = a(1) For i = 2 To 10

If mina > a(i) Then mina = a(i): zb = i Next i Print

Print \End Sub

39、编写一个判断素数的通用过程（函数或子程序）。调用该过程，计算并输出区间[1000，1100]内所有素数的和。(提示：只能被1和自身整除的自然数称为素数。) Private Sub Picture1_Click() Dim i%, avera avera = 0

For i = 1000 To 1100

If ss(i) <> 0 Then Print ss(i) avera = avera + ss(i) Next i

Picture1.Print avera End Sub

Function ss(n) As Integer Dim i%, tag As Boolean tag = True

For i = 3 To n / 2

If (n Mod i) = 0 Then tag = False Next i

If tag Then ss = n End Function

40.编一子过程Procmin(a(),amin)，求一维数组中a的最小值amin.

（随机产生10个200-400之间的数，并显示数组各元素；调用子函数，显示最小值） Private Sub Form_Click() Dim a(1 To 10), amin, i% For i = 1 To 10

a(i) = Int(Rnd * 200 + 200) Print a(i); Next i

Call s(a(), amin) Print

Print \ End Sub Sub s(b(), min) Dim i%

min = b(LBound(b))

For i = LBound(b) + 1 To UBound(b) If b(i) < min Then min = b(i) Next i End Sub

38

41：.编一冒泡程序，对已知整数按递减次序排列，用子过程 Sub sort(a()) Dim imin%, i%, j% For i = 0 To UBound(a) - 1 For j = 0 To UBound(a) - 1 - i If a(j＋1) > a(j ) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i End Sub

Private Sub Form_Click() Dim b(), i%

b = Array(8, 9, 4, 2, 6) Call sort(b())

For i = 0 To UBound(b) Print b(i); Next i End Sub

43.用选择排序法子过程对已知的若干整数按递增次序排列 Sub sort(a()) Dim imin%, i%, j% For i = 0 To UBound(a) - 1 imin = i

For j = i + 1 To UBound(a) If a(j) < a(imin) Then imin = j Next j

t = a(i): a(i) = a(imin): a(imin) = t Next i End Sub

Private Sub Form_Click() Dim b(), i%

b = Array(8, 9, 4, 2, 6) Call sort(b())

For i = 0 To UBound(b) Print b(i); Next i End Sub

45.编一冒泡程序，对已知整数按递增次序排列，用子过程 Sub sort(a()) Dim imin%, i%, j% For i = 0 To UBound(a) - 1 For j = 0 To UBound(a) - 1 - i If a(j) > a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t End If

39

Next j Next i End Sub

Private Sub Form_Click() Dim b(), i%

b = Array(8, 9, 4, 2, 6) Call sort(b())

For i = 0 To UBound(b) Print b(i); Next i End Sub

40