VB程序设计阶段练习2（专科）

Print y & \年不是闰年\

End If End Sub

3．输入一个学生成绩，若成绩在85分以上，则输出“Very good”；若成绩在65分到84分之间，则输出“Good”；若成绩低于60分，则输出“No good”。 Private Sub Command1_Click()

y = Val(InputBox(\请输入学生成绩\

If y >= 85 Then

Print \

ElseIf y >= 65 And y < 85 Then Print \ ElseIf y < 60 Then Print \ End If End Sub

4．输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。如可构成，则计算并输出三角形的面积，否则要求重新输入三角形的三条边。当输入的三个值都为0时结束程序。Private Sub Command1_Click() t = True Do While t

a = Val(InputBox(\请输入第1条边的值：\ b = Val(InputBox(\请输入第2条边的值：\ c = Val(InputBox(\请输入第3条边的值：\ If a = 0 And b = 0 And c = 0 Then End End If

If a + b > c And b + c > a And a + c > b Then L = (a + b + c) / 2

s = Sqr(L * (L - a) * (L - b) * (L - c)) Print \三角形面积为: \

Else

MsgBox \输入的三条边的值不能构成三角形，请重新输入\

End If Loop End Sub

5．从键盘上输入两个正整数M和N，求最大公因子。Private Sub Command1_Click() x = Val(InputBox(\请输入正整数M\ y = Val(InputBox(\请输入正整数N\ m = x: n = y r = m Mod n

Do While r <> 0 m = n n = r

r = m Mod n Loop

Print \ Print \

Print \两数的最大公因子为: \

End Sub 6．求T＝9！＝1×2×3×…×9的乘积（提示：t-t*n）。Private Sub Command1_Click() t = 1

For n = 1 To 9 t = t * n Next

Print \End Sub

7．在100～200之间的数中找出同时满足除3余2，除5余3和除7余2的所有整数。Private Sub Command1_Click() For i = 100 To 200

If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i End If Next End Sub

8．求100～999中的水仙花数。所谓水仙花数，是指一个三位，它的各位数字的立方之和等于该数。例如，因为153＝13＋53＋33，所以153是水仙花数。Private Sub Command1_Click() For i = 100 To 999 X1 = i Mod 10

X2 = i \\ 10 Mod 10 x3 = i \\ 100

If X1 ^ 3 + X2 ^ 3 + x3 ^ 3 = i Then Print i End If Next End Sub