x = x + 1 Loop Print x End Sub
29、* 编写程序：输出所有的“水仙花数”，所谓的“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。例如，153是一水仙花数，因为153=13+53+33。 Private Sub Command1_Click() For a = 1 To 9 For b = 1 To 9 For c = 1 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a * 100 + b * 10 + c Then
Print a, b, c End If Next c Next b Next a End Sub
30、* 编写程序：输出以下图形：
* *** ***** ******* Private Sub Command1_Click() For i = 1 To 4 Print Tab(25 - i); For j = 1 To 2 * i - 1 Print \Next j Print Next i End Sub
31、* 编写程序：
* 打印出以下图案。 * *** ***** ******* ***** *** * Private Sub Command1_Click()
21
Dim i As Integer Me.Cls n = 4
For i = 1 To n
Print Tab(n - i + 1); String(2 * i - 1, \Next
For i = n - 1 To 1 Step -1
Print Tab(n - i + 1); String(2 * i - 1, \Next End Sub
32、* 编写程序：* 打印出以下图案。
* *+* *+*+* *+*+*+* *+*+* *+* * Private Sub Command1_Click()
Dim i As Integer Me.Cls n = 4
For i = 1 To n Print Tab(25 - i); For j = 1 To 2 * i - 1 If j Mod 2 = 0 Then Print \Else
Print \End If Next j Print Next i For i = 3 To 1 Step -1 Print Tab(25 - i); For j = 1 To 2 * i - 1 If j Mod 2 = 0 Then Print \Else
Print \End If Next j
22
Print Next i End Sub
33、* 编写一个图形输出的程序
********* ******* ***** *** * *** ***** ******* ********* Private Sub Command1_Click() Dim i As Integer Me.Cls n = 5
For i = n To 1 Step -1
Print Tab(n - i + 1); String(2 * i - 1, \Next
For i = 2 To n
Print Tab(n - i + 1); String(2 * i - 1, \Next End Sub
34、* 编写程序： * 打印出以下图案。
* ** *** **** ***** ******
Private Sub Command1_Click() For i = 1 To 6 Print tab(i); For j = 1 To i Print \Next j Print Next i End Sub
23
35、* 编写程序，输出下列三角形：
4444444 33333 222 1 Private Sub Command1_Click() For i = 4 To 1 Step -1 Print Tab(10 - i);
For j = 2 * i - 1 To 1 Step -1 Print Trim(Str(i)); Next j Next i End Sub
36、* 编写程序：* 打印出以下图案。
1 222 33333 4444444 33333 222 1 Private Sub Command1_Click() For i = 1 To 4 Print Tab(10 - i); For j = 1 To i * 2 - 1 Print Trim(Str(i)); Next j Next i
For i = 3 To 1 Step -1 Print Tab(10 - i); For j = 2 * i - 1 To 1 Step -1 Print Trim(Str(i)); Next j Next i End Sub
37、* 编写程序：
* 打印出以下图案。 1 121 12321 1234321 12321
24
121 1 Private Sub Command1_Click() For i = 1 To 4 Print Tab(25 - i); For j = 1 To i Print Trim(Str(j)); Next j
For j = i - 1 To 1 Step -1 Print Trim(Str(j)); Next j Print Next i
For i = 5 To 7 Print Tab(17 + i); For j = 1 To 8 - i Print Trim(Str(j)); Next j
For j = 7 - i To 1 Step -1 Print Trim(Str(j)); Next j Next i End Sub
注释：Trim()功能删除字符串首部和尾部的空格。
38、* 编写程序：
* 打印出以下图案。 A BBB CCCCC DDDDDDD CCCCC BBB A Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim n As Integer n = 4
For i = 1 To n
Print Space$(n - i); For j = 1 To (i * 2 - 1) Print Chr(64 + i); Next j
25
Print Next i
For i = 3 To 1 Step -1 Print Space$(n - i); For j = 1 To (i * 2 - 1) Print Chr(64 + i); Next j Print Next i End Sub
39、* 编写程序：* 打印出以下图案。
A ABC ABCDE ABCDEFG ABCDE ABC A Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim n As Integer n = 4
For i = 1 To n
Print Space$(n - i); For j = 1 To (i * 2 - 1) Print Chr(64 + j); Next j Print Next i
For i = 3 To 1 Step -1 Print Space$(n - i); For j = 1 To (i * 2 - 1) Print Chr(64 + j); Next j Print Next i End Sub 注：
1. 编程题多是一题多解，可据自身情况，遴选捷径； 2. 我等水平有限，难免出错。可依据软件，稍作修改。
作者：水利与环境学院2008级 张旭 陈超 李翔
26
