visual basic入门第六讲 vb控制结构

《visual basic入门第六讲 vb控制结构》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic6.0程序设计编程的基本步骤输入数据处理数据输出结果输入处理输出1编程的基本思路设计输入界面Inputbox文本框等控件处理数据-算法。如：求整数N以内的奇数。算法为：从1至N分别除2，如不能整除则为所求，将其输出。设计输出界面Print文本框等控件2文本框，用于输入数据命令按钮，用于触发处理程序标签，起提示作用3PrivateSubCommand1_Click()DimaAsIntegera=Val(Text1.Text)Ifa<1ThenMsgBox"请输入正确数据！"Text1.Text=""Text1.SetFocusExitSubEndIfFori=1ToaI

2、fiMod2<>0ThenPrinti;EndIfIfiMod10=0ThenPrintNextEndSubPrivateSubCommand1_Click()a=Text1.TextFori=1ToaIfiMod2<>0ThenPrintiEndIfNextEndSub4顺序结构顺序结构：按照程序语句行的自然顺序，一条语句一条语句的执行程序。如：Form1.FontSize=16print"计算机"或：print"计算机"Form1.FontSize=165第7章VisualBasic控制结构一、选择结构程序设计本章要点:条件语句单行结构条件语句If...Then...Else...块结构

3、条件语句If...Then...EndIf多分支选择语句SelectCase...EndSelect特点:根据条件是否成立，决定程序的执行分支6单行结构条件语句1.格式If<条件>Then[<语句组1>][Else<语句组2>]2.功能如果<条件>成立，则执行<语句组1>否则执行<语句组2>T语句组1条件？语句组2F共同出口73.说明(1)<条件>为：表达式、变量、常量，其值为布尔型。可以是：关系表达式:a=1:b=2；a>=b结果为FalseIfa>=bThen….布尔表达式:a=True:b=False；aandb结果为FalseIfList1.Selected(i)Then….Ifaa

4、ndbThen数值表达式：0为False；非0为True例如:a=1,ifaThen….字符串表达式："0"为False；非"0"为True例如:a="0",ifaThen…复杂的条件:a=0:b=1,Ifa。T语句组1条件？F例:IfX<>"aaa"ThenPrintX(3)<语句组1>、<语句组2>:可以有多条语句，各语句之间用冒号隔开。例:IfN>0ThenA=A+B:B=B+AElseA=A-B:B=B-A9(4)应作为一条语句书写。如果语句太长需要换行，必须在折行处使用续行符号“_”。(5)无论条件是否成立

5、，都具有共同出口例:IfX>=0ThenX=1+XElseX=5-XY=1-XPrint"Y=";Y若X=2则打印Y=-2若X=-2则打印Y=-6共同出口(6)单行结构条件语句可以嵌套IF...THEN...IF...THEN...ELSE...ELSE…X=10:Y=-20IfX>0ThenIfY>0ThenMsgBox"InA"ElseMsgBox"InD"_ElseIfY>0ThenMsgBox"InB"ElseMsgBox"InC"10块结构条件语句1.格式If<条件1>Then[<语句组1>][ElseIf<条件2>Then[<语句组2>]]……[ElseIf<条件N>Then[<

6、语句组N>]][Else[<其他语句组>]]EndIfIf<条件1>Then[语句组1]Else[语句组2]EndIfElse子句ElseIf子句If语句EndIf语句注意:格式书写、嵌套11块结构条件语句的功能：T……TTF条件1语句组1语句组2条件2F条件n语句组nF语句组n+112【例7-1】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。

7、x

8、x≤0lnxx>0y=Command1Text1Label3控件名称属性按钮Command1Caption=“计算Y”文本框Text1Text1=“”标签Label1,Label2,Label3Caption

9、分别为“X=”,“Y=”,””13IfX<=0ThenY=Abs(X)ElseY=Log(X)EndIfPrivateSubCommand1_Click()X=Val(Text1.Text)IfX<=0ThenY=Abs(X)ElseY=Log(X)Label3.Caption=YEndSubIfX<=0ThenY=Abs(X)ElseY=Log(X)EndIf将单行If语句改为快状14【例7-2】输入华氏温