Vb上机操复习要点.docVIP

Vb上机操作复习要点 一、for语句 格式： For???循环变量=初值??To??终值??Step??步长值 ?????????????? 语句组（循环体） Next??循环变量 例如： For i = 10 To 1 Step -1 Print i Next i 二、?????????? 利用循环实现　累加　累乘　计数　功能 1累加器 格式：S=S+i?????? (i为循环变量) 经常用于有规律的加法运算 计算s=1+3+5++7+….+99 S=0 For i=1 to 50 ? S=s+2*i-1 Next i 计算s=1+2+3+….100 S=0 For i=1 to 100 step 1 ? S=S+i Next i 计算s=1+3+5++7+….+99 S=0 For i=1 to 99 step 2 ? S=s+i Next i ? 2记数器．： 格式：s=s+1（数字1） ?????经常用于统计个数 统计1到1000之间既能被3整除又能被7整除的数的个数 s=0 For i=1 to 1000 ? If i mod 3=0 and i mod 7=0 then s=s+1 Next i ? 3、累乘计算 格式：s=s＊I?????? (i为循环变量) 计算t=1*2*3*…*10 s=1 For i=1 to 10 ??s=s*i Next I ? 三、?????????? 典型例题 2、100到200之间能被3整除的数的个数是 Dim I As Integer ? Dim S As Integer ??S = ?0 ? For i = 100 To 200 ???? If I Mod 3 = 0 Then ??????? ??S=s+1? ????? End If ? Next i ? Print 100到200之间能被3整除的数的个数是：; S ? 2、求5*6*…*25的积 Dim I As Integer ? Dim S As Double ? S = ?1? ? For i = 5 To 25 Step 1 ???? S = ?S * i ? Next I ? Print 求5*6*…*25的积：; S ? 3、计算1到100之间,所有能被3整除数的积 Dim I As Integer ? Dim S As Double ? S = 1 ? For i = ??3? ?To 100 Step 3 ????? ??s=s*i?????? ? Next ? Print 计算1到100之间,所有能被3整除数的积：; S ? 4、3到100之间所有能被3整除的数的个数 Dim I As Integer ? Dim S As Integer ? S = 0 ? For i = 3 To 100 Step ?3 ? ??? ?s= s+1 ? Next ? Print 3到100之间(包括3)所有能被3整除的数的个数：; S ? 5、10到200之间所有的奇数的和是 Dim I As Integer ? Dim S As Integer ? S = ?0 ? For i = 10 To 200 Step 1 ???? If Int(I / 2) I / 2 Then ????? ??s=s+i? ??? End If ? Next ? Print 10到200之间所有的奇数的和是：; S ? 其中int(x)函数的含义：取不大于x的最大整数，?例如：int(3.8)=3? int(6.5)=6? ? 6、2到100的所有偶数和是 Dim i As Integer Dim s As Integer s = ??0 For i = ?2 to 100? ?Step 2 ?? s = s + i Next i Print 2到100的所有偶数和是：; s ? 7、从1累加到10的值是： Dim i As Integer Dim s As Integer s = 0 For i = 1 To 10 ???s=s+i? ?????? Next i Print 从1累加到10的值是：; ??s?? ?  ?If语句 格式一：(简单格式) if ?条件 then 语句 if ?条件 then 语句1 else语句2 例： IF x=80 then print “优良” IF x=y then a=x else a=y 格式二：(分段书写) if ?条件? then ??????????? 语句1 else ??????????? 语句2 end if 例：IF x=60 then? print “合格” Else print “不合格” E