成人《VB程序设计》标准化大作业答案1.docx

1、成人VB程序设计标准化大作业答案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

2、. Text= Visual Basic则：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.以

3、下不属于Visual Basic的工作模式是 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)该

4、可执行文件有病毒 (D)以上原因都不对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 属性设置。

5、 (A)Enabled (B)Visible (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.Cap

6、tion= 6欢迎使用VB 18.要使某控件在运行时不可显示，应对 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技术 ，通过该技术，能

7、方便地访问多种数据库中的数据。 2当进入VB集成环境，发现没有显示“工具箱”窗口时，应选择 视图 菜单的 工具箱 选项，使“工具箱”窗口显示。 3要使新建工程时，在模块的“通用声明”段中自动加入Option Explicit语句，应对 工具 菜单的 选项 的 编辑器 选项卡进行相应选项的选择。 4对象的属性是指 对象的性质、特征 。 5对象的方法是指 对象的动作、行为 。 6在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对 Form1 的 Font 属性进行设置。 7当对文本框的ScrollBar的属性设置为2 (有垂直滚动条)，但没有垂直滚动条显示时，是没有把 Multiline

8、属性设置为True的原因。 8在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 在运行时是无效的 。 9当对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有对 Style 属性设置为1(Graphical)。 10若已建立了Form1、Form2两个窗体，默认启动窗体为Form1。通过 工程 菜单的 工程属性 的 通用 选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行 Form1.Show 语句。 11在文本框中，通过 SelStart 属性能获得当前插入点所在

9、的位置。 12要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置 Locked 的属性为True。 13在窗体上已建立多个控件如Text1、Label1、Command1，若要使程序一运行焦点就定位在Command1控件上，应把Command1控件的TabIndex属性的值设置为 0 。三、完成窗体控件与程序设计 第（ 1 ）题1.建立如图所示界面 2.建立如下事件过程： （1）事件：在文本框中输入口令（输入的字符都显示为“*”），单击“确认”按钮。 （2）响应：如果输入的是“1234”时，应显示“口令正确”，否则显示“口令错误”。Private Sub Command

10、1_Click() If Text1.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）响应：文本框中文字字体作相应

11、改变。Private Sub Option1_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

12、SubPrivate Sub Check2_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.Alignmen

13、t = 1End SubPrivate 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.建立

14、如下事件过程： （1）事件：单击“显示”按钮和“停止”按钮。 （2）响应：单击“显示”按钮文本框显示当前时间，且时间每秒钟变化一次，单击“停止”按钮时间显示停止。Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() Text1.TEXT = TimeEnd Sub第（ 8 ）题1.建立如图所示界面 2.建立如下事件过程： （1）事件：单击“确定”按钮和“取消”按钮。

15、（2）响应：单击“确定”按钮，如果输入的是1234则显示左下图的对话框，如果输入的不是1234，则显示右下图的对话框。Private Sub Command1_Click() If Text1.Text = 1234 Then MsgBox (密码正确) Else MsgBox (密码错误) End IfEnd SubPrivate Sub Command2_Click() If Text1.Text = 1234 Then Text1.Text = Else Text1.Text = End IfEnd Sub第（ 9 ）题1.建立如图所示界面，设计一个计算器模型 2.完成5+11，7+9的

16、运算。各控件功能：按钮“5”、“7”、“9”、“11”用于输入参与运算的数据，按钮“+”决定算法，按钮“=”完成运算，文本框用于显示参与运算的数据和运算结果。 Dim a, b As IntegerPrivate Sub Command1_Click() Text1.Text = 5 a = 5End SubPrivate Sub Command2_Click() Text1.Text = 7 a = 7End SubPrivate Sub Command3_Click() Text1.Text = 9 a = 9End SubPrivate Sub Command4_Click() Text

17、1.Text = 11 a = 11End SubPrivate Sub Command5_Click() b = aEnd SubPrivate Sub Command6_Click() Text1.Text = a + b a = a + bEnd Sub第（ 10 ）题1.建立如图所示界面： 2.输入姓名、选定性别后，单击Command1按钮，姓名及性别在列表框中显示。 Private Sub Command1_Click() If Option1.Value = True Then s = 男 List1.AddItem Text1.Text & & s Else s = 女 List

18、1.AddItem Text1.Text & & s End IfEnd Sub第（ 11 ）题1.建立如图所示界面： 2.建立如下事件过程： （1）鼠标单击Option1控件时，Label1中的文字居中对齐； （2）单击Option2控件，Label1中的文字左对齐；单击Option3控件，Label1中的文字右对齐。Private Sub Option1_Click() Label1.Alignment = 2End SubPrivate Sub Option2_Click() Label1.Alignment = 0End SubPrivate Sub Option3_Click() L

19、abel1.Alignment = 1End Sub第（ 12 ）题1. 建立如图所示界面：2. 并编写事件过程：（1）事件：按钮的单击事件。（2）响应：单击“显示/隐藏”按钮显示/隐藏标签控件，单击“退出程序”按钮退出应用程序。Private Sub Command1_Click() Static a As Integer a = a + 1 If a Mod 2 = 0 Then Label1.Visible = True Else Label1.Visible = False End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub第（ 1

20、3 ）题1.建立如图所示的应用程序用户界面 2.建立如下事件过程输入圆的半径，利用选项按钮选择计算类型，计算圆的直径、周长或面积并利用标签输出。 Private Sub Command1_Click() r = Text1.Text If Option1.Value = True Then Label1.Caption = 圆的直径是 & 2 * r ElseIf Option2.Value = True Then Label1.Caption = 圆的周长是 & 2 * 3.14159 * r Else Label1.Caption = 圆的面积是 & r 2 * 3.14159 End I

21、fEnd SubPrivate Sub Command2_Click() EndEnd Sub第（ 14 ）题1.建立如图所示的应用程序用户界面 2.建立如下事件过程： （1）事件：按下相应按钮，（2）响应：标签中的文字将按选项按钮选中的字体样式显示。Private Sub Command1_Click() Label1.FontBold = TrueEnd SubPrivate Sub Command2_Click() Label1.FontItalic = TrueEnd SubPrivate Sub Command3_Click() Label1.FontUnderline = True

22、End Sub第（ 15 ）题1.建立如图所示的应用程序用户界面 2.建立事件过程： （1）事件：输入年、月、日后，单击“确定”按钮，（2）响应：在标签上显示这一天为所在星期的第几天。Private Sub command1_click()Dim a As Date yy = Text1.Text mm = Text2.Text dd = Text3.Text a = mm & / & dd & / & yy tian = Weekday(a) Label4.Caption = 该日期是所在星期的第 & tian & 天 Rem 星期日是该星期的第1天End Sub第（ 16 ）题1.建立如图

23、所示的应用程序用户界面 2.建立事件过程： （1）事件：选择“exit”单选按钮，单击“确定”按钮（2）响应：结束程序Private Sub command1_Click() If Option1.Value = True Then EndEnd Sub第（ 17 ）题1.建立如图所示的应用程序用户界面 2.建立事件过程： （1）事件：单击复选框（2）响应：在标签上加下划线或使字体倾斜Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontUnderline = True Else Label1.FontUnderline

24、= False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End IfEnd SubPrivate Sub Command1_Click() Label1.Visible = False End Sub第（ 18 ）题1. 建立事件过程：（1）事件：窗体的单击事件。响应：使用Inputbox函数输入学生成绩，若成绩在60分以下，在窗体上打印“不及格”，否则打印“及格” 。Private Sub C

25、ommand1_Click() n = InputBox(请输入学生成绩) If n =1Then f=sqr(x+1) f=x*x+3 （B）If x=1 Then f=sqr(x+1)If x=1 Then f=sqr(x+1) _ Else f=x*x+3 （D）If x1 Then f=x*x+3 _Else f=sqr(x+1)6、计算分段函数的值。下面程序段中正确的是：（ D ）（A）If x0 Then y=0If x1 Then y=1If x=2 Then y=3（B）If x=2 Then y=3If x=1 Then y=2If x0 Then y=1If x0 Then

26、 y=0（C）If x0 Then y=1ElseIf x1 Then y=2Else y=3EndIf（D）If x=2 Then y=3ElseIf x=1 Then y=2ElseIf x=0 Then y=1Else y=0EndIf7、下面的程序段，显示的结果是（ A ）。Dim xX=Int(Rnd)+5Select Case xCase 5Print “优秀”Case 4Print “良好”Case 3Print “通过”Case ElsePrint “不通过”EndSelect（A） 优秀 （B）良好 （C）通过 （D）不通过8、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（ D ）。（A）If sex=”男” And age0 Then n=n+1（B）If sex=”男” And age40 And InStr(duty=”教授” or duty=”副教授”) Then n=n+1（C）If sex=”男” And age40 And Right(duty,2)=”教授” Then n=n+1