Vb上机操作复习要点.doc

Vb上机操作复习要点一、for语句格式：For循环变量=初值To终值Step步长值 语句组（循环体）Next循环变量例如：For i = 10 To 1 Step -1Print iNext i二、利用循环实现累加累乘计数功能1累加器格式：S=S+i (i为循环变量)经常用于有规律的加法运算计算s=1+3+5+7+.+99S=0For i=1 to 50 S=s+2*i-1Next i计算s=1+2+3+.100S=0For i=1 to 100 step 1 S=S+iNext i计算s=1+3+5+7+.+99S=0For i=1 to 99 step 2 S=s+iNext i2记数器：格式：s=s+1（数字1） 经常用于统计个数统计1到1000之间既能被3整除又能被7整除的数的个数s=0For i=1 to 1000 If i mod 3=0 and i mod 7=0 then s=s+1Next i3、累乘计算格式：s=sI (i为循环变量)计算t=1*2*3*10s=1For i=1 to 10s=s*iNext I三、 典型例题2、100到200之间能被3整除的数的个数是Dim I As Integer Dim S As IntegerS = 0 For i = 100 To 200 If I Mod 3 = 0 Then S=s+1 End If Next i Print 100到200之间能被3整除的数的个数是：; S2、求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整除数的积：; S4、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整除的数的个数：; S5、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 IntegerDim s As Integers = 0 For i = 2 to 100 Step 2 s = s + iNext iPrint 2到100的所有偶数和是：; s7、从1累加到10的值是：Dim i As IntegerDim s As Integers = 0For i = 1 To 10s=s+i Next iPrint 从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 语句1else 语句2end if例：IF x=60 then print “合格”Elseprint “不合格”End IF典型例题第1题:在窗体Form1.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：编程实现求下列分段函数的值。 例：在text1文本框中输入大于0的正整数x，计算当x3时在text2文本框中输出8，否则text2文本框中输出x与3的积。测试数据在text1文本框中输入2，text2文本框输出 8；在text1文本框中输入5，text2文本框输出 15。在text1文本框中输入6，text2文本框输出 18。程序代码:dim x as integer -(变量定义)x=text1 -（输入语句）if x23 、a+23b 、b+23a ，则在Text3文本框中输出是，否则在Text3文本框中输出否。测试数据在Text1文本框中输入33，在Text2文本框中输入25，Text3文本框输出是；在Text1文本框中输入33，在Text2文本框中输入5，Text3文本框输出否；在Text1文本框中输入17，在Text2文本框中输入16，Text3文本框输出是；程序代码：dim a as integerdim b as integera=text1b=text2if a+b23 and a+23b and b+23a then text3=是else text3=否end if第5题: 窗体Form1.frm的Command1_Click事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 从text1文本框中输入一个数，判断能否被7整除，并在text2文本框中输出结果能或不能。测试数据在text1文本框中输入14，在text2文本框中输出：能；在text1文本框中输入8，在text2文本框中输出：不能；在text1文本框中输入28，在text2文本框中输出：能；程序代码：dim a as integera=text1if a mod 7=0 thentext2=能elsetext2=不能end if第6题:请输入一个整数, 判断该数是正数还是负数程序代码:dim a as integera=text1if a0 then text2=正数else if a0 then tex