vb程序设计的几个简单例子VIP专享VIP免费

1 Option Ex plicit Priv ate Su b Command1_Click() Dim i%, j%, r! i = Val(Tex t1.Tex t) j = Val(Tex t2.Tex t) Pictu re1.Print i; j; Call gy sh(i, j) Pictu re1.Print "最大公约数是" & i r = Val(Inpu tBox ("输入半径")) Call S(r) End Su b Pu blic Fu nction gy sh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t <> 0 End Fu nction Pu blic fu nction S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox "圆面积为：" & S End fu nction Pu blic Fu nction 定积分() End Fu nction2 Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print "排序前的数组为：" n = Val(InputBox("请输入一个 3 到 100 的整数")) ReDim a(1 To n) Randomize For i = 1 To n a(i) = Int(Rnd * 100) + 1 Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next i End Sub Private Sub Command2_Click() Picture1.Print Picture1.Print "排序后的数组为：" For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Sub3 Dim a(), i%, j% Private Sub Command1_Click() Dim n% n = Val(InputBox("请输入一个整数")) Randomize ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Next i Picture1.Print "选择法排序后的数组为：" For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next Picture1.Print End Sub Private Sub Command2_Click() Dim n% n = Val(InputBox("请输入一个整数")) Randomize ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Next i Picture2.Print "冒泡排序法后的数组为：" For i = 1 To n-1 For j = n To i-1 Ste...