If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j Next i
For i = 1 To 10 Print a(i); Next i End Sub 7、 在文本框Text1和Text2中分别输入任意两个正整数M和N，单击命令按钮Command1,使较大的数显示在标签框Label1上 ，较小的数显示在标签框Label2上。
Private Command1_Click( ) Dim M As Integer,N As Integer
M=Val(Text1.Text):N=Val(Text2.Text) If M>N Then
Label1.Caption=M: Label2.Caption=N
8、在文本框(Textl)中输入一个字符串，按排列按键(Commandl)将输入的字符串中的字符之间插入一个空格，显示在标签框(Label”中。按“结束”(Command2)按键结束程序。
Private Sub Command1_Click() a = Text1 x = Len(a) For i = 1 To x z = Mid(a, i, 1)
Label1 = Label1 + z + \Next i End Sub
Private Sub Command2_Click() End End Sub
9、单击窗体Form1，在窗体第一行显示10个[1，50]之间的随机整数，在文本框Text1中显示其最小数。(提示：Int(Rnd*50)+1 ) Private Sub Command1_Click() Dim a%(1 To 10) For i = 1 To 10
a(i) = Int(Rnd * 50 + 1) Print a(i); Next i Min = a(1) For i = 2 To 10
If Min > a(i) Then Min = a(i) Next i
Text1 = Min End Sub
10、编一程序，显示所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如153是水仙花数，因为153=13+53+33。 Private Sub Command1_Click() For i = 100 To 999 a = i Mod 10 b = i \\ 10 Mod 10 c = i \\ 100
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i Next i End Sub
11、先在窗体上添加一个文本框、一个标签和一个命令按钮。编程实现：单击命令按钮，使标签和文本框中的内容进行互换。 Private Sub Command1_Click() t = Text1
Text1 = Label1 Label1 = t End Sub 12、使用数组实现：单击窗体，按每行7个数显示斐波那契数列的前20个（0，1，1，2，3，…，4181）。提示：an=an-1+an-2 Private Sub Command1_Click() Dim a(1 To 20) a(1) = 0 a(2) = 1
Print a(1); a(2); For i = 3 To 20
a(i) = a(i - 2) + a(i - 1) Print a(i);
If i Mod 7 = 0 Then Print Next i End Sub
13、单击窗体，在窗体上显示100到200之间的所有的素数。 Private Sub Command1_Click() For i = 100 To 200 x = True
For j = 2 To i - 1
If i Mod j = 0 Then x = False Next j
If x = True Then Print i Next i End Sub
14、单击命令按钮Command1后在窗体Form1上显示以下形状的图形。
Private Sub Command1_Click()
AAAAA BBBBB AAAAA BBBBB A For I = 1 To 4
If I Mod 2 <> 0 Then Print String(4, \Else
Print String(4, \End If Next I End Sub
15、在窗体上有一个名称为text1的文本框，一个名称为C1，标题为“校验”的命令按钮。其中文本框用来输入口令，要求在文本框中输入的内容都必须以“*”显示（通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”。如图所示。
Private Sub Command1_Click()
If Text1 = \正确\错误\End Sub
16、在文本框Text1中输入一个任意长度的字符串，单击“逆序排列”命令按钮Command1，将文本框中的字符串按与输入相反的顺序排列，结果显示在标签框Label1中。
Private Sub Command1_Click() a = Text1 x = Len(a)
For i = x To 1 Step -1 z = Mid(a, i, 1)
Label1 = Label1 + z Next i End Sub
17、用InputBox 函数输入长方形的长和宽,用MsgBox输出长方形的周长和面积. Private Sub Command1_Click()
a = Val(InputBox(\输入长方形的长\b = Val(InputBox(\输入长方形的宽\
q = MsgBox(\长方形的周长为\面积为\End Sub
18、打印出3-100的所有素数,并统计个数 Private Sub Command1_Click() For i = 3 To 100 x = True
For j = 2 To i - 1
If i Mod j = 0 Then x = False
Next j
If x = True Then Print i: t = t + 1 Next i Print t End Sub
19、用输入对话框输入半径R的值，编写单击计算命令按钮事件代码，计算 S= π
3
的值和V= 4 π R的值，并将结果分别显示在标签框Label1和Label2中。 Private Sub Command1_Click()
r = InputBox(\请输入半径R＝\数据输入框\ s = 3.141592 * r * r v = 4 * s * r
Label1.Caption = s Label2.Caption = v End Sub
20、利用inputbox函数输入2个整数，求它们的最大公约数。 Private Sub Form_Click() n1 = InputBox(\输入n\ m1 = InputBox(\输入m\
If m1 > n1 Then ' 使得 m>n m = m1: n = n1 Else
m = n1: n = m1 End If
r = m Mod n Do While r <> 0 m = n n = r
r = m Mod n Loop
Print m1; \的最大公约数为\ End Sub
21、 输入3个数，输出其中最大的数。 Private Sub Command1_Click() a = Val(InputBox(\输入第一个数\b = Val(InputBox(\输入第个数\c = Val(InputBox(\输入第三个数\If a < b Then a = b If a < c Then a = c Print a End Sub
22、单击命令按钮Command1后在窗体Form1上显示以下形状的图形。
R2
AAAAAAA
AAAAA Private Sub Command1_Click() AAA A For i = 4 To 1 Step -1 Print String(2 * i - 1, \ Next i End Sub
23、窗口的下部有3个命令按钮，其中左边按钮中标有“单击”，中间按钮中标有“清屏”，右边按钮中标有“结束”。当单击鼠标左边按钮时，屏幕上部的文本框中显示“欢迎使用VB6.0”，若单击中间按钮，清除文本框中的内容，若单击右边的按钮，则程序结束。 Private Sub Command1_Click() Text1 = \欢迎使用VB6.0\End Sub
Private Sub Command2_Click() Text1 = \End Sub
Private Sub Command3_Click() End End Sub
24、利用标签和计时器设计电子钟。 Private Sub Form_Load() Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer() Label1 = Time End Sub
25、 用InputBox输入球体的半径，然后计算球体的体积。 Private Sub Command1_Click() r = InputBox(\请输入r\v = 4 * 3.14 * r ^ 3 / 3 Print \End Sub
26、利用For循环，在文本框中显示1—100之间能被4整除的整数。 Private Sub Command1_Click() For i = 1 To 100
If i Mod 4 = 0 Then Text1 = Text1 + Str(i) Next i End Sub
27、编程求解表达式1！+2！+3！+ … +n!的和，n（n>1）由键盘输入，最后输出结果。 Private Sub Command1_Click() n = Val(InputBox(\x = 1
For i = 1 To n