vb程序设计的几个简单例子.docVIP

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 Public Function 定积分() End Function2 Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print 排序前的数组为： n = Val(InputBox(请输入一个3到100的整数)) ReDim a(1 To n) Rand