【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“vb第三章 简单的程序设计 - 计算机教材”一文，供大家参考学习

第三章简单的程序设计第三章简单的程序设计主讲佟彪辽宁省交通高等专科学校测绘系简单的程序设计简单的程序设计3.1 顺序结构3.2 输入和输出3.3 选择结构3.4 选择控件3.5 程序调试和帮助3.6 应用举例关于输入和输出关于输入和输出DimabcpsaText1.TextbText2.TextcText3.Textpabc/2sSqrp-ap-bp-cpText4.Texts变量声明数据输入变量在左计算根据公式进行结果输出变量在右VB的输入和输出方法VB的输入和输出方法输入数据进入内存变量文本框InputBox读数据文件输出数据从内存变量传出存储或显示文本框Print方法MsgBox写数据文件顺序结构顺序结构结构化的程序设计包含三种基本结构顺序结构、选择结构、循环结构顺序结构按照语句的顺序执行的结构VB语言的书写规则赋值语句End语句VB语言的书写规则VB语言的书写规则VB代码中不区分大小写语句书写自由一行多条一条多行注释语句单行‘或rem多行块行号与标号赋值语句赋值语句格式Let 变量名 表达式双重功能赋值和计算引用不会改变变量的值赋值才改变变量可以与自身运算给变量赋值和设定属性是VB编程的常见任务几点说明自动判断等号和赋值号赋值号左边只能是变量不能在一条赋值语句中同时给多个变量赋值End语句End语句格式EndEnd If、End Select、End Sub、End Function强迫中止程序不调Unload等事件输入和输出输入和输出InputBox函数MsgBox函数MsgBox过程Print方法Cls方法MsgBoxMsgBoxMsgBox举例MsgBox函数的格式MsgBox提示 按钮标题帮助文件帮助上下文MsgBox过程的格式MsgBox 提示 按钮标题帮助文件帮助上下文Button参数的取值MsgBox函数的返回值MsgBox举例MsgBox举例MsgBox “直接显示提示信息用户只能选择确定按钮”MsgBox “显示三个按钮让用户进行选择” 3”信息提示”参数Button的取值说明参数Button的取值说明类型常量数值功能说明命令按钮种类vbOKOnly0只显示OK一个按钮vbOKCancel1显示OK和Cancel按钮vbAbortRetryIgnore2显示Abort、Retry和Ignore按钮vbYesNoCancel3显示Yes、No和Cancel按钮vbYesNovbRetryCancel45显示Yes和No按钮显示Retry和Cancel按钮图示VbCritical16显示停止图标“×”VbQuestion32显示提问图标“”vbExclamation48显示警告图标“”vbInformation64显示输出信息“i”默认按钮vbDefaultButton10第一个按钮为默认按钮vbDefaultButton2256第二个按钮为默认按钮vbDefaultButton3512第三个按钮为默认按钮vbDefaultButton4768第四个按钮为默认按钮等待模式vbApplicationModal0当前应用程序挂起直到用户对信息框做出响应才继续工作vbSystemModal4096所有应用程序挂起直到用户对信息框做出响应才继续工作MsgBox函数的返回值MsgBox函数的返回值返回常量返回值操作说明vbOK1选择了OK按钮vbCancel2选择了Cancel按钮vbAbort3选择了Abort按钮vbRetry4选择了Retry按钮vbIgnore5选择了Ignore按钮vbYes6选择了Yes按钮vbNo7选择了No按钮InputBoxInputBoxInputBox举例InputBox格式InputBox提示 标题 默认 x坐标y坐标 帮助文件 帮助上下文例如m InputBox“输入分数0100之间” “数据输入” “80”Print方法Print方法格式对象表达式.Print SpcnTabn表达式列表例如Form1.Print Tab6“测量平差程序设计第一版”‘用Tab6控制开始打印位置“”表示继续打印Form1.Print ??打印空行或换行Print Tab8“辽宁省交通高等专科学校”Spc2”测绘系”‘使用Spc2打印2个空格Print方法续Print方法续CurrentX确定打印指针的横坐标CurrentY确定打印指针的纵坐标打印坐标系原点在打印对象的左上角Cls方法Cls方法功能清除Print方法绘制的内容打印指针回到原点格式对象.ClsClsPicture1.ClsForm1.Cls作业习题三作业习题三3. 如何将多条语句写在同一行如何将一条语句写在多行语句注释可以有哪些方法4. 如何指定InputBox输入框中的默认值5. MsgBox函数和语句有哪些区别6. 当窗体的AutoRedraw属性设置为False时用其他窗体遮挡后窗体上本来用Print方法打印显示的内容也会被清除这样的清除与用Cls方法的清除有何不同补充VB的关键字补充VB的关键字VB关键字总结选择结构选择结构If语句Select Case语句条件函数学号抽点程序的完善学号抽点程序的完善原来的代码Dim a b cRandomizea IntRnd 10Text1.Text ab IntRnd 10Text2.Text bc IntRnd 10Text3.Text c加上重复判断的代码Dim a b cRandomizea IntRnd 10Text1.Text ab IntRnd 10If ba Then b IntRnd 10Text2.Text bc IntRnd 10If ca or cb Then c IntRnd 10Text3.Text c学号抽点程序的完善续学号抽点程序的完善续a IntRnd 10Text1.Text ab IntRnd 10If ba Then b IntRnd 10If ba Then b IntRnd 10End IfText2.Text bc IntRnd 10If ca or cb then c IntRnd 10If ca or cb Then c IntRnd 10End IfText3.Text c加上两次判断的程序If语句If语句单行格式的If语句If 条件Then 语句1 Else 语句2例如If ba then b IntRnd 10If ca or cb then c IntRnd 10If a b Then Max a Else Max b If语句续一If语句续一多行格式的If语句单分支If ba Then b IntRnd 10End IfIf ca or cb Then c IntRnd 10End IfIf语句续二If语句续二多行格式的If语句双分支If a b Then Max a Else Max b??可以改写成如下If ab ThenMax aElseMax bEnd IfIf语句续三If语句续三多行格式的If语句多分支If条件1Then语句体1ElseIf条件2Then语句体2……Else语句体nEnd IfIf语句续四If语句续四多行格式的If语句If语句的嵌套IfThenIfThen…EndIfEnd IfIf语句举例If语句举例例3.4将三个数互不相等a、b、c从大到小的排列两种方法例3.5已知字符型变量strCh中存放了一个字符判断该字符是字母、数字还是空格、回车或者其他字符。

    例3.6已知高斯平面上的点y x判断该点落在了哪个象限点例3.4三个数比较大小方法一例3.4三个数比较大小方法一a与b的大小关系ab和ab时比较c与a若ca则c、a、b若cb则a、c、b若cb则c、b、a若ca ThenPrint c b aElseIf cb ThenPrint a c bElseIf cb ThenPrint c b aElseIf cc、acbbac、bcacab、cba。

    因此只要将这六种情况作为条件进行判断即可。

    IfabAndbcThenPrintabcElseIfacAndcbThenPrintacbElseIfbaAndacThenPrintbacElseIfbcAndcaThenPrintbcaElseIfcaAndabThenPrintcabElseIfcbAndbaThenPrintcbaEndIf例3.5判断字符种类例3.5判断字符种类字符种类字母az或者AZ数字09空格“”回车Asc13其他IfLcasestrCh“a”AndLcasestrCh_“0”AndstrCh0 x0 Iy0 IIy0ThenPrint“点在第一象限”ElseIfy0ThenPrint“点在第二象限”ElseIfy90 优8089 良7079 中6069 及格90Level“优”CaseIs80Level“良”CaseIs70Level“中”CaseIs60Level“及格”CaseElseLevel“不及格”End Select 思考思考如何用If语句实现上述成绩的转换用Select Case语句改写用Select Case语句改写SelectCasestrChCase“a”To“z”“A”To“Z”PrintstrCh“是字母字符”Case“0”To“9”PrintstrCh“是数字字符”Case“”PrintstrCh“是空格”CasevbLfPrintstrCh“是回车符”CaseElsePrintstrCh“是其他字符”End Select用Select Case语句改写用Select Case语句改写SelectCaseyxCasex0Andy0Print“点在第一象限”Casex0Print“点在第二象限”Casex