vb上机操作复习要点

《vb上机操作复习要点》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Vb上机操作复习要点一、for语句格式：For循环变量二初值To终值Step步长值语句组（循环体）Next循环变量例如：Fori=10To1Step-1PrintiNexti二、利用循环实现累加累乘计数功能1累加器格式：S二S+i（i为循环变量）经常用于有规律的加法运算计算s=l+3+5++7+・・・.+99S=0Fori=lto50S二s+2*i-lNexti计算s=l+2+3+・・・.100S=0Fori=lto100step1S二S+iNexti计算s二1+3+5++7+・・・・+99S=0Fori=lto99step2S=s+iNexti2记数器.:格式：

2、s二s+1（数字1）经常用于统计个数统计1到1000之间既能被3整除又能被7整除的数的个数s=0Fori=lto1000Ifimod3=0andimod7=0thens二s+1Nexti3、累乘计算（i为循环变量）格式：s二s*I计算t二l*2*3*・・・*10s=lFori=lto10s二s*iNext12、100到200之间能被3整除的数的个数是DimIAsIntegerDimSAsIntegerS=_0_Fori=100To200If1Mod3=0ThenS二s+1EndIfNextiPrint"100到200之间能被3整除的数的个数是："；S2、求5*6*

3、・・・*25的积DimTAsIntegerDimSAsDoubleS=_J_Fori=5To25Step1S二S*iNextIPrint〃求5*6*・・・*25的积：〃；S3、计算1到100之间，所有能被3整除数的积DimIAsIntegerDimSAsDoubleFori=3To100Step3s二s*iNextPrint计算1至IJ100Z间，所有能被3整除数的积：〃；S4、3至IJ100之间所有能被3整除的数的个数DimIAsIntegerDimSAsIntegerS二0Fori=3To100Step3s二s+1NextPrintz，3至U100之间（包括3

4、）所有能被3整除的数的个数：〃；S5、10到200之间所有的奇数的和是Dim1AsIntegerDimSAsIntegerS二0Fori二10To200Step1IfInt(I/2)OI/2Thens二s+iEndIfNextPrint"10到200Z间所有的奇数的和是：〃；S其中int(x)函数的含义:取不大于x的最大整数,例如:int(3.8)=3int(6.5)=66、2到100的所有偶数和是DimiAsIntegcrDimsAsIntegers=0_Fori二2to100Step2s=s+iNextiPrintz，2到100的所有偶数和是：〃;s7、从1累

5、加到10的值是：DimiAsIntegerDimsAsIntegcrs=0Fori=1To10s二s+iNextiPrint从1累加到10的值是：〃；sIf语句格式一：(简单格式)if条件then语句辻条件then语句1else语句2例:IFx>=80thenprint“优良”TFx>=ythena=xelsea=y格式二：（分段书写）if条件then语句1else语句2endif例：IFx>=60thenprint“合格”Elseprint"不合格”EndIF典型例题第1题：在窗体"Forinl.frm"的"Conimandl_Clickz，事件中编写代码（请不

6、要随便更改其它代码），使之能够实现如下功能：鼎程实现求下列分段函数的值。例：在textl文木框中输入大于0的正整数x,计算当x<3时在text2文木框中输出〃8〃,否则text2文本框中输出x与3的积。测试数据在textl文本框中输入2,text2文本框输出8；在textl文本框中输入5,text2文木框输出15。在lextl文本框中输入6,Lext2文本框输出18。程序代码：ifx<3thentext2=8（输出语句）elsetext2=3*xend辻第2题:在窗体"Fornil.frin〃的〃ConunandLClick〃事件中编写代码（请不要随便更改其它代码

7、）,使之能够实现如下功能：求35以内与24匹配的勾股数。例：在Texll输入小于35的正整数a、Text2输入小于35的正整数b,判断242+a2=b2o并在Text3文本框屮显示判断结果，即有等式成立则在Text3文本框中输出〃成立〃，否则输出〃重试〃。测试数据在textl文木框中输入7,在text2文木框中输入25,text3文木框输出〃成立〃■在textl文本框屮输入10,在text2文本框屮输入26,text3文本框输出〃成.亠.〃在textl文本框中输入18,在text2文本框中输入30,text3文本框输岀"成■亠〃在textl文本框中输入5,在tex

8、t2文本框