Private Sub Label3_Click()
End Sub
8 在窗体上添加一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～200范围内能被3或7整除的所有整数的和，并显示在文本框中。程序运行界面如下图所示。
Private Sub Command1_Click() Dim i%, sum% For i = 0 To 200
If i Mod 3 = 0 Or i Mod 7 = 0 Then sum = sum + i Next i
Text1 = sum End Sub
Private Sub Text1_Change()
End Sub
9 请设计如下图所示界面(文本框名称为：Txt1，按钮名称为：Cmd1)。程序运行时在文本框中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示在窗体上。所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa”是回文，“aBCcBa”不是回文。
Private Sub Cmd1_Click() Dim ch As String
For i = Len(Txt1) To 1 Step -1 ch = ch + Mid(Txt1, i, 1) Next i
If Txt1 = ch Then
Print Txt1 + \是回文\Else
Print Txt1 + \不是回文\
6
End If End Sub
Private Sub Form_Load()
End Sub
10 编程实现求Sum?1111???......?(n为小于等于20的整数)。1!2！3！n!程序运行界面如下图所示。程序运行时，在文本框中输入n的值，点击“计算”命令按钮，
将计算结果显示在标签上。
Private Sub Command1_Click() Dim i%, m As Long, sum As Double n = Val(Text1) m = 1
For i = 1 To n m = m * i
sum = sum + 1 / m Next i
Label2 = \End Sub
Private Sub Form_Load()
End Sub
7
第二部分
1 已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。要求：程序运行后，在两个文本框中分别输入M和N的值，单击“计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。程序运行界面如下图。提示：N≥2×M的偶数。
Private Sub Command1_Click() m = Val(Text1) n = Val(Text2)
If n Mod 2 <> 0 Then
MsgBox (\脚数必须为偶数\ Text2 = \
Text2.SetFocus Else
y = n / 2 - m If y < 0 Then
MsgBox (\脚数必须>=只数的2倍，请重新输入\ Text2 = \
Text2.SetFocus Else
x = m - y Label3 = x Label4 = y End If End If End Sub
Private Sub Form_Load()
End Sub
2 若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为“水仙花数”。例如153是水仙花数，因为 153 = 1*1*1 + 5*5*5 + 3*3*3。编程求出100～999之间所有的“水仙花数”。要求：程序运行后，单击“查找”按钮，在窗体上显示找到的“水仙花数”。 程序运行
界面如下图。
8
Private Sub Command1_Click() Print \水仙花数：\For i = 100 To 999
X1 = i Mod 10 '分离出个位数
X2 = (i Mod 100) \\ 10 '分离出十位数 x3 = i \\ 100 '分离出百位数
If i = X1 ^ 3 + X2 ^ 3 + x3 ^ 3 Then Print i; Next i End Sub
Private Sub Form_Load()
End Sub
3 编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0～100的整数)，并在左边图片框中输出 (一行5个成绩)，并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。
Private Sub Command1_Click() Dim a(1 To 20) As Integer, i%, n% Picture1.Cls Picture2.Cls For i = 1 To 20
a(i) = Int(Rnd * 101)
9
Picture1.Print a(i);
If i Mod 5 = 0 Then Picture1.Print If a(i) >= 60 Then n = n + 1 Sum = Sum + a(i) Next i
Picture2.Print \平均分：\Picture2.Print ; \及格人数：\End Sub
Private Sub Picture2_Click()
End Sub
4 编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。
Private Sub Form_Click() For i = 1 To 5
Print Tab(10 - i); String(2 * i - 1, \Next i
For i = 1 To 4
Print Tab(5 + i); String(9 - 2 * i, \Next i End Sub
5 编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。其功能是：程序的运行时，单击“开始计数”按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击“停止计数”按钮，则计数停止。
Private Sub Command1_Click() Timer1.Enabled = True
10
