access编程题复习.docVIP

例1：求1~100的各数和 ? rem 方法1 s=0 for I=1 to 100 s=s+I next I debug.print s rem 方法2 s=0 I=1 do while I=100 s=s+I I=I+1 Loop Debug.print s rem 方法3 s=0 I=1 do until I100 s=s+I I=I+1 Loop Debug.print s rem 方法1 s=0 for I=1 to 100 step 2 s=s+I next I debug.print s rem 方法2 s=0 I=1 do while I=100 s=s+I I=I+2 Loop Debug.print s ? rem 方法1 s=0 for I=2 to 100 step 2 s=s+I next I debug.print s rem 方法2 s=0 I=2 do while I=100 s=s+I I=I+2 Loop Debug.print s ? 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_num end sub Sub calcu() s = 0Max = 0for i=1 to 5　 k = InputBox(请输入一个数字：, 输入数据)　If k Max Then Max = k　s = s + knextavg = s / 5msgbox　最大数为 max ,平均数为 avg_num end sub 　???? 任意输入三个数,排序后从大到小显示出来. sub calcu() k = InputBox(请输入一个数字：, 输入数据)k = InputBox(请输入一个数字：, 输入数据)k = InputBox(请输入一个数字：, 输入数据)if xy then?? k=x? x=y? y=kendifif xz then?? k=x? x=zz=kendif if yz then?? k=y? y=z? z=kendif msgbox　x,y,z end sub ? 例11.???? 求一元二次方程解 例12.为多分支方程求解 ? ? 　　 Sub sub1()s=计算机等级考试m= for i=len(s)? to? 1 step -1 m=m+mid(s,i,1) next msgbox m end sub