[计算机软件及应用]VB复习 Visual Basic程序设计.ppt

[计算机软件及应用]VB复习 Visual Basic程序设计.ppt

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
[计算机软件及应用]VB复习 Visual Basic程序设计

目 录 第4章 VB控制结构 4.1 顺序结构 4.2 选择结构 4.3 循环结构 4.4 其它辅助控制语句 4.5 综合应用 4.6 程序调试 相关知识 VB具有结构化程序设计的三种结构,即顺序结构、选择结构、循环结构,是程序设计的基础。 本章要求 掌握并灵活应用顺序结构语句及控件 赋值语句、输入输出函数与控件(InputBox、 TextBox、MsgBox 、Print、Label)示例 掌握并灵活应用选择结构语句 IF语句、SlectCase语句 掌握并灵活应用循环结构语句 For语句、Do…Loop语句 掌握其它辅助语句 学完之后大多数简单的程序都可以编写了。示例 4.1 顺序结构 4.1.1 赋值语句 赋值语句注意点 4.1.2 数据输出和输入 4.1.2 数据输出和输入 MsgBox函数和MsgBox过程 MsgBox按钮设置 MsgBox所选按钮返回值 Print方法 Print方法 思考下面的代码将输出什么内容? Print hello Print 大家好 Print hello; Print 大家好 Print hello, Print “大家好“ Print hello; 大家好 Print hello, 大家好 演示 Print方法 Print方法-精确位置输出 Print方法在窗体上输出内容的位置是由Form的两个属性决定的: CurrentX CurrentY 返回或设置下一次打印或绘图方法的 水平 (CurrentX) 或垂直 (CurrentY) 坐标 Cls方法:清除print输出的内容,并将CurrentX和CurrentY都设置为0。 示例 Format格式输出函数 4.2 选择结构 4.2.1 If条件语句 单分支结构 双分支结构 双分支结构例 多分支结构 多分支结构例 多分支结构例 例子4.8 已知某课程的百分制成绩mark,要求转换对应五级的评定Grade,评定条件如下: 多分支结构例 分析一下三种方法的正确性:演示 If语句的嵌套 4.2.2 Select Case语句 Select Case语句例 Select Case语句例 4.2.3 条件函数 4.2.3 条件函数 综合应用 4.3 循环结构 4.3.1 For循环语句 引例 计算1~100的奇数和? Sum=sum+1+3+5…+99? 循环累加一个有规律的数字。 4.3.1 For循环语句 For循环语句 For循环语句 例4.11 计算1~100的奇数和 Dim i%, sum% For i = 1 To 100 Step 2 sum = sum + i Next i MsgBox(sum) For循环语句 例4.12 将可打印的ASCII码制成表格输出(32-126,1项占8列,一行输出7项。) 先考虑如何输出这些ASCII码值; 考虑如何控制格式? 1项占8列 一行输出7项。 4.3.2 Do…Loop循环语句 Do…Loop流程(While) Do …Loop流程(Until) 循环例题 4.3.3 循环的嵌套 4.4 其他辅助控制语句 4.4 其他辅助控制语句 Private Sub Command1_Click() Dim i%, m% m = Val(Text1) For i = 2 To m - 1 If (m Mod i) = 0 Then Next i Picture1.Print m 是素数 End Sub 4.4 其他辅助控制语句 Private Sub Command1_Click() Dim i%, m%, Tag As Boolean m = Val(Text1) Tag = True 假定是素数 For i = 2 To m - 1 If (m Mod i) = 0 Then Tag = False Next i If Tag Then Picture1.Print m 是素数 End Sub 4.4 其他辅助控制语句 求3~100中的所有素数如何做? Private Sub Form_Click() Dim i%, m%, Tag As Boolean For m=3 to 100 Tag = True 假定是素数 For i = 2 To Sqr(m) If (m Mod i

文档评论(0)

qiwqpu54 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档