Vb上机操作复习要点.docxVIP

Vb上机操作复习要点 一、 for语句 格式： For 循环变量二初值 To 终值 Step 步长值 语句组（循环体） Next 循环变量 例如： For i = 10 To 1 Step -1 Print i Next i 二、 利用循环实现累加累乘计数功能 1累加器 格式：S二S+i （i为循环变量） 经常用于有规律的加法运算 计算s=l+3+5++7+???.+99 S=0 For i=l to 50 S二s+2*i-l Next i 计算s=l+2+3+???.100 S=0 For i=l to 100 step 1 S 二 S+i Next i 计算s二1+3+5++7+????+99 S=0 For i=l to 99 step 2 S=s+i Next i 2记数器.: 格式：s二s+1 （数字1） 经常用于统计个数 统计1到1000之间既能被3整除又能被7整除的数的个数 s=0 For i=l to 1000 If i mod 3=0 and i mod 7=0 then s二s+1 Next i 3、累乘计算 （i为循环变量）格式：s （i为循环变量） 计算t二l*2*3*???*10 s=l For i=l to 10 s二s*i Next 1 2、100到200之间能被3整除的数的个数是 Dim I As Integer Dim S As Integer S = _0_ For i = 100 To 200 If 1 Mod 3=0 Then S 二 s+1 End If Next i Print 100到200之间能被3整除的数的个数是：；S 2、求5*6*???*25的积 Dim T As Integer Dim S As Double S = _J_ 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 For i = 3 To 100 Step 3 s二s*i Next Print 计算1至IJ100Z间，所有能被3整除数的积：〃；S 4、3至IJ 100之间所有能被3整除的数的个数 Dim I As Integer Dim S As Integer S 二 0 For i = 3 To 100 Step 3 s 二 s+1 Next Print z，3至U 100之间（包括3）所有能被3整除的数的个数：〃；S 5、10到200之间所有的奇数的和是 Dim 1 As Integer Dim S As Integer S 二 0 For i 二 10 To 200 Step 1 If Int (I / 2) OI/2 Then s 二 s+i End If Next Print 10到200 Z间所有的奇数的和是：〃；S 其中int(x)函数的含义: 取不大于x的最大整数, 例如: int (3. 8)=3 int (6. 5) =6 6、 2到100的所有偶数和是 Dim i As Integcr Dim s As Integer s = 0_ For i 二 2 to 100 Step 2 s = s + i Next i Print z，2到100的所有偶数和是：〃;s 7、 从1累加到10的值是： Dim i As Integer Dim s As Integcr s = 0 For i = 1 To 10 s 二 s+i Next i Print 从1累加到10的值是：〃； s If语句 格式一：(简单格式) if 条件then语句 辻 条件then语句1 else语句2 例: IF x=80 then print “优良” TF x=y then a=x else a=y 格式二：（分段书写） if 条件 then 语句1 else 语句2 end if 例：IF x=60 then print “ 合格” Else print 不合格” End IF 典型例题 第1题：在窗体Forinl. frm的Conimandl_Clickz，事件中编写代码（请不要随便更 改其它代码），使之能够实现如下功能：鼎程实现求下列分段函数的值。例：在 textl文木框中输入大于0的正整数x,计算当x3时在text2文木框中输出〃8〃, 否则text2文本框中输出x与3的积。 测试数据 在textl文本框中输入2, text2文本框输出8； 在textl文本框中输入5, text2文木框输出15。 在lextl文本框中输入6, Lext2文本框输出18。 程序代码： if x3 then text2=8 （输出语句