文档介绍：-
z.
输入3个数，输出最大的数
有一元二次方程：a*2+b*+c=0，依次输入a，b，c，判断此方程是否有实根
输入一个百分制的成绩，假设大于等于60，则用消息框弹出，显示“恭喜！成绩通过！〞，假设小于60，则弹出消息框，显示“nd13_Click()
'3. 输入一个百分制的成绩，假设大于等于60，则用消息框弹出，显示"恭喜！成绩通过！"，假设小于60，则弹出消息框，显示"抱歉！成绩没有通过！"
* = Val(InputBo*("input"))
If * >= 60 Then
MsgBo* ("恭喜！成绩通过！")
Else
MsgBo* ("抱歉！成绩没有通过！")
End If
End Sub
Private Sub mand14_Click()
-
z.
'4. 输入一年份，判断它是否为闰年，并显示有关信息。〔判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除〕
yes = Val(InputBo*("year"))
If yes Mod 4 = 0 And yes Mod 100 <> 0 Or yes Mod 400 = 0 Then
MsgBo* (yes & "是闰年")
Else
MsgBo* (yes & "不是闰年")
End If
End Sub
Private Sub mand15_Click()
'5. 输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
score = Val(InputBo*("input"))
Select Case score
Case Is >= 90
MsgBo* ("优秀")
Case Is >= 80
MsgBo* ("良好")
Case Is >= 70
MsgBo* ("中")
Case Is >= 60
MsgBo* ("及格")
Case Else
MsgBo* ("不及格")
End Select
End Sub
Private Sub mand16_Click()
'6. 随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。
a = "645"
n = Len(a)
For i = 1 To Int(n / 2)
c = Mid(a, i, 1)
Mid(a, i, 1) = Mid(a, n - i + 1, 1)
Mid(a, n - i + 1, 1) = c
Ne*t i
MsgBo* (a)
End Sub
Private Sub mand1_Click()
'7. 输入两个整数，求它们的最大公约数
m = Val(InputBo*("input m值"))
n = Val(InputBo*("input n值"))
If n > m Then
t = n
n = m
-
z.
m = t
End If
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
MsgBo* ("最大公约数=" & n)
End Sub
Private Sub mand2_Click()
'8. 编程求200--400围5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。
Dim sum1%, sum2%
sum1 = 0: sum2 = 0
For i = 200 To 400
If i Mod 5 = 0 Then
sum1 = sum1 + i
ElseIf i Mod 7 = 0 Then
sum2 = sun2 + i
End If
i, sum1, sum2
Ne*t i
MsgBo* ("5 的倍数之和sum=" & sum1)
MsgBo* ("7 的倍数之和sum=" & sum2)
End Sub
Private Sub mand3_Click()
'9. 计算100~300之间所有能被3和7整除的数之和
Dim sum%
sum = 0
For i = 100 To 300
If i Mod 3 = 0 And i Mod 7 = 0 Then
sum = sum + i
End If
Ne*t i
MsgBo* ("sum=" & sum)
End Sub
Private Sub mand4_Click()
'10. 分别统计1-1