（2）设置对象的属性 对象名称 Command1 Label1 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Text1～Text4 属性名称 Caption Caption Caption Caption Caption Caption Caption Caption Caption Text 属性值 翻一番 现有产值 元 年增长率 % 经过 年 产值为： 元 （3）编写事件代码：

Private Sub Command1_Click() Dim p!, s!, y%, r! p = Val(Text1) r = Val(Text2) / 100 y = 0 s = 0 Do y = y + 1 s = p * (1 + r) ^ y Loop While s < 2 * p Text3 = Str(y) Text4 = Str(s) End Sub Private Sub Form_click() Text1 = \ Text2 = \ Text3 = \ Text4 = \End Sub （4）程序的运行及保存。

7 使用双重循环，输出“九九乘法表”，如图4-4所示。 【步骤】 （1）界面设计：在属性窗口将窗体Form1的Caption属性设置为“九九乘法表”。 （2）编写事件代码： 图4-4 实验4-7程序运行界面 Private Sub Form_Click() Dim i%, j% Dim str As String Picture1.Print For i = 1 To 9 For j = 1 To i str = i & \?á\ Picture1.Print Tab((j - 1) * 9 + 1); str; Next j Picture1.Print Next i End Sub （3）程序的运行及保存。 【提示】 （1）注意行号和该行乘法单元的个数之间的关系。

（2）注意乘法单元的规律：“4×3＝12”中4为行号，3为列号，且列号不大于行号。 （3）乘号“×”可从汉字输入法软键盘菜单的“数学符号”中找到；或从Word中菜单【插入】->【符号】中找到，再从Word中剪切或复制到VB代码中。 （4）可以将窗体的AutoRedraw属性设为True，以防初始大小的窗体显示不下全部内容。 8 显示所有的水仙花数。所谓水仙花数，就是指一个3位正整数，其各位数字的立方和等于该数本身。例如，153?1153即为水仙花数。 3?53?33， 【步骤】 （1）界面设计：在窗体上创建一个图形框Picture1。 （2）编写事件代码： Private Sub Picture1_Click() Dim i% Picture1.Cls

Picture1.Print \\ For i = 100 To 999 a = i \\ 100 b = i \\ 10 Mod 10 c = i Mod 10 If i = a ^ 3 + b ^ 3 + c ^ 3 Then Picture1.Print i; Next i End Sub （3）程序的运行及保存。 【提示】 本题目解法有两种： （1）对3位数的各位数组合进行穷举：利用3重循环，将3个个位数组成一个3位数进行判断。例如，3位数的各位数从高位到低位依次为a、b、c，则对应的3位数为a*100+b*10+c。 （2）对所有3位数进行穷举：利用单循环对所有3位数进行穷举，循环内将一个3位数拆成3个个位数进行判断。例如，对s＝678进行拆解时：个位数＝s Mod 10；十位数＝（s\\10） Mod 10；百位数＝s\\100。当然，也可以将上述拆解过程写为一个循环（这时就是利用双重循环，内层循环即为拆解过程）。