- 1、本文档共43页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第3章 顺序结构程序设计 一个完整的VB应用程序,一般都包含三部分内容,即 输入 → 处理 → 输出 可通过VB语句、各种控件实现输入输出操作 本章主要内容 赋值与输入输出 1. 赋值语句[Let]变量名=表达式 示例:x = 5 * 1.4 2. 注释、结束和暂停语句 (1) 注释语句 Rem 注释内容 或 ′ 注释内容 (2) 结束语句 End (3) 暂停语句 Stop 也可以通过单击工具栏上的“中断”按钮来实现 使用Ctrl + Break组合键,可强制程序暂停运行 说明 (1)表达式中的变量必须是赋过值的,否则变量的初值自动取零值(变长字符串变量取空字符)。例如: a = 1 c = a + b + 3 ′b未赋过值,为0 执行后,c 值为 4 (2)赋值语句跟数学中等式具有不同的含意,例如 x = x + 1 表示把变量x的当前值加上1后再将结果赋给变量 “先读后写”:读出x的内容 → 加1 → 写回x(覆盖原有内容) 说明 (3)变量出现在赋值号的右边和左边,其用途是不相同的。出现在右边表达式中时,变量是参与运算的元素(其值被读出);出现在左边时,变量起存放表达式的值的作用(被赋值)。例如 x = 2 a = 3 x = 2*a + 5 当执行第3行语句“x=2*a+5”时,将读出变量a的值(即3),把该值乘2后加5,然后将结果(11)赋值给变量x。 (4)赋值号两边的数据类型必须一致,即同时为数值型或同时为字符型。 编写的窗体单击事件过程代码如下: Private Sub Form_Click() Dim x As Integer, a As Integer Dim b As Integer, c As Integer x = 36 a = Int(x / 10) 求十位数 b = x Mod 10 求个位数 c = b * 10 + a 生成新的数 Print 处理后的数: ; c End Sub 运行程序后单击窗体,输出结果是: 处理后的数:63 编写的VB程序代码如下: Private Sub Form_Click() Dim x As Integer, a As Integer Dim b As Integer, c As Integer x = InputBox(“输入一个2位数”) ‘运行时由用户任意给定一个2位数 a = Int(x / 10) 求十位数 b = x Mod 10 求个位数 c = b * 10 + a 生成新的数 Print 处理后的数: ; c End Sub 执行后,弹出一个输入对话框,若用户输入“83”,输出结果: 处理后的数: 38 例3.2 设计程序,实现两个文本框内容的交换 (1)在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码 借助于另一个变量(假设为 t) ,并直接在控件中交换数据 Private Sub Command1_Click() ′“交换”按钮 Dim t As String t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End Sub 采用变体型变量 编写的程序代码如下 :
您可能关注的文档
- 中国人的情与利综述.doc
- 岳麓版历史必修一第6课分解.ppt
- 中国人民站起来了.综述.ppt
- 中国人民的好朋友综述.ppt
- 中国企业海外上市的动因——20135111029(李幸鸽)综述.doc
- 中国企业海外投资的企业社会责任-作业5综述.docx
- 中国企业管理中存在的问题综述.doc
- 中国企业海外投资与并购综述.ppt
- 质量通病防治措施方案报质监站分解.doc
- 中国企业管理模式综述.ppt
- 2023-2024学年广东省深圳市龙岗区高二(上)期末物理试卷(含答案).pdf
- 2023-2024学年贵州省贵阳市普通中学高一(下)期末物理试卷(含答案).pdf
- 21.《大自然的声音》课件(共45张PPT).pptx
- 2023年江西省吉安市吉安县小升初数学试卷(含答案).pdf
- 2024-2025学年广东省清远市九校联考高一(上)期中物理试卷(含答案).pdf
- 广东省珠海市六校联考2024-2025学年高二上学期11月期中考试语文试题.pdf
- 2024-2025学年语文六年级上册第4单元-单元素养测试(含答案).pdf
- 2024-2025学年重庆八中高三(上)月考物理试卷(10月份)(含答案).pdf
- 安徽省安庆市潜山市北片学校联考2024-2025学年七年级上学期期中生物学试题(含答案).pdf
- 贵州省部分校2024-2025学年九年级上学期期中联考数学试题(含答案).pdf
文档评论(0)