VB程序设计基础(4)

《VB程序设计》第四章第七节Sub Main过程与快速提示窗体第七节Sub Main过程与快速提示窗体1.通过Sub Main过程启动应用程序当应用程序启动时不加载任何窗体，可以通过在标准模块中创建一个Sub Main的子过程（不能在窗体模块中创建Sub Main的子过程），然后在Sub Main的过程中编写启动时要执行的代码，每个工程只能有一个Sub Main的子过程。

设置Sub Main过程为启动对象的方法是从“工程”菜单中，选取“工程属性”命令，在“工程属性”属性页中选“通用”选项卡，然后从“启动对象”框中选定“Sub Main”。

当工程中含Sub Main子过程时，应用程序装载窗体之前总是先执行Sub Main子过程。

通常用在需要先装入数据文件或需要显示一个登录对话框以确认用户的身份，或者需要根据数据文件的内容决定显示哪个宙体，或者应用程序就没有窗体。

例如，根据GetUserStatus函数的值来决定是显示窗体frmMain还是frmHello窗体，程序代码如下：Sub Main（）Dim intStatus As IntegerIntStatus=GetUserStatusIf intStatus=1 Then ′根据状态显示某个启动窗体FrmMain.ShowElseFrmHello.ShowEnd ifEnd Sub2.启动时的快速显示如果应用程序在启动时有一个漫长的执行过程，可以在启动时给出一个快速显示窗体，它通常显示的是应用程序名、版权信息和简单的位图等内容。

例如，启动VB时所显示的窗体就是一个快速显示。

当启动时，快速显示能吸引用户的注意，造成应用程序装载很快的错觉，当需要从数据库中装入大量数据或者要装入一些大型位图时使用快速显示。

当启动完成并装入第一个窗体时使快速显示卸载。

VB提供了一些常用的窗体模板，其中有一个“展示屏幕”，可以在这个模板的基础上创建快速显示窗体，创建快速显示的方法：①选择“工程”菜单中的“添加窗体”命令，出现如图4-7-1所示的界面。

《VB程序设计教程》（第4版）习题解答单元一巩固与提高答案一、选择题1. Visual Basic 6.0分为3种版本，不属于这3种版本的是A）学习版B）专业版C）企业版D）业余版【答】D。

2. 下列方法中不能退出Visual Basic的是A）按Alt+Q组合键B）按下Alt+F组合键，然后按Esc键C）按F10键，然后按F键，再按X键D）打开“文件”菜单→“退出”命令【答】B。

3. Visual Basic集成的主窗口中不包括A）属性窗口B）标题栏C）菜单栏D）工具栏【答】A。

4. 下列操作可以打开立即窗口的是A）Ctrl+D B）Ctrl+F C）Ctrl+G D）Ctrl+E【答】C。

二、填空题1. 与传统的程序设计语言相比，Visual Basic最突出的特点是____。

【答】事件驱动编程机制。

2. 如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按____键。

【答】功能键F10或Alt键。

3. 建立一个新的标准模块，应该选择____菜单下的“添加模块”命令。

【答】“工程”菜单。

三、思考题1. 简述Visual Basic的特点。

【答】与一般的程序设计语言相比，VB具有以下特点：(1) 可视化的设计平台；(2) 面向对象的设计方法；(3) 事件驱动的编程机制；(4) 结构化的设计语言；(5) 充分利用Windows资源；(6) 开放的数据库功能与网络支持。

2. 简述Visual Basic集成开发环境的组成。

【答】VB 6.0集成开发环境除了具有标准Windows环境的标题栏、菜单栏、工具栏外，还有工具箱、属性窗口、工程管理器窗口、窗体设计器、立即窗口、窗体布局窗口等有用的开发工具。

(1) 标题栏和菜单栏：标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化∕还原、关闭按钮。

菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项，其中包含了VB编程的常用命令。

第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。

【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。

【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。

(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。

【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。

【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。