VB第二章.pptVIP

  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文档。上传文档
查看更多
第2章 Visual Basic语言基础;2.1 VB 的基本数据类型; 11种基本数据类型和用户自定义数据类型;用户自定义类型:又称“记录类型” ,由若干基本类型的数据项组成,可描述同一对象的不同属性。 可用Type语句创建自定义类型,其格式为: Type 数据类型名 数据类型数据项名 As 类型名 数据类型数据项名 As 类型名 …… End Type;2.1.1 用于保存数值的数据类型;2.1.2 日期型数据(Date)  ;2.1.4 逻辑型数据(Boolean);2.1.6 变体型数据(Variant);2.1.6 变体型数据(Variant);2.2 常量与变量;2.2.2 变量;内存变量的建立方法;1、变量命名规则;2、变量的声明;2.3 运算符和运算表达式;2.3.2 字符串运算符和字符串表达式;例:;2.3.3 日期表达式;2.3.4 关系运算符与关系表达式;说明:;2.3.5 逻辑运算符与逻辑表达式; 逻辑运算符 常用的是: Not、And 、 Or Not:表达式数为True时,结果为False;反之亦然。 例如,Not (4 5),结果为True And:两个表达式均为True时,结果为True 例如,(4 5) And (8 7),结果为False Or:两个表达式均为False时,结果为False 例如,(4 5) Or (8 7),结果为True ;2.3.6 表达式的类型转换及执行顺序;2.4 Visual Basic 程序书写规则;2.4 Visual Basic 程序书写规则;2.5 VB的常用内部函数;2.5.1 数学函数;2.5.2 数据类型转换函数;2.5.3 字符串操作函数;2.5.4 日期和时间函数;2.6 VB的基本输入输出语句;2.6.1 消息框MsgBox;2.6.1 消息框MsgBox;2.6.2 输入框 InputBox 函数;2.6.2 输入框 InputBox 函数;2.6.3 Print方法;[例题2-3];2.6.4 格式输出函数;39;[例2-4](P48);2.7 VB的基本控制结构;注:;例2-5 :交换两个变量值;2.7.2 条件分支结构;例:;2.7.2 条件分支结构;例:;例:编写程序实现检查用户输入的密码: ;(3)多分支结构;[例 2-6];Private Sub Form_Click() Dim bGrade As Single, Dgrade As String bGrade = InputBox(请输入学生成绩:, 成绩输入) If bGrade = 90 Then Dgrade = A ElseIf bGrade = 80 Then Dgrade = B ElseIf bGrade = 70 Then Dgrade = C ElseIf bGrade = 60 Then Dgrade = D Else Dgrade = F End If MsgBox 该生的等级制成绩为: Dgrade End Sub;分析右边程序段:;2. 使用Select Case语句;注:;[例题2-7]将[例题2-6]的程序用select case语句编写;[例 2-8];Private Sub Form_Click()  Dim xSum As Single, ySum As Single  xSum = InputBox(请输入购物款:, 输入) Select Case xSum  Case Is = 5000   ySum = 0.8 * xSum  Case Is = 1000   ySum = 0.85 * xSum  Case Is = 500   ySum = 0.9 * xSum  Case Is = 100    ySum = 0.95 * xSum  Case Else   ySum = xSum End Select  MsgBox 该顾客实际应付款为: Str(ySum) End Sub;(4)If 语句的嵌套使用;2.7.3 循环控制结构; [例题 2-10] ☆ [例题 2-11] ☆;[例题2-10] 计算并显示1+2+3+4+……+100的和。程序如下:;[例]求斐波那契级数的前20项 ;(2)Do…Loop循环;(2)Do…Loop循环

文档评论(0)

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

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

1亿VIP精品文档

相关文档