Visual Basic 6.0实例分享 （1.求圆的面积）

这两天开了个连载的系列，VB讲解，现配上求圆的面积的实例，讲解常量和变量。话不多说，直接上图片加源码。

源码

Const Pai As Double = 3.1415       rem 这里pai取多少位都行
Dim Num1 As Single	rem 用来保存半径，参与运算
Dim Num2 As Single	rem用来保存结果
Private Sub Form_Load()
			rem 窗口加载时不用执行任何指令
End Sub
Private Sub Text1_Change()
Num1 = Val(Text1.Text)		rem将Text1的值赋给Num1
Num2 = Pai*Num1*Num1		rem 小学数学，不多解释
Text2.Text = Num2 	rem Text2即为最下面的那个文本框，用来显示结果
End Sub


'非常简单而又实用的程序，博主半夜没事干，状态不好，有些细节没注意（比如Text2的初始值我没有删掉，但是在实际开发时，除非作为默认值或提示语，一般删去原值）