大学vb考试题库大全精编.docVIP

1，下面程序对已知数组a，删除数组中数组元素中某个元素 Private Sub Command1_Click() Dim a(), key%, i%, j% a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) key = Val(InputBox(输入要删除的值)) For i = 0 To UBound(a) If key = a(i) Then For j = i + 1 To UBound(a) a(j - 1) = a(j) Next j ReDim Preserve a(UBound(a) - 1) MsgBox (删除完成) Exit Sub End If Next i MsgBox (找不到要删除的元素) End Sub 2，下列程序表示将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序 Private Sub Form_Click() Dim a, i%, n%, m% a = Array(19, 17, 15, 13, 11, 9, 7, 5, 3, 1) n = UBound(a) ReDim Preserve a(n + 1) m = Val(InputBox(输入欲插入的数)) For i = UBound(a) - 1 To 0 Step -1 If m = a(i) Then a(i + 1) = a(i) If i = 0 Then a(i) = m Else a(i + 1) = m Exit For End If Next i For i = 0 To UBound(a) Print a(i) Next i End Sub 4，将100~150之间的偶数，拆分成两个素数之和，最后输出格式如图。其中，prime函数判断 参数x是否为质数 Private Function prime(ByVal x As Integer) As Boolean prime = ture For i = 2 To Sqr(x) If x Mod i = 0 Then prime = False Exit Function End If Next i End Function Private Sub Form_Load() i = 1 For n = 100 To 150 For k = 3 To n / 2 If prime(k) And prime(n - k) Then Print i; :; =; k; +; n - k Exit For End If Next k i = i + 1 Next n End Sub 10, 子过程F（N，M，T）对一个四位数n整整数判断：已知该整数n，逆向排列获得另一个4位数m是特自身的倍数，则t为true 表示满足上述条件。。。 Private Sub Command1_Click() Dim t As Boolean, i%, k% text1 = text2 = For i = 1000 To 9999 Call f(i, k, t) If t Then text1 = text1 i vbCrLf text2 = text2 k = i * k \ i vbCrLf End If Next i End Sub Sub f(ByVal n%, ByRef m%, byreyftag As Boolean) Dim i% Tag = False m = 0 i = n Do While i 0 m = m * 10 + i Mod 10 i = i \ 10 Loop If m Mod n = 0 And m \ n 1 Then Tag = True End If End Sub 6.9.子过程CountN用来统计字符串中各数字 字符（0-9）出现的个数；主调程序对在textbox1 框输入的文本，每次单击“统计”按钮，调用该子 过程，在Label1框显示结果。 Private Sub Command1_Click() Dim n(9) As Integer, i% Call CountN(n(), text1.Text) list1.Clear For i = 0 To 9 If n(i) Then list1.AddItem 字符 i 出现的次数为 n(i) Next End Sub Sub CountN(ByRef num%(), ByVal s As String) Dim c As String * 1, i%, m%, j%