vb进之虎虎.docVIP

打算重新把大学学习的VB知识捡起来，学习的过程记录下来，也方便后来想学习的同志们。 开始 VB的一些基础界面我就不介绍了，直接开始简单的代码，小程序制作。 实例1： 制作求最大公约数，及面积的小程序。 代码如下： Option Explicit Private 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 最大公约数是 i r = Val(InputBox(输入半径)) Call S(r) End Sub Public Function gysh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t 0 End Function Public Function S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox 圆面积为： S End Function 我刚学习的时候，直接将代码粘贴进去，运行，出现就是错误。 看着这堆代码不要着急，我们先来分析看看： Option Explicit Private