Vb程序结构控制.docVIP

Vb程序结构控制(一) Private Sub Command1_Click() Dim n As Integer, i As Integer n = Val(Text1.Text) For i = 2 To n - 1 If n Mod i = 0 Then Exit For End If Next i If i = n Then Label2.Caption = Str(n) + 是一个素数 Else Label2.Caption = Str(n) + 不是一个素数 End If End Sub ? Vb程序结构控制(二) Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As Integer, a() As Integer, flag As Boolean, n As Integer Dim j As Integer, str As String For i = 100 To 999 flag = False Call ast(i, flag, a, n) str = If flag Then str = str i Chr(10) Chr(13) List1.AddItem str End If Next i End Sub Private Sub ast(ByVal k As Integer, flag As Boolean, b() As Integer, n As Integer) Dim i As Integer, s As Integer, m As Integer n = Len(CStr(k)) m = k ReDim b(n) For i = n To 1 Step -1 b(i) = k Mod 10 k = k \ 10 Next i For i = 1 To n s = s + b(i) ^ n Next i If s = m Then flag = True End Sub ? Vb程序结构控制(三) Dim a(5, 5) As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer, s As String For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 90 + 10) s = s a(i, j) Next j s = s vbCrLf Next i Picture1.Print s End Sub ? Private Sub Command2_Click() Dim i As Integer, j As Integer, sum As Integer For i = 1 To 5 sum = 0 For j = 1 To 5 sum = sum + a(i, j) Next j Text1.Text = Text1.Text sum vbCrLf Next i End Sub ? Private Sub Command3_Click() Picture1.Cls Text1.Text = End Sub ? Private Sub Command4_Click() End End Sub ? Vb程序结构控制(四) Dim a(5, 5) As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer, s As String For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 90 + 10) s = s a(i, j) Next j s = s vbCrLf Next i Picture1.Print s End Sub Private Sub Command2_Click() Dim i As Integer, j As Integer, max As Integer, t As String max = a(1, 1) For i = 1 To 5 For