代码VBA资料解读.doc

实验 10－1 输出任意两个数中的最大的数（程序1）。 程序1的代码如下： Dim FirstNum As Integer Dim SecoNum As Integer FirstNum = InputBox(请输入第一个要比较的数：, 输入, 1) SecoNum = InputBox(请输入第二个要比较的数：, 输入, 1) If FirstNum SecoNum Then MsgBox 最大的数是 Str(FirstNum), VbOLOnly + VbInformation, 结果 Else MsgBox 最大的数是 Str(SecoNum), VbOLOnly + VbInformation, 输出结果 End If 实验 10－2 输出任意10个数中负数的个数、偶数的个数和奇数的个数（程序2）。 程序2的代码如下： Dim Num(10) As Integer Dim a As Integer Dim b As Integer Dim c As Integer Dim i As Integer For i=1 To 10 Num(i)=InputBox(请输入任意10个数(负数、偶数、奇数)！！！, 输入，1) If Num(i)0 Then a=a+1 Else If Num(i) Mod 2=0 Then b=b+1 Else c=c+1 End If End If Next i MsgBox 负数的个数为： Str(a) VbCrLf 偶数的个数为： Str(b) VbCrLf 奇数的个数为： Str(c), VbOKOnly + VbInformation, 提示  实验 10－3 求1～100的自然数和（程序3）。 程序3的代码如下： Dim i As Integer Dim Sum As Integer For i=1 To 100 Sum=Sum+i Next i MsgBox 1到100的自然数的和为： Str(Sum), VbOKOnly + VbInformation, 提示 实验 10－4 求10！（程序4）。 程序4的代码如下： Dim i As Integer Dim M As Long M=1 For i=1 To 10 M=M*i Next i MsgBox 10的阶乘为： Str(M), VbOkOnly + VbInformation, 结果 实验 10－5 输出1～100自然数中被3整除的数据的个数及它们的和（程序5）。 程序5的代码如下： Dim i As Integer Dim S As Integer Dim C As Integer For i=1 To 100 If i Mod 3 = 0 Then S=S+i C=C+1 End If Next i MsgBox 1到100自然数中能被3整除的数的个数为： Str(C) 它们的和为： Str(S), VbOkOnly + VbInformation, 提示  实验 10－6 求P的值（程序6）。P=1+2!+3!+4!+5!+6!+7!+8!+9!+10! 程序6代码如下： Dim P As Double Dim M As Double Dim i As Integer M=1 For i=1 To 10 M=M*i P=P+M Next i MsgBox P的值为： Str(P), VbOkOnly + VbInformation, 提示 实验 10－7 求S的值（程序7）。S=1+(1/2)+(1/3)+(1/4)+…+(1/10) 程序7的代码如下： Dim i As Integer Dim S As Single For i = 1 To 10 S=S+1/i Next i MsgBox S的值为： Str(S), VbOkOnly + VbInformation, 提示 实验 10－8 求S的值（程序8）。S=1+(1+2)+(1+2+3)+(1+2+3+4)+…+(1+2+3+4+…+N)(N=50)。 程序8的代码如下： Dim i As Integer Dim j As Integer Dim S As Integer For i=1 To 50 For j=1 To i S=S+j Next j Next i MsgBox S的值为： Str(S), VbOkOnly + VbInformation, 提示  实验 9 输出任意10个数中超过平均值的个数，并将超过平均值的个数在窗体上输出（程序9）。 程序9 的代码如下： Pub