End If Loop
If temp = 0 Then
Print n; \是一个素数\ Else
Print n; \不是素数\ End If End Sub
96. Private Sub Command1_Click()
Dim n, p As Single n = Val(Text1.Text) Select Case n
Case Is <= 1600 p = 0
Case 1600 To 5000
p = (n - 1600) * 0.02 Case Else
p = 5000 * 0.02 + (n - 5000) * 0.05 End Select End Sub
97. Private Sub c1(ByVal a As Single, ByVal b As Single, c)
If a > b Then c = a Else c = b End Sub
Private Sub Command1_Click() Dim a, b, c As Single a = Val(Text1.Text) b = Val(Text2.Text) Call c1(a, b, c) Print c End Sub
98. Private Sub Command1_Click()
Dim a, b, c, n As Integer
For n = 100 To 999 a = Int(n / 100) b = Int((n - a * 100) / 10) c = n - (a * 100 + b * 10)
If n = a ^ 3 + b ^ 3 + c ^ 3 Then Print n; Next
第 21 页 共 24 页
End Sub
99. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
Single)
If Button = 2 Then
PopupMenu MenuA End If End Sub
Private Sub B_Click(Index As Integer) Select Case Index Case 1
Form1.BackColor = vbWhite Case 2
Form1.BackColor = vbYellow Case Else
Form1.BackColor = vbRed End Select End Sub
100. Private Sub Command1_Click()
Dim a(2), i, j, m As Integer For i = 0 To 2
a(i) = Val(InputBox(\第\条边为：\Next i
For i = 0 To 2
For j = i + 1 To 2 If a(i) > a(j) Then m = a(i) a(i) = a(j) a(j) = m End If Next j Next i
If a(0) + a(1) > a(2) Then
If a(0) ^ 2 + a(1) ^ 2 = a(2) ^ 2 Then
Print \能构成直角三角形,面积为：\ Else
Print \能构成三角形，但不是直角三角形\ End If Else
第 22 页 共 24 页
Print \不能构成三角形\End If End Sub
101. Private Sub Command1_Click()
Picture1.PSet (Picture1.Width / 2, Picture1.Height / 2) End Sub
Private Sub Command2_Click()
Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height) End Sub
Private Sub Command3_Click()
Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), 800 End Sub
Private Sub Command4_Click() Picture1.Cls End Sub
102. Dim a, b, c As String
Private Sub Command1_Click()
a = InputBox(\请输入第一个字符串\b = InputBox(\请输入第二个字符串\End Sub
Private Sub Command2_Click() c = a + b
MsgBox \连接后的字符串为：\。长度为：\End Sub
103. Private Sub Command4_Click()
a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a = 0 Then x = -c / b Print x Else
t = b * b - 4 * a * c If t < 0 Then Print \无解\ Else
第 23 页 共 24 页
X1 = (-b + Sqr(t)) / 2 / a X2 = (-b - Sqr(t)) / 2 / a Print X1, X2 End If End If End Sub
104. Private Sub Command1_Click()
m = Val(InputBox(\第一个数：\第二个数：\If n > m Then t = m: m = n: n = t End If r = m - n
Do While r > 0 If n < r Then t = n: n = r: r = t End If
m = n: n = r: r = m - n Loop Print n End Sub
四、简答题 （略）??
第 24 页 共 24 页