vb选修模块复习要点

《vb选修模块复习要点》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、for语句格式：For   循环变量=初值  To  终值  Step  步长值语句组（循环体）Next  循环变量例如：Fori=10To1Step-1PrintiNexti二、利用循环实现　累加　累乘　计数　字窜连接功能1累加器格式：S=S+i(i为循环变量)经常用于有规律的加法运算计算s=1+3+5++7+….+99S=0Fori=1to99step2S=s+iNexti计算s=1+3+5++7+….+99S=0Fori=1to50S=s+2*i-1Nexti计算s=1+2+3+….100S=0Fori=1to100step1S=S+iNext

2、i2记数器．：格式：s=s+1（数字1）经常用于统计个数统计1到1000之间既能被3整除又能被7整除的数的个数s=0Fori=1to1000Ifimod3=0andimod7=0thens=s+1Nexti3、累乘计算格式：s=s＊I(i为循环变量)计算t=1*2*3*…*10s=1Fori=1to10s=s*iNextI三、典型例题2、100到200之间能被3整除的数的个数是DimIAsIntegerDimSAsIntegerS=0Fori=100To200IfIMod3=0ThenS=s+1EndIfNextiPrint"100到200之间能被3整除

3、的数的个数是：";S1、求5*6*…*25的积DimIAsIntegerDimSAsDoubleS=1Fori=5To25Step1S=S*iNextIPrint"求5*6*…*25的积：";S3、计算1到100之间,所有能被3整除数的积DimIAsIntegerDimSAsDoubleS=1Fori=3To100Step3s=s*iNextPrint"计算1到100之间,所有能被3整除数的积：";S4、10到200之间所有的奇数的和是DimIAsIntegerDimSAsIntegerS=0Fori=10To200Step1IfInt(I/2)<>I/

4、2Thens=s+iEndIfNextPrint"10到200之间所有的奇数的和是：";Sl其中int(x)函数的含义：取不大于x的最大整数，l例如：int(3.8)=3int(6.5)=65、3到100之间所有能被3整除的数的个数DimIAsIntegerDimSAsIntegerS=0Fori=3To100Step3s=s+1NextPrint"3到100之间(包括3)所有能被3整除的数的个数：";S6、从1累加到10的值是：DimiAsIntegerDimsAsIntegers=0Fori=1To10S=s+iNextiPrint"从1累加到10的

5、值是：";s7、2到100的所有偶数和是DimiAsIntegerDimsAsIntegers=0Fori=2to100Step2s=s+iNextiPrint"2到100的所有偶数和是：";s8、1到100的所有奇数和是DimiAsIntegerDimsAsIntegers=0Fori=1To100step2s=s+iNextiPrint"1到100的所有奇数和是：";slIf语句例：IFx>=80thenprint“优良”IFx>=ythena=xelsea=y格式一：(简单格式)if条件then语句if条件then语句1else语句2格式二：(分段

6、书写)例：IFx>=60thenprint“合格”Elseprint“不合格”EndIFif条件then语句1else语句2endif典型例题第1题:程序代码:dimxasinteger-----(变量定义)x=text1------------（输入语句）ifx<3thentext2=8--------（输出语句）elsetext2=3*xendif在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能：编程实现求下列分段函数的值。例：在text1文本框中输入大于0的正整数x，计算当

7、x<3时在text2文本框中输出"8"，否则text2文本框中输出x与3的积。测试数据在text1文本框中输入2，text2文本框输出8；在text1文本框中输入5，text2文本框输出15。在text1文本框中输入6，text2文本框输出18。第2题:程序代码：dimaasintegerdimbasintegera=text1b=text2if24^2+a^2=b^2thentext3=="成立"elsetext3="重试"endif在窗体"Form1.frm"的"Command1_Click"事件中编写代码(请不要随便更改其它代码)，使之能够实现如下

8、功能：求35以内与24匹配的勾股数。例：在Text1输入小于35的正整数a、Te