1 Private Sub Command1_Click()Dim sum As Long, I As Integer, k As Integer k = Val(InputBox("输入一个数"))For I = 1 To k sum = sum + fact(I)Next I Print sum End Sub Function fact(x As Integer)As Long Dim P As Long, I As Integer P = 1 For I = 1 To x P = P * I Next I fact = P End Function 2 Private Sub Form_Click()
Dim a As Integer, b As Integer a = 20: b = 50 p1 a, b Print "a=";a, "b=";b End Sub Sub p1(x As Integer, ByVal y As Integer)x = x * 10 y = y + 20 End Sub 3 Private Sub Command1_Click()Call mysub1("abcd")End Sub Sub mysub1(var1 As String, Optional var2 As Integer)Text1.Text = var1 Text2.Text = var2 End Sub 4
Dim a As Integer, b As Integer, c As Integer a = 5: b = 3 Print Print Tab(15);"a";Tab(25);"b";Tab(34);" c = a * b" Print "调用 Prod 前";Tab(14);a;Tab(24);b;Tab(34);c Call Prod Print "调用 Prod 后";Tab(14);a;Tab(24);b;Tab(34);c Print Print "调用 Sum 前";Tab(14);a;Tab(24);b;Tab(34);c Print Call Sum Print "调用 Sum 后";Tab(14);a;Tab(24);b;Tab(34);c End Sub Sub Prod()Dim a As Integer, b As Integer, c As Integer c = a * b Print "Prod 子程序";Tab(14);a;Tab(24);c;Tab(34);c End Sub Sub Sum()Dim a As Integer, b As Integer, c As Integer c = a + b Print "Sum 子程序";Tab(14);a;Tab(24);c;Tab(34);c End Sub 5 Private Sub Form_Click()Sub subP(b()As Integer)For I = 1 To 4 b(I)= 2 * I Next I End Sub Private Sub Command1_Click()
Dim a(1 To 4)As Integer a(1)= 5 a(2)= 6 a(3)= 7 a(4)= 8 subP a For I = 1 To 4 Print a(I)Next I End Sub 6 Function judge(a As Single, b As Single, z As Single)As Boolean If a > 0 And b > 0 And c > 0 And a + b > c And a + c > b And b + c > a Then judge = ture Else judge = False End If End Function Private Sub Form_Click()Dim x As Single, y As Single, z As Single x = Val(InputBox("请输入第一条边:"))y = Val(InputBox("请输入第二条边:"))z = Val(InputBox("请输入第三条边:"))If judge(x, y, z)Then area x, y, z Else MsgBox "该三条边不能构成三角形" End If area x, y, z End Sub Sub area(a As Single, b As Single, c As Single)Dim s As Single, t As Single t =(a + b + c)/ 2 s = Sqr(t *(t-a)*(t-b)*(t-c))Print s End Sub
