VB编程常考的五道题型.docxVIP

1.冒泡排序法 Private Sub Form_Click() Dim A(1 To 10) As Integer Dim i As Integer, t As Integer For i = 1 To 10 A(i) = Int(Rnd * 100) + 1 Print A(i) Next i Print For i = 1 To 9 For j = 1 To 10 - 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 For i = 1 To 10 Print A(i) Next i Print End Sub 2.判断一个数是否是素数 Private Sub Form_Click() Dim n, i# n = InputBox(n=) i = 2 While n Mod i 0 i = i + 1 Wend If i = n Then