【说明】
本应用程序是一个乘法计算器，其运行窗口如图2所示。
在该界面中，“被乘数”、“乘数”以及“积”等文字为标签，相应的3个输入输出数据框为文本框，此外还有3个命令按钮。用户在“被乘数”和“乘数”相应的文本框内输入数据，再单击“运算”按钮，便能在“积”对应的文本框中看到相乘的结果；当用户单击“清除”按钮时，就会清除各文本框中的数据；当用户单击“关闭”按钮时就会关闭该窗口并退出应用程序。用户不能在“积”对应的文本框中输入数据。
【属性设置】
各个对象、有关的属性名以及需要修改的属性值设计如下：
| 对象 | 对象名 | 属性名 | 属性值 |
| 窗体 | frmMultiply | Caption | 乘法计算器 |
| 标签1 | Lbl1 | Caption | 被乘数： |
| 标签2 | Lbl2 | Caption | 乘数： |
| 标签3 | Lbl3 | Caption | 积： |
| 文本框1 | Txt1 | Text | (空) |
| 文本框2 | Txt2 | Text | (空) |
| 文本框3 | Txt3 | Text | (空) |
| Enabled | (1) |
| 按钮1 | (2) | Caption | 运算 |
| 按钮2 | cmdClear | Caption | 清空 |
| 按钮3 | cmdClose | Caption | 退出 |
【程序】
Private Sub cmdMultiply_Click( )
txt3. Text =Trim(Str＄ (
(3) ) ’加法运算获得和数
End Sub
Private Sub
(4) (
txt1. Text=" " ’空字符串赋值给文本框txt1的内容
txt2. Text=" " ’空字符串赋值给文本框txt2的内容
txt3. Text=" " ’空字符串赋值给文本框txt3的内容
End Sub
Private Sub cmdClose_Click( )
(5) ’退出应用程序
End Sub
