第4章 VB程序设计基础

V B第4章F-(1)习 题一、 选择题1. 设分段函数y (x )的表达式为：y ＝⎩⎪⎨⎪⎧ x ＋1x>0x －1x ≤0，则能正确实现该分段函数计算的语句为( D )。

A. If x>0 Then y ＝x ＋1B. y ＝x ＋1y ＝x －1 If x<＝0 Then y ＝x －1C. If x>0D. If x>0 Theny ＝x ＋1 y ＝x ＋1Else Elsey ＝x －1 y ＝x －1End If End If2. 有如下程序段：xcase ＝1t ＝InputBox (“请输入一个数：”)Select Case tCase Is>0Y ＝xcase ＋1Case Is ＝0Y ＝xcase ＋2Case ElseY ＝xcase ＋3End SelectPrint xcase ； Y若输入－1，输出结果为( A )。

A. 1 4B. 1 3C. 1 2D. 1 13. 下列循环语句执行后，X 的值等于( A )。

X ＝5For i ＝1 To 20 Step 2X ＝ X ＋ i \5Next iX ＝iA. 21B. 22C. 23D. 244. 执行以下程序段时，( C )。

x ＝1Do While x<>0x ＝x*xPrint x ；LoopA. 循环体将执行1次B. 循环体将执行0次C. 循环体将执行无限次D. 系统将提示语法错误5. 设窗体中包含一个命令按钮Command1，一个标签Label1，并有以下的事件过程。

程序运行后，单击Command1按钮，标签中显示的内容是(C)。

Private Sub Command1_Click()Dim i As Integer，n As Integeri＝1： n＝0Do While i<10n＝n＋ii＝i*(i＋1)LoopLabel1＝i & ″－″ & nEnd SubA. 6－3B. 24－9C. 42－9D. 6－96. 有如下循环结构：Do循环体Loop While 条件则以下叙述中错误的是(A)。

《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所示的界面。

59 （2）各对象的主要属性设置参照表4-1。

表4-1例4.1对象属性设置 对 象 属 性 设 置Form1 Caption计算圆周长和圆面积 Form1 Font宋体五号、加粗 Label1 Caption请输入圆半径 Label2 Caption圆周长为： Label3 Caption圆面积为： Label4 Caption 空Label5 Caption 空Text1 Text 空Command1 Caption 计算（3）程序代码如下。

Private Sub Command1_Click()Dim r!, c!, s!r = Val(Text1.Text) ' 将界面上Textl 的内容转换成数值型，并赋值给变量rc = 3.14159 * r * 2' π必须写成数字；乘号在程序中不能省略 s = 3.14159* r * rLabel4.Caption = c' 将结果显示到程序界面的Label4、Label5上 Label5.Caption = sEnd Sub该程序的代码主体部分主要使用了赋值语句。

r = Text1.Text 是将用户输入的数据赋给变量r ；后面的两句是计算圆周长和面积，分别赋给变量c 和s ；Label4.Caption = c 和Label5.Caption = s 语句分别是将圆周长和面积的值在标签上显示出来。

4.4.2 Print 方法一个没有输出操作的程序是没有什么实用价值的。

VB 的输出操作包括文本信息的输出和图形图像的输出，文本信息的输出主要使用Print 方法。

1．直接输出到窗体使用Print 方法可以在窗体上输出文本字符串或表达式的值。

语法格式： [对象名称.] Print [表达式列表][{,|;}]功能：在对象上输出表达式的值。

说明：（1）对象名称：可以是窗体（Form ）、图片框（PictureBox ）或打印机（Printer ）。

1.1.2 Visual Basic的特点

4．提供了易学易用的应用程序集成开发环境 在Visual Basic的集成开发环境中，用户可设计界面、编写代 码、调试程序，直至将应用程序编译成可执行文件在 Windows上 运行，使用户在友好的开发环境中工作。


5．支持多种数据库系统的访问
利用 Visual Basic 的数据控件，可访问 Microsoft Access、 Dbase、Microsoft FoxPro、Paradox 等 ， 也 可 以 访 问 Microsoft Excel、Lotusl 1-2-3等多种电子表格。
录
Visual Basic 6.0程序设计概述 程序设计基础 结构化程序设计与数组 函数与过程 常用控件 图形控件和图形方法 对话框和菜单程序设计 文 件
第9章 数据库与数据访问技术
第1章 Visual Basic 6.0程序设 计概述

1.1 1.2 1.3 1.4 1.5 1.6 1.7
主
编 ：陈庆章
前 言
Visual Basic是目前进行Windows应用程序设计的最 佳工具之一，也是最佳的程序设计入门语言，这一看法 已经得到普遍认可。 非计算机专业计算机基础教学的 3 个不同层次，分 别解决的是“操作技能”、“思维训练”、“综合应用 能力”问题。学习一门程序设计语言，主要目的是要提 高读者分析归纳、解决问题的能力，在思维训练方面受 益，并使得读者通过更系统、深入的学习后开发实用程 序成为可能。 因此，本书在内容上精选了Visual Basic 6.0中最基 础、最常用并实用的部分；在编排和风格上力图体现循 序渐进、深入浅出的特点；以样本程序示例教学，阶段 性构筑读者的成就感，使得艰苦的程序设计工作升华为 一种艺术创作，提供了一条通往程序设计高手的捷径。