VB程序设计有关问题本课程期末试题类型及试题分析方法.ppt

VB程序设计有关问题本课程期末试题类型及试题分析方法.ppt

  1. 1、本文档共93页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《Visual Basic编程与应用》 复习;本讲主要的内容:;本课程期末试题类型及试题分析方法 ;一?、试题类型;(一)填空题 (二)单项选择题 (三)判断并改错题 (四)读程序并写出程序运行结果 (五)编程序题;二、试题分析;例1:单项选择题 下列控件中可自动设置滚动条是( )。 A 复选框 B 框架 C 文本框 D 标签框;;例2:判断并改错 一个VB表达式为C1+sin(5Ο);;;例4 读程序并填空 ;程序的功能是: 当单击开始按钮时,文本编辑框中随机显示一试题,如7+3=?等,同???弹出一个输入框,要求用户填写试题结果,程序自动验算结果并显示OK!或NO! ; 程序清单如下,请把空语句填好。 ;Private Sub 1 _Click() i = Int(10 * Rnd) j = Int(10 * 2 ) Text1.Text = i + j =? s = Val(InputBox(请输入答案, 输入, 0)) If s = i + j Then Text1. 3 = Ok! Else Text1.Text = No! End 4 End Sub;VB 程序设计有关问题 ;1、VB 应用程序设计主要步骤 2、VB应用程序的结构 3、变量的作用范围 4、变量的生存周期 5、过程的作用范围;1、VB程序设计主要步骤; 例1.1 编写一程序。要求: 输入一个数据,给该数据分别加上100和200,把结果分别在两个文本框中显示出来。 ;设计应用程序界面 设置属性; 该程序由窗体模块和标准模块组成。;窗口模块程序如下: Private Sub Command1_Click() a = Val(Text1.Text) test2 test3 End Sub;Sub test2() Text2.Text = a + 100 End Sub Private Sub Command2_Click() End End Sub;标准模块程序如下: Public a As Integer Sub test3() a = a + 200 Form1.Text3.Text = a End Sub;2、VB应用程序的结构; Command1_ Click();VB应用程序结构图; 函数过程; 3、变量的作用范围; (1) 变量的作用范围是指变量的有效范围。 ;变量 ; 例3.1公用变量示例;窗体模块程序如下: Private Sub Command1_Click() a = Val(Text1.Text) test2 test3 End Sub;Sub test2() Text2.Text = a + 100 End Sub Private Sub Command2_Click() End End Sub;标准模块程序如下: Public a As Integer Sub test3() a = a + 200 Form1.Text3.Text = a End Sub;程序运行结果:; Command1_ Click();小结: 公用变量在所有过程中都能使用。;例3.2 私有变量示例;窗体模块代码如下: Dim a As Integer Private Sub Command1_Click() a = Val(Text1.Text) test2 test3 End Sub;Sub test2() Text2.Text = a + 100 End Sub Private Sub Command2_Click() End End Sub;标准模块代码如下: Sub test3() a = a + 200 Form1.Text3.Text = a End Sub ;程序运行结果; Command1_ Click();小结: 私用变量在声明它的整个模块的所有过程中使用。;例3.3 过程变量示例;Private Sub Command1_Click() Dim a As Integer a = Val(Text1.Text) test2 test3 End Sub;Sub test2() Text2.Text =

文档评论(0)

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

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

1亿VIP精品文档

相关文档