《成人《VB程序设计》标准化大作业（答案）.doc》由会员分享，可在线阅读，更多相关《成人《VB程序设计》标准化大作业（答案）.doc（24页珍藏版）》请在金锄头文库上搜索。
1、作业1一、单项选择题1.Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。 (A)事件驱动 (B)按过程顺序执行 (C)从主程序开始执行 (D)按模块顺序执行2.在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的容器。 (A)文本框 (B)命令按钮 (C)窗体 (D)标签3.多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把 B 指定为启动窗体。(A)不包含任何控件的窗体 (B)设计时的第一个窗体 (C)包含控件最多的 (D)命名为Frm1的窗体4.有程序代码如下：Text1. Text= Visual Ba
2、sic则：Text1，Text和Visual Basic分别代表 C 。(A)对象，值，属性 (B)对象，方法，属性(C)对象，属性，值 (D)属性，对象，值5.Visual Basic是一种面向对象的程序设计语言， A 不是面向对象系统所包含的三要素。 (A)变量 (B)事件 (C)属性 (D)方法6.Visual Basic的一个应用程序至少包含一个 B 文件，该文件存储窗体上使用的所有控件对象和有关的 、对象相应的 过程和 代码。 (A)模块、方法、事件、程序 (B)窗体、属性、事件、程序 (C)窗体、程序、属性、事件 (D)窗体、属性、事件、模块7.以下不属于Visual Basic的
3、工作模式是 A 模式。 (A)编译 (B)设计 (C)运行 (D)中断8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是 C 。 (A)窗体布局窗口 (B)立即窗口 (C)代码窗口 (D)监视窗口9.保存新建的工程时，默认的路径是 B 。 (A)My Documents (B)VB98 C) (D)Windows10.将调试通过的工程经“文件”菜单的“生成 .exe文件”编译成 .exe后，将该可执行文件拿到其他机器上不能运行的主要原因是 A 。 (A)运行的机器上无VB系统 (B)缺少 .frm窗体文件 (C)该可执行文件有病毒 (D)以上原因都
4、不对11.对于窗体，下面 D 属性在程序运行时其属性设置起作用。(A)MaxButton (B)BorderStyle (C)Name (D)Left12.要使Print方法在Form_Load事件中起作用，要对窗体的 C 属性进行设置。 (A)BackColor (B)ForeColor (C)AutoRedraw (D)Caption13.若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。 (A)BackColor (B)BorderStyle (C)ForeColor (D)BackStyle14.若要使命令按钮不可操作，要对 A 属性设置。 (A)Enabled (B)Vi
5、sible (C)BackColor (D)Caption15.文本框没有 D 属性。 (A)Enabled (B)Visible (C)BackColor (D)Caption16.不论何控件，共同具有的是 B 属性。 (A)Text (B)Name (C)ForeColor (D)Caption17.要使Form1窗体的标题栏显示“6欢迎使用VB”，以下 D 语句是正确的。 (A)Forml.Caption= “6欢迎使用VB” (B)Forml.Caption= 6欢迎使用VB (C)Forml.Caption= 6欢迎使用VB (D)Forml.Caption= 6欢迎使用VB 18.
6、要使某控件在运行时不可显示，应对 B 属性进行设置。 (A)Enabled (B)Visible (C)BackColor (D)Caption19.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列 B 属性设置就有效。 (A)MaxButton (B)BorderStyle (C)Width (D)MinButton20.当运行程序时，系统自动执行启动窗体的 A 事件过程。 (A)Load (B)Click (C)UnLoad (D)GotFocus二、填空题 1VB 6.0提供了一种新的数据库访问技术，即 ADO技术 ，通过该技术，能方便地访问多种数据库中的数据。 2
7、当进入VB集成环境，发现没有显示“工具箱”窗口时，应选择 视图 菜单的 工具箱 选项，使“工具箱”窗口显示。 3要使新建工程时，在模块的“通用声明”段中自动加入Option Explicit语句，应对 工具 菜单的 选项 的 编辑器 选项卡进行相应选项的选择。 4对象的属性是指 对象的性质、特征 。 5对象的方法是指 对象的动作、行为 。 6在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对 Form1 的 Font 属性进行设置。 7当对文本框的ScrollBar的属性设置为2 (有垂直滚动条)，但没有垂直滚动条显示时，是没有把 Multiline 属性设置为True的原因。 8在代
8、码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 在运行时是无效的 。 9当对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有对 Style 属性设置为1(Graphical)。 10若已建立了Form1、Form2两个窗体，默认启动窗体为Form1。通过 工程 菜单的 工程属性 的 通用 选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行 Form1.Show 语句。 11在文本框中，通过 SelStart 属性能获得当前插入点所在的位置。 12要对文本框中已有的内
9、容进行编辑，按下键盘上的按键，就是不起作用，原因是设置 Locked 的属性为True。 13在窗体上已建立多个控件如Text1、Label1、Command1，若要使程序一运行焦点就定位在Command1控件上，应把Command1控件的TabIndex属性的值设置为 0 。三、完成窗体控件与程序设计 第（ 1 ）题1.建立如图所示界面 2.建立如下事件过程： （1）事件：在文本框中输入口令（输入的字符都显示为“*”），单击“确认”按钮。 （2）响应：如果输入的是“1234”时，应显示“口令正确”，否则显示“口令错误”。Private Sub Command1_Click() If Text
10、1.Text = 1234 Then Label2.Caption = 口令正确 Else Label2.Caption = 口令错误 End IfEnd Sub第（ 2 ）题1.建立如图所示界面 2.建立如下事件过程： （1）事件：在文本框中输入一个姓名，单击“确认”按钮。 （2）响应：将输入的内容添加到右面的列表框中。Private Sub Command1_Click() List1.AddItem Text1.TextEnd Sub第（ 3 ）题1.建立如图所示界面 2.建立如下事件过程： （1）事件：单击单选按钮。 （2）响应：文本框中文字字体作相应改变。Private Sub Op
11、tion1_Click() Text1.FontName = 宋体End SubPrivate Sub Option2_Click() Text1.FontName = 隶书End Sub第（ 4 ）题1.建立如图所示界面 2.建立如下事件过程： （1）事件：单击相应复选框。 （2）响应：文本框中文字字体效果作相应改变。Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd SubPrivate Sub Ch
12、eck2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd Sub第（ 5 ）题1.建立如图所示界面 2.建立如下事件过程： （1）事件：选择“对齐方式”框架内的单选按钮。 （2）响应：上面的文本，按所选择的对齐方式对齐显示。Private Sub Option1_Click() Label1.Alignment = 0End SubPrivate Sub Option2_Click() Label1.Alignment = 1End SubPriva
13、te Sub Option3_Click() Label1.Alignment = 2End Sub 第（ 6 ）题1.建立如图所示界面 2.建立如下事件过程： （1）事件：单击“最大化”按钮或单击“最小化”按钮。 （2）响应：单击“最大化”按钮，窗体最大化；单击“最小化”按钮，使窗体最小化。Private Sub Command1_Click() Form1.WindowState = 2End SubPrivate Sub Command2_Click() Form1.WindowState = 1End Sub第（ 7 ）题1.建立如图所示界面 2.建立如下事件过程： （1）事件：单击“显示”按钮和“停止”按钮。 （2）响应：单击“显示”按钮文本框显示当前时间，且时间每秒钟变化一次，单击“停止”按钮时间显示停止。Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPr
