7.7 程序举例

例 15 ：编写 Function 过程返回指定字符、长度的字符串，实现在窗体上输出下图所示的图形。

程序代码：

Private Sub Command1_Click()

Dim f As String * 1

f = InputBox(" 显示的字符 ", " 请输入 ", "*")

If f = "" Then f = "*"

Cls

Print

For n = 1 To 5

Print Tab(2 * n + 2);

Print stri(11 - 2 * n, f);

Print Spc(4);

Print stri(2 * n - 1, f);

Print

Next

End Sub

Private Function stri(n As Integer, f As String)

p = ""

For i = 1 To n

p = p & " " & f

Next

stri = p

End Function

执行结果：

习题：

1.编写一个判断某年是否为闰年的函数 Leapyear 。该函数只有一个整型参数表示年份，返回值为逻辑型。当该年份是闰年时，函数返回值为 True ，否则返回 False 。

2 ．编写一个能交换两个变量值的 Sub 过程 Swap 。

3 ．编制判断素数的 Sub 过程或 Function 过程，验证哥德巴赫猜想：一个不小于 6 的偶数可以表示为两个素数之和。

4 ．编写计算阶乘的 Function 过程，利用 e x 的下述近似公式计算 e （直到最后一项小于 10 -6 为止）。

e x ≈　 1+ + + + … +

5 ．编写递归函数求 Fibonacci 数列第 n 项的值。