大学vb考试题库无答案版

Dim x%, a%, b%, c% For x = 100 To 500 a = x Mod 10

b = (x Mod 100) \\ 10 c = x \\ 100

If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x Next x End Sub

12、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 Private Sub Command1_Click() Text1 = Int(Rnd * 900 + 100) End Sub

Private Sub Command2_Click() Dim x%, x1%, x2%, x3% x = Val(Text1) x1 = x Mod 10 x2 = (x Mod 100) \\ 10 x3 = x \\ 100

Text2 = x1 * 100 + x2 * 10 + x3 End Sub

否构成三角13、从键盘输入三角形的三条边a,b,c的值，根据其数值，判断能形。 Private Sub Command1_Click() Dim a%, b%, c%

a = Val(InputBox(\ b = Val(InputBox(\ c = Val(InputBox(\

If a + b > c And b + c > a And a + c > b Then MsgBox (\能构成三角形\Else

MsgBox (\不能构成三角形\) End If End Sub

14、已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。

Private Sub Form_Click() Dim a(), i%, n%

a = Array(12, 6, 4, 89, 75, 63, 100, 20, 31) n = UBound(a) For i = 0 To n Print a(i); Next i Print For i = 5 To n a(i - 1) = a(i) Next i

n = n - 1

ReDim Preserve a(n) For i = 0 To n Print a(i); Next i Print End Sub

14、已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。

Private Sub Form_Click() Dim a(), i%, n%

a = Array(12, 6, 4, 89, 75, 63, 100, 20, 31) n = UBound(a) For i = 0 To n Print a(i); Next i Print For i = 5 To n a(i - 1) = a(i) Next i n = n - 1

ReDim Preserve a(n) For i = 0 To n Print a(i); Next i Print End Sub

15、随机生成一个整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。（下三角、全部元素） Dim a%(4, 4), i%, j% Private Sub Form_load() For i = 0 To 4 For j = 0 To 4

a(i, j) = Int(Rnd * 11 + 10) Next j Next i End Sub

Private Sub Command1_Click() Picture1.Cls For i = 0 To 4 For j = 0 To 4 Picture1.Print a(i, j); \ Next j Picture1.Print Next i End Sub

Private Sub Command2_Click() Picture2.Cls For i = 0 To 4 For j = i To 4

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

Private Sub Command3_Click() Picture3.Cls For i = 0 To 4 For j = 0 To i

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

16、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下标。 Dim a%(3, 3), i%, j%, imax% Private Sub Command1_Click() For i = 0 To 3 For j = 0 To 3

a(i, j) = Int(Rnd * 31 + 20) Picture1.Print a(i, j); \ Next j Picture1.Print Next i imax = 0 For i = 0 To 3 For j = 0 To 3

If a(i, imax) < a(i, j) Then imax = j End If Next j

Picture2.Print \第\行\最大值为\下标为\ Next i End Sub

17、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[40,80]内的整数，求它的最大值及所对应的下标。

Private Sub Form_Click() Dim a(3, 3), max%, imax% For i = 0 To 3 For j = 0 To 3

a(i, j) = Int(Rnd * 41 + 40) Next j Next i

For i = 0 To 3 For j = 0 To 3 Print a(i, j); Next j Print Next i

For i = 0 To 3 For j = 0 To 3

If max < a(i, j) Then max = a(i, j): imax = i & j Next j Next i

Print \End Sub

18、输入一系列字符串，编程求出长度最大的字符串并输出其所对应的次序 Private Sub Form_Click()

Dim a(5) As String, b(4) As Integer, t%, max%, imax% For i = 1 To 5 a(i) = InputBox(\ Next i For i = 0 To 4

b(i) = Len(Trim(a(i))) Next i max = 1 For i = 0 To 4

If max < b(i) Then max = b(i): imax = i Next i

Print \ Print \End Sub

19、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所有数据之和 Private Sub Form_Click() Dim a(3, 3), sum% For i = 0 To 3 For j = 0 To 3

a(i, j) = Int(Rnd * 31 + 20) Next j Next i

For i = 0 To 3 For j = 0 To 3 Print a(i, j); Next j