pl = 1 Else
If n Mod 2 = 1 Then pl = x * x + n Else
pl = x * x - n End If End If End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是___3___。
84. 阅读下列程序段
Private Sub Command2_Click() For i = 1 To 3 x = 1
For j = 1 To 3 x = 3 + j
For k = 1 To 3 x = x + 3 Next k Next j Next i Print x End Sub
运行程序后，单击命令按钮，输出结果是 15 。
85. 阅读下列程序段
Private Sub Command1_Click() Dim i As Integer Dim k As Integer k = 0
For i = 0 To 10 k = k + 1 i = i + k Next Print k; i End Sub
请问其循环体共执行了 4 次，i的值是 1 4 。
86. Private Sub Command1_Click()
Dim i As Integer Dim x As Integer
第 13 页 共 22 页
i = 1 x = 2 Do i = i + 1 x = x + i
Loop Until i >= 7 Print i , x End Sub
单击命令按钮后，i和x的值分别是7 、 29 。
87. 下面程序运行后，a、b、c、d的结果分别 3、1、5、12 。
Private Sub Command1_Click() Dim a, b, c, d As Integer Do
For a = 1 To 2 b = b + 1
If a = 1 Then b = 0 c = 5 d = d + 2 Next a
Loop Until d > 10 Print a, b, c, d End Sub
88. 假定有如下的Sub过程：
Sub S(x As Single, y As Single) t = x x = t + x y = t - y End Sub
Private Sub Command2_Click() Dim a As Single, b As Single a = 6 b = 4
Call S(a, b) Print a, b End Sub
程序运行后，单击命令按钮输出结果为 12、2 。
89. 阅读下列程序段
Dim a(3, 3) As Integer
第 14 页 共 22 页
For m = 1 To 3 For n = 1 To 3
a(m, n) = (m - 1) * 3 + n Next n Next m
For m = 2 To 3 For n = 1 To 2 Print a(m, n); Next n Next m
程序运行后，显示结果为： 4、5、7、8 。
三、综合设计题
90. 编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，
则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。
91. 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输
出。
92. 编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。 93. 编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，
才在Text1中显示\字符。
94. 编一程序能实现在窗体上打印出如下图所示的图形。
A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B
95. 编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为
素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。）
96. 选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600
元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。
97. 有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较
大小的子过程，用c将大数回传。要求按值传送a、b。
第 15 页 共 22 页
98. 编一程序用于求所有的\水仙花数\。 所谓\水仙花数\是指一个3位数，其各位数字立
方和等于该数本身。例如：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. 编一程序：利用输入对话框输入两个正整数，求最大公约数。 四、简答题 （略）……
答案
三、综合设计题
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 = \
第 16 页 共 22 页