' 在属性窗口设置定时器的 interval 属性值为 1000
6 以下程序运行界面如下图所示。其功能如下：
பைடு நூலகம்
1) 单击 " 读数据 " 按钮 (Command1)，可将随机产生 100个三位正整数存到数组 a中；
Private Sub Form_Load()
End Sub
第二部分
1 已知在同一个笼子里有总数 M只鸡和兔， 鸡和兔的总脚数为 N只，编程求出鸡和兔各有多少
只。要求：程序运行后，在两个文本框中分别输入 M和 N的值，单击“计算”命令按钮，在两
个标签框中分别输出鸡和兔的数量。程序运行界面如下图。提示：
第一部分
1 在窗体上添加一个命令按钮 ( 名称为 Cmd1，标题为 " 输出平均值 ") 。程序运行后， 单击命令 按钮完成以下工作：
①随机产生 20个0到 1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上 ( 如下图所示 )
Private Sub Cmd1_Click()
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；单击“停止计 数”按钮，则计数停止。
脚数必须 >=只数的 2倍，请重新输入 ")
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之间所有的“水
5 在名称为 Form1的窗体上添加一个名称为 Text1 的文本框；添加两个标题分别为 " 对齐方式 " 、 " 字体 " ，名称分别为 Fm1、 Fm2的框架；在 Fm1框架中添加三个单选按钮，标题分别为 " 左 对齐 " 、" 居中 " 、" 右对齐 " ，名称分别为 Opt1、Opt2、Opt3 ；在 Fm2框架中添加两个单选按钮， 标题分别为 " 宋体 " 、" 黑体 " ，名称分别为 Opt4、Opt5 。
m=m*i Next i Text2 = m End Sub 7 在窗体上添加两个文本框和三个标签，
设置它们的属性，达到下图效果。 程序运行时，在
第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击
" 统计 " 命令按钮，
统计第二个文本框中字符 ( 大小写被认为是不同的字母 ) 在第一个文本框中出现的次数， 统计
Private Sub Command1_Click() = True End Sub
Private Sub Command2_Click() = False End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer() Text1 = Val(Text1) + 1 End Sub
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)。程序运行时在文本框
Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29
a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29
If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时， 单击命令按钮， 则对文本框中的文本内容做相应的设置。 请编写适当的事件过程， 完成上述 功能。
Private Sub Opt3_Click() If Opt3 Then = 1 End Sub
Private Sub Opt4_Click() If Opt4 Then = " 宋体 " End Sub
Private Sub Opt5_Click()
If Opt5 Then = " End Sub
Next i " 平均分： "; Sum / 20 ; " 及格人数： "; n End Sub
Private Sub Picture2_Click()
End Sub 4 编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。
Private Sub Form_Click() For i = 1 To 5
Dim a%(19), i%, sum!, aver!
Randomize
For i = 0 To 19
a(i) = Int(Rnd * 1001)
sum = sum + a(i)
Next i
aver = sum / 20
Print aver
End Sub
2 请在名称为 Form1的窗体上添加一个名称为 Text1 的文本框和一个名称为 C1、标题为 " 转换 "
的命令按钮，如下图所示。在程序运行时，单击
" 转换 " 按钮，可以把 Text1 中的小写字母转
换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch)
分离出十位数
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的整
中输入字符串， 点击命令按钮， 判断文本框中的字符串是否是回文， 将判断结果显示在窗体
上。所谓回文是指字符串正序和逆序的结果相同，如“
aBCCB”a 是回文， “ aBCcBa”不是回
文。
Private Sub Cmd1_Click()
Dim ch As String
For i = Len(Txt1) To 1 Step -1
End Sub
8 在窗体上添加一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出
0～
200范围内能被 3或 7整除的所有整数的和，并显示在文本框中。程序运行界面如下图所示。
Private Sub Command1_Click() Dim i%, sum% For i = 0 To 200
结果在标签 Label3 中显示。
Private Sub Command1_Click() Dim i%, n% For i = 1 To Len(Text1)
If Mid(Text1, i, 1) = Text2 Then n = n + 1 Next i Label3 = n End Sub
Private Sub Label3_Click()
ch = ch + Mid(Txt1, i, 1)
Next i
If Txt1 = ch Then
Print Txt1 + "
是回文 "
Else
Print Txt1 + "
不是回文 "
End If End Sub
Private Sub Form_Load()
End Sub
10 编程实现求 Sum
111 ......
Private Sub Command1_Click() If = True Then
= " 宋体 " Else
= " 隶书 " End If If = 1 Then
= True Else
= False End If If = 1 Then
= True Else
= False End If End Sub
1! 2！ 3！
程序运行界面如下图所示。程序运行时，在文本框中输入 将计算结果显示在标签上。
1
(n 为小于等于 20 的整数 ) 。
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 = "sum=" & sum End Sub