ClientTop = 450 ClientWidth = 4680 LinkTopic = \ ScaleHeight = 3090 ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 2160 TabIndex = 0 Top = 1800 Width = 1215 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() For n = 999 To 100 Step -1 For i = 2 To n - 1
If n Mod i = 0 Then Exit For Next i
If i = n Then Print n k = k + 1 End If
If k = 3 Then Exit For Next n End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 8025 LinkTopic = \ ScaleHeight = 3090 ScaleWidth = 8025
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 1800 TabIndex = 0 Top = 1320 Width = 1215 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False
Private Sub Command1_Click() s = 0: Max = 0: Min = 1000 For i = 1 To 20 Randomize
x = Int(Rnd * 49 + 51) Print x;
If x > Max Then Max = x If x < Min Then Min = x s = s + x Next i
aver = s / 20 Print
Print \End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = \ ScaleHeight = 3090 ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command2
Caption = \方法2：双循环\ Height = 495
Left = 2640 TabIndex = 1 Top = 1800 Width = 1575 End
Begin VB.CommandButton Command1
Caption = \方法1：单循环\ Height = 495 Left = 600 TabIndex = 0 Top = 1800 Width = 1455 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() For i = 1 To 4
Print Tab(20 - i); String(2 * i - 1, \Next End Sub
Private Sub Command2_Click() For i = 1 To 4
Print Tab(30 - i); For j = 1 To 2 * i - 1 Print \ Next Print Next
End Sub
实验6
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 3990 ClientLeft = 60 ClientTop = 450 ClientWidth = 7095
LinkTopic = \ ScaleHeight = 3990 ScaleWidth = 7095
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = \ Height = 495 Left = 4680 TabIndex = 0 Top = 2880 Width = 1215 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click()
Dim i%, a%(1 To 10), max%, min%, avg! max = 0: min = 100: avg = 0 For i = 1 To 10
a(i) = Int(Rnd * 51 + 50) Print a(i);
If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) avg = avg + a(i) Next i Print
Print \ Print max, min, avg / 10 End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 4155 ClientLeft = 60 ClientTop = 450 ClientWidth = 6525 LinkTopic = \ ScaleHeight = 4155 ScaleWidth = 6525
StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1
Caption = \ Height = 495 Left = 4680 TabIndex = 0 Top = 3120 Width = 1215 End End
Attribute VB_Name = \
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click()
Dim a%(1 To 20), i%, y%, l%, z%, j%, b% For i = 1 To 20
a(i) = Int(Rnd * 101) Print a(i);
If i Mod 10 = 0 Then Print Select Case a(i) Case 90 To 100 y = y + 1 Case 80 To 89 l = l + 1 Case Is >= 70 z = z + 1 Case Is >= 60 j = j + 1 Case Else b = b + 1 End Select Next i
Print \优秀:\ Print \良好:\ Print \中:\ Print \及格:\ Print \不及格:\End Sub
VERSION 5.00
Begin VB.Form Form1
Caption = \ ClientHeight = 4320 ClientLeft = 60 ClientTop = 450