Visual Free Basic教程开篇：例001：计算矩形面积

本教程通过一个个实例让读者逐步熟悉Visual Free Basic的开发。Visual Free Basic可快速开发出小型桌面程序，学习成本低，这就是它的主要价值，是传统Visual Basic的替代品，不要用它来做商业程序。

本教程使用的工具在这里下载：https://download.csdn.net/download/u010763140/87897496

1. 新建一个标准EXE工程。
2. 在窗体上放入三个标签和三个文本框(Text1,Text2,Text3)，和一个按钮，如图1。
3. 双击按钮进入代码编辑界面，输入下面的代码：

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

   Dim a As Double ‘定义a为一个双精度小数

   Dim b As Double

   Dim c As Double

   a = Val(Text1.Text) ‘val将字符串形式的数字转换成小数

   b = Val(Text2.Text)

   c = a *b

   Text3.Text=Str(c)’str将数字转换成字符串

End Sub

                                                                图1