VBA编程复习.doc

例1：求1100的各数和 rem 方法1s=0for I=1 to 100s=s+Inext Idebug.print srem 方法2s=0I=1do while I100s=s+II=I+1LoopDebug.print s例2：求1100的奇数和rem 方法1 s=0for I=1 to 100 step 2s=s+Inext Idebug.print srem 方法2s=0I=1do while I=100s=s+II=I+2LoopDebug.print s例3：求1100的偶数和rem 方法1 s=0for I=2 to 100 step 2s=s+Inext Idebug.print srem 方法2s=0I=2do while I=100s=s+II=I+2LoopDebug.print s例4:求N！Sub jc()Dim n As Integern = InputBox(求N！请输入N值)t = 1For i = 1 To nt = t * iNext iDebug.Print tEnd Sub例5:求最大公约数Sub zdgys()Dim a, b As Integera = InputBox(请输入第一个数)b = InputBox(请输入第二个数)Doc = a Mod ba = bb = cLoop While c 0Debug.Print aEnd Sub求最小公倍数求最小公倍数时,我们可以用两个数的积,除以它们的最大公约数,便得出了最小公倍数.Sub zdgys()Dim a, b As Integera = InputBox(请输入第一个数)b = InputBox(请输入第二个数)x=ay=bDoc = a Mod ba = bb = cLoop While c 0Debug.Print 最小公倍数 & x*y/aEnd Sub例6:求圆面积Private Sub btn1_Click( )txt1.SetFocusr = Val(txt1.Text)txt2.SetFocustxt2.Text = Str(area( r ) 调用函数area(r)End SubFunction area( k As Integer) As Singlearea = 3.14 * k * k 求半径为k的圆的面积areaEnd Function例7:求输入数的和Sub sum()S=0:I=1Do while I intb Thenintmaxnum = intaElseintmaxnum = intbEnd IfMsgBox 较大数为： & intmaxnum end sub例9:求输入五个数中的最大值和平均值Sub calcu()s = 0i = 1Max = 0Do Until i 5k = InputBox(请输入一个数字：, 输入数据)If k Max Then Max = k if 结束s = s + ki = i + 1这里不需要end ifLoopavg_num = s / 5msgbox最大数为 & max & ,平均数为 & avg_numend subSub calcu()s = 0Max = 0for i=1 to 5 k = InputBox(请输入一个数字：, 输入数据)If k Max Then Max = ks = s + knextavg = s / 5msgbox最大数为 & max & ,平均数为 & avg_num end sub例10. 任意输入三个数,排序后从大到小显示出来.sub calcu()k = InputBox(请输入一个数字：, 输入数据)k = InputBox(请输入一个数字：, 输入数据)k = InputBox(请输入一个数字：, 输入数据)if xy then k=x x=y y=kendifif xz then k=x x=zz=kendifif yz then k=y y=z z=kendifmsgboxx,y,zend sub 例11. 求一元二次方程解 例12.为多分支方程求解 在屏幕上倒序输出计算机等级考试。