算法基础与VB基本语句

《算法基础与VB基本语句》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、新编VisualBasic程序设计教程1第4章算法基础与VB基本语句4.1算法基础1、概念解决某个问题所使用的方法和步骤。亦称算法设计2、算法分类1）数值计算算法。例：四则运算、求微积分2）非数值计算算法。例：数据的查找、分类、排序3、算法描述—流程框图、流程图举例：求2个学生的平均成绩。其中学生A为95分，B为70分。方法：1）将95分赋予变量A，70分赋予变量B2）A加B的值除以2，结果赋予变量C3）打印输出C值2根据以上题意绘出流程图：图形说明：开始A=95B=70C=（A+B）/2输出C结束

2、流程的起点与终点数据处理数据的输入/输出条件判断一个特定过程流程线流程图上与其它部分相连的点34、基本算法结构ABABeTrueFalseAAeFalseFalseTrueTruee循环结构循环结构顺序结构分支结构循环体当型循环当条件e成立，继续执行A直到型循环反复执行A，直到条件满足为止44.2赋值语句与InputBox、MsgBox函数4.2.1赋值语句LET变量名（或属性名）=表达式LETa=8将数值8赋予变量aa=8k1=“Madeinchina”C=（x+y）/6Text1.Fout.Si

3、ze=18仍举上例：求2个学生的平均成绩。其中A为98分，B为70分。PrivateSubCmd1_Click()DimAasIntegerDimBasIntegerDimCasIntegerA=95B=70C=（A+B）/2PrintCEndSub54.2.2InputBox函数功能：建立输入对话框，用来接受用户通过键盘输入的数据。格式：变量名=InputBox(提示用文字信息[，对话框标题][，预设用户编辑框内的缺省值])[，X，Y][，帮助文件名，帮助主题号])举例：在用户界面上设置一个按钮，

4、当按下按钮时出现一个输入对话框，在用户编辑框内输入数据后，按对话框“确定”按钮，窗体上显示该数据。6OptionExplicitPrivateSubCommand1_Click()DimwordAsStringword=InputBox("请输入需在窗体中显示的内容：",_"输入对话框","江南大学纺织服装学院")PrintwordEndSub4.2.3MsgBox函数功能：建立消息框，显示简短消息，并要求用户作出响应。格式：abc=MsgBox(Prompt[,Button][,Title][,H

5、,C]提示用文字信息对话框标题数值常量c1+c2+c3+c4下转：第4章VB教材举例1(4.2.2)换行：chr(13)+chr(10)7举例1：窗体中设置一个文本框，一个按钮。当按下按钮时，出现一个消息框，应答后按要求操作。（参见P62表4-2（a、b、c、d））8OptionExplicitPrivateSubCommand1_Click()DimabcAsStringIfText1.Text=""Thenabc=MsgBox("您没有在文本框中输入任何内容"_,1+48+0+0,"提示消息"

6、)ElsePrint"很好！您已经输入内容了。"EndIfEndSub下转：第4章VB教材举例2(4.2.3-1)9举例2：在关闭应用程序时，系统常常会弹出一个消息框提示用户是否真的退出程序。利用MsgBox函数的返回值可实现此操作。（参见P63表4-3）10OptionExplicitPrivateSubCmd1_Click()Label1.Caption="谢谢！"EndSubPrivateSubCmd2_Click()DimtangAsStringtang=MsgBox("是否真的要退出程序

7、？",4+32,"提示")Iftang=6ThenEnd‘6是Yes的返回值EndSub下转：第4章VB教材举例3(4.2.3-2)114.3分支结构与分支结构语句4.3.1If-Then-Else-EndIf结构语句功能：根据条件e具有分支判断功能格式：IfeThen[A组语句]Else[B组语句]EndIfABeTrueFalse分支结构XABe12举例：从键盘输入一个数X，如果X>=0，则打印该数；如果X<0，则打印该负数。13OptionExplicitPrivateSubCommand1

8、_Click()DimxAsSinglex=InputBox("请输入X的值:","输入X",0)Ifx>=0ThenPrint“x=”;x‘A组语句Elsex=abs(x)Print“x=-”;x‘B组语句EndIfEndSubPrivateSubCommand2_Click()DimtangAsStringtang=MsgBox("是否真的要退出程序？",4+32,"提示")Iftang=6ThenEndEndSub下转：第4章VB教材举例4(4.3.1-1)1