大学vb考试题库无答案版

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 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

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 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