1、打算重新把大学学习的VB知识捡起来，学习的过程记录下来，也方便后来想学习的同志们。开始VB的一些基础界面我就不介绍了，直接开始简单的代码，小程序制作。实例1：制作求最大公约数，及面积的小程序。代码如下：Option ExplicitPrivate Sub Command1_Click()Dim i%, j%, r!i = Val(Text1.Text)j = Val(Text2.Text)Picture1.Print i; j;Call gysh(i, j)Picture1.Print “最大公约数是“ j;Call gysh(i, j)Picture1.Print “最大公约数是“ j; -
2、打印取值7、 Call gysh(i, j) -调用定义的函数计算8、 Picture1.Print “最大公约数是“ & I -打印计算结果9、 r = Val(InputBox(“输入半径“) -取输入的值为半径10、 Call S(r) -调用函数计算11、 End Sub -结束符简单的说上面这一大堆数据，就是点击command1按钮后，需要执行的语句。但是我们需要注意的是4取值，在这取值是从text中取出的，那么我们就要加入textbox,如图：在加入后要对text1进行一些设置。如图：将选中项的数值改为空，就是无值。接下来我们看这段函数：Picture1.Print “最大公约数是
3、“ & ir = Val(InputBox(“输入半径“) Call S(r) -调用函数 End Sub这段函数就是将计算的结果输出，并要求输入半径数值我们需要加入picturebox,如图：下面我们继续，Public Function gysh(m As Integer, n As Integer) As Integer-定义m,n存储整型数据，用来存储整数Dim t%Dot = m Mod n: m = n: n = tLoop While t 0End FunctionPublic Function S(r!)Const pi = 3.1415926S = pi * r 2MsgBox “圆面积为： “ & SEnd Function这两个函数，是自定义的两个计算函数，第一个是计算最大公约数，第二个是计算圆面积。一些详细的计算符号，如果不懂在搜索我的其他教程，我的教程后面都带“虎虎”两个字哦OK了运行一下看看好了，自己好好琢磨一下吧，多看看就懂了。
