方和等于该数本身。例如：153就是一水仙花数，因为153 = 13+53+33。
99. 设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。 100. 编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。
如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。
提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。
101. 编写程序：通过四个命令按钮Command1-Command4，在图片框Picture1内分别实
现画点、画线、画圆、擦除等功能。
102. 编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按
钮2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。
103. 编一程序：用三个文本框分别输入a、b、c，求一元二次方程ax2+bx+c=0的解x1
和x2，只包括实根。
104. 编一程序：利用输入对话框输入两个正整数，求最大公约数。 四、简答题 （略）??
答案
一、单选题 1. D 2. A 3. B 4. C 5. A 6. C 7. C 8. B 9. A 10. A 11. B
第 16 页 共 24 页
12. A 13. B 14. D 15. D 16. B 17. B 18. C 19. A 20. A 21. C 22. C 23. B 24. A 25. B 26. C 27. A 28. D 29. A 30. B 31. B 32. C 33. A 34. C 35. C 36. C 37. C 38. C 39. D 40. B 41. C 42. D 43. A 44. B 45. B 46. D 47. C 48. B 49. C 50. B
第 17 页 共 24 页
51. D 52. C 53. D 54. D 55. C 56. A 57. A 58. D 59. C 60. B 61. A 62. B 63. B 64. D 65. C 66. B 67. C 68. D 69. C 70. B 71. D 72. C 73. C 74. C 75. D 76. C 77. A 78. C
二、填空题1 79. 9 80. 30
81. GFEDCBA 82. 20 83. 3 84. 15 85. 4、14
第 18 页 共 24 页
86. 7、29
87. 3、1、5、12 88. 12、2
89. 4、5、7、8
三、综合设计题
90. Private Sub Command1_Click()
Timer1.Interval = 5 Timer1.Enabled = True End Sub
Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Command3_Click() Timer1.Enabled = False Text1.Text = \End Sub
Private Sub Timer1_Timer() Text1.Text = Now End Sub
91. Private Sub Command1_Click()
Dim i, s As Integer For i = 100 To 200
If i Mod 3 = 0 Then s = s + i Next i
MsgBox (\之间所有可以被3整除的数的总和为：\End Sub
92. Private Sub Command1_Click()
Dim a(9) , i, j, m As Integer For i = 0 To 9
a(i) = Val(InputBox(\第\个数：\Next i
For i = 0 To 9
For j = i + 1 To 9 If a(i) > a(j) Then m = a(i) a(i) = a(j)
第 19 页 共 24 页
a(j) = m End If Next j Next i
For i = 0 To 9 Print a(i); Next i End Sub
93. Private Sub Command1_Click()
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 0 Then Text1.Text = \End If End Sub
94. Private Sub Command1_Click()
Dim i, j As Integer For i = 1 To 4
For j = 1 To (2 * i - 1) Print \ Next j Print Next i
For i = 4 To 1 Step -1
For j = (2 * i - 1) To 1 Step -1 Print \ Next j Print Next i End Sub
95. Private Sub Command4_Click()
Dim n, k, i, temp As Integer
n = InputBox(\请输入一个正整数\ k = Int(Sqr(n)) i = 2 temp = 0
Do While i <= k And temp = 0 If n Mod i = 0 Then temp = 1 Else
i = i + 1
第 20 页 共 24 页