算法基础与VB基本语句.pptxVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多

1新编VisualBasic程序设计教程

第4章算法基础与VB基本语句24.1算法基础1、概念解决某个问题所使用的方法和步骤。亦称算法设计2、算法分类1)数值计算算法。例:四则运算、求微积分2)非数值计算算法。例:数据的查找、分类、排序3、算法描述—流程框图、流程图举例:求2个学生的平均成绩。其中学生A为95分,B为70分。方法:1)将95分赋予变量A,70分赋予变量B2)A加B的值除以2,结果赋予变量C3)打印输出C值

根据以上题意绘出流程图:图形说明:3开始A=95B=70C=(A+B)/2输出C结束流程的起点与终点数据处理数据的输入/输出条件判断一个特定过程流程线流程图上与其它部分相连的点

4、基本算法结构4ABABeTrueFalseAAeFalseFalseTrueTruee循环结构循环结构顺序结构分支结构循环体当型循环当条件e成立,继续执行A直到型循环反复执行A,直到条件满足为止

4.2赋值语句与InputBox、MsgBox函数4.2.1赋值语句LET变量名(或属性名)=表达式LETa=8将数值8赋予变量aa=8k1=“Madeinchina”C=(x+y)/6Text1.Fout.Size=18仍举上例:求2个学生的平均成绩。其中A为98分,B为70分。PrivateSubCmd1_Click()DimAasIntegerDimBasIntegerDimCasIntegerA=95B=70C=(A+B)/2PrintCEndSub

4.2.2InputBox函数1功能:建立输入对话框,用来接受用户通过键盘输入的2数据。3格式:变量名=InputBox(提示用文字信息[,对话框4标题][,预设用户编辑框内的缺省值])5[,X,Y][,帮助文件名,帮助主题号])6举例:在用户界面上设置一个按钮,当按下按钮时出现7一个输入对话框,在用户编辑框内输入数据后,8按对话框“确定”按钮,窗体上显示该数据。9

7OptionExplicitPrivateSubCommand1_Click()DimwordAsStringword=InputBox(请输入需在窗体中显示的内容:,_输入对话框,江南大学纺织服装学院)PrintwordEndSub4.2.3MsgBox函数功能:建立消息框,显示简短消息,并要求用户作出响应。格式:abc=MsgBox(Prompt[,Button][,Title][,H,C]提示用文字信息对话框标题数值常量c1+c2+c3+c4下转:第4章VB教材举例\1(4.2.2)换行:chr(13)+chr(10)

举例1:窗体中设置一个文本框,一个按钮。当按下按钮时,出现一个消息框,应答后按要求操作。(参见P62表4-2(a、b、c、d))

OptionExplicitPrivateSubCommand1_Click()DimabcAsStringIfText1.Text=Thenabc=MsgBox(您没有在文本框中输入任何内容_,1+48+0+0,提示消息)ElsePrint很好!您已经输入内容了。EndIfEndSub下转:第4章VB教材举例\2(4.2.3-1)

举例2:在关闭应用程序时,系统常常会弹出一个消息框提示用户是否真的退出程序。利用MsgBox函数的返回值可实现此操作。(参见P63表4-3)

下转:第4章VB教材举例\3(4.2.3-2)11OptionExplicitPrivateSubCmd1_Click()Label1.Caption=谢谢!EndSubPrivateSubCmd2_Click()DimtangAsStringtang=MsgBox(是否真的要退出程序?,4+32,提示)Iftang=6ThenEnd‘6是Yes的返回值EndSub

4.3分支结构与分支结构语句4.3.1If-Then-El

文档评论(0)

shao1452 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档