1、1在设计应用程序时 作业 一一、选择题 1在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（ ）。 A窗体设计代码C属性D工程资源管理器窗口 答案：d 2窗体的Load事件的触发时机是（ ）。 A用户单击窗体时B窗体被加载时C窗体显示之后D窗口被卸载时 答案： 3与传统的程序设计语言相比，Visual Basuc最突出的特点是（ ）。A结构化程序设计B程序开发环境C事件驱动编程机制D程序调试技术答案：C 4VB6.0集成开发环境的主窗口不包括（ ）。 A标题栏 B菜单栏 C状态栏 D工具栏 答案：c5如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的
2、正确格式是（ ）。 AText.Mytext BMytext.text CMytext.（Text） DMytext*Text 答案：b6下列可以激活属性窗口的操作是（ ）。 A用鼠标双击窗体的任何部位 B执行“工程”菜单中的“属性窗口”命令 C按Ctrl+F4 D按F4键 答案： b d 7假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（ ）。 A单击窗体上没有控件的地方 B单击任一个控件 C不执行任何操作 D双击窗体的标题栏 答案：a 8如果在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的（ ）属性。 ACaption
3、 BPasswordChar CText DChar 答案：b 9如果想让文本框中的内容在运行时不能编辑，需将文本框的（ ）属性设置为True。 ALocked BMultiLine CTabStop DVisible 答案：a 10对于定时器（Timer）控件，设计其定时是否开启的属性是（ ）。 AIndex BTag CEnabled DLeft 答案：c 11要在窗体Form1内显示“myfrm”，使用的语句是（ ）。 AForm.Caption=“myfrm” BForm1.Caption=“myfrm” CForm1.Print=“myfrm” DForm.Print=“myfrm”
4、 答案： 12对象的性质和状态特性称为（ ）。 A事件 B方法 C属性 D类 答案：c 13下列正确的赋值语句是（ ）。 Ax+y=20 By=x+20 C3x=y Ds=*r*r 答案：b 14当使用上下文相关的帮助时，选择要帮助的内容，然后按（ ）键，就可出现MSDN窗口直接显示所需的帮助信息。 AHelp BF10 CESC DF1 答案：d 15将调试通过的工程经“文件”菜单的“生成.exe.文件”编译成名.exe后，就该可执行文件放到其它机器上不能运行的主要原因是（ ）。 A运行的机器上无VB系统 B缺少.frm文件 C该可执行文件有病毒 D以上原因都不对 答案：d 二、填空题1当进
5、入VB集成开发环境后，发现没有显示“工具箱”窗口，应选择( )菜单的 ( )选项，使“工具箱”窗口显示。 答案：视图 工具箱 2在VB中，事件过程名由() 和 () 构成。 答案：Sub 事件名称（） 3工程文件的扩展名是 () ，窗体文件的扩展名是 () 。 答案：vbp .frm 4对象是代码和数据的集合，例如，Visual Basic中的() 、() （） 、等都是对象。 答案：窗体 文本框 命令按钮 5对象的方法应用于() 。当对象不需要任何参数并且也没有返回值时，调用对象的方法的格式为() 。例如，对窗体Form1使用Show方法，应写成() 。 答案：程序代码中 对象名.方法名 F
6、orm1.Show 6要使文本框显示滚动条，需要将其() 属性设置为 () 。 答案：Multiline True 7欲设置定时器的时间间隔为4秒，则属性的Interval属性设置为 （ ） 。 。 答案：4000 8要使标签框的大小随Caption属性作自动调整，应将 （ ） 属性设置为 （ ） 。 。 答案：AutoSize True 9通过 （ ） 可以在设计时直观地调整窗体在屏幕上的位置。 答案：StartUpPosition 10要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK！时，应当编写的语句是 （ ） 。 答案：txtshow.Text=”GOOD WORK
7、 !” 11若命令按钮的名称为Cmdopen，程序要求单击以上命令按钮时，打开一个窗口frm1时，请对以下事件过程填空。 Private Sub Cmdopen（ ）（ ） End Sub 答案：Click( ) frm1.Show 12事件就是在对象上所方式的事情，Visual Basic中的事件如（ ）（ ）（ ）等。一个对象响应的事件可以有 （） 个，用户不能建立新的事件。事件过程是指 （ ） 。假设一个事件过程如下： Private Sub cmd1_Click( ) Form1.Caption=”VB示例” End Sub 则响应该过程的对象名是 （ ） ，事件名是 （ ） 。 答案
8、：Click事件 DbClick事件 Load事件 多 由事件来驱动应用程序执行一段VB代码 cmd1 cmd1_Click( ) True 13对象的方法应用于 （ ） 。当对象不需要任何参数并且也没有返回值时，调用对象的方法的格式为 （ ） 。例如，对窗体Form1使用Show方法，应写成（ ） 。 答案：程序代码中 对象名.方法名 Form1.Show 14为了在编写代码时能自动进行语法检查，必须执行（ ） 菜单中的（ ） 命令，打开 （ ） 对话框，然后选择“编辑器”选项卡中的（ ） 。 答案：“工具” “选项” “选项” “自动语法检测” 15定时器控件可识别的事件是 （ ） ，发生
9、该事件的时间间隔由定时器的（ ） 属性设置，其单位为 （ ） 。 答案：Timer Interval 毫秒 三、简答题1什么是可视化编程和事件驱动？ 答案：编程人员只需针对某个事件编写程序代码称为可视化编程。应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。 2对象、属性、事件和方法指的关系任何？ 答案：窗体和控件是创建应用程序所使用的对象，方法是对象的动作，事件是对象的响应，属性可看作对象的性质。 3简述事件驱动编程机制与传统编程方式的不同。 答案：传统编程方式是结构化程序设计，它从系统的功能入手，按照工程的标准和严格的规范将系统分解为若干功能模块，系统是实现功能模块的函数和过程的
10、集合。事件驱动编程则是从所处理的数据入手，以数据为中心而不是以服务（功能）为中心来描述系统。它把编程问题视为一个数据集合，数据相对于功能而言，具有更强的稳定性。事件驱动编程与传统编程方式相比，最大的区别在于：前者首先关系关心的是所要处理的数据，而后者首先关心的是功能。 4简述事件驱动的工作过程。 答案：答：事件驱动的工作过程为： 1.启动应用程序，装载和显示窗体。 2.窗体或窗体上的控件等待事件的发生。 3.当某个事件发生后，执行其对应的事件过程代码。 4.重复执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。 四、程序设计题1在窗体上添加一个文本框和两个命令按钮，并把两个命令
11、按钮的标题分别色绘制为“隐藏文本框”和“显示文本框”。当单击第一个命令按钮时，文本框消失；而当单击第二个命令按钮时，文本框重新出现，并在文本框显示“VB程序设计”（字体大小为16）程序运行界面如图1所示。 图一答案：程序代码： Private Sub Command1_Click() Text1.Visible = False End Sub Private Sub Command2_Click() Text1.Visible = True Text1.Text = VB程序设计 End Sub 2设计一个计算程序。该程序用户界面如图2所示，由四个文本框：文本框1（text1）、文本框2（te
12、xt2）、文本框3（text3）、文本框4（text4），和三个命令按钮：命令按钮1（command1）、 命令按钮2（command2）、命令按钮3（command3）组成。程序运行后，用户按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。 图二 作业 二一、选择题 1按照变量的作用域可将变量划分为（ ）。 A公有、私有、系统 B全局变量、模块级变量、过程级变量 C动态、常态、静态 DPublic、Private、Protected 答案：B 2可获得字符的ASCII码的函数是（ ）。 AVal BFix CAsc DChr 答案：D 3要退出DoLo
13、op循环，可使用的语句是（ ）。AExit BExit For CEnd Do DExit Do 答案：D 4把数值型转换为字符串型需要使用的函数是（ ）。 AVal BStr CAsc DChr 答案：B5关于语句行，下列说法正确的是（ ）。A一行只能写一条语句 B一条语句可以分多行书写 C每行的首字符必须大写 D长度不超过255个字符 答案：b6表达式6 + 10 Mod 4 * 2 + 1的值是（ ）。 A9 B11 C1 D3 答案： A 7假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（ ）。 ASIN BCOI CCOS（X）
14、DX（-1） 答案：B 8表达式Abs(-5)+Len(“ABCDE”)的值是（ ）。A5ABCDE B-5ABCDE C10 D0 答案：C 9在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（ ），表示下一行是当前行的继续。A一个空格加一个下划线字符(_) B一个下划线字符(_) C直接回车 D一个空格加一个连字符(-) 答案：A 10Sub过程与Function过程最根本的区别是（ ）。 ASub过程可以使用Call语句或直接使用过程调用，而Function过程不可以 BFunction过程可以有参数，Sub过程不可以 C两个过程参数的
15、传递方式不同 DSub过程的过程名不能返回值，而Function过程能够通过过程名返回值 答案：D 11“x是小于80的非负数”，用VB表达式表示正确的是（ ）。 A0x80 B0=x80 C0=x And x80 D0=x Or x80 答案：C 12在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为（ ）。 A加号（+） B减号（-） C星号（*） D感叹号（！） 答案：B 13如果要在程序中显示一个弹出式菜单，那么要调用Visual Basic中提供的方法是（ ）。APrint BMove CRefresh DPopupMenu 答案：D 14下列可以用来存储图
16、像供其它对象使用的控件是（ ）。AToolBar BStatursBar CImageList DTreeView 答案：C 15当单击工具栏上的按钮时，会触发的事件是（ ）。 AButtonClick BChange CLoad DKeyPess 答案：A 16要利用公共对话框控件来显示打开文件对话框，需要调用控件的（ ）方法。 AShowPrint BShowOpen CLoad DShowColor 答案：B 17对于窗体级变量，下列说法中错误的是（ ）。 A所在窗体的各子程序都可以访问 B其它窗体的子程序不能访问 C所在窗体的各子程序都不能访问用Private定义的窗体级变量 D一定要
17、在所在窗体的通用区内定义 答案：C 18从一个字符串中的第3个字符开始，获取5个字符，应使用（ ）。 ALen函数 BMid函数 CLeft数 DRight函数 答案：B 19用下面的语句所定义的数组的元素个数是（ ）。 Dim A（-3 To 5）As Integer A6 B7 C8 D9 答案：D 20有如下程序段： Dim str1 As String * 5 Str1=”Visual Basic” 当该程序段执行时，变量str1的之值是（ ） A”Visual” B”Visua” C”V” D”Visual Basic” 答案：B 二、填空题1菜单一般有( ) 和 ( ) 两种基本类
18、型。 答案：下拉式菜单 弹出式菜单 2通用对话框控件可显示的常用对话框有 ( ) 、 ( ) 、 ( ) 、( ) 、 ( ) 。 答案：打开（Open） 保存（Save） 颜色（Color） 字体（Font） 打印（Print） 3组合框具有 ( ) 和 ( ) 两种控件的基本功能。 答案：文本框 .列表框 4要使数组的默认下标从“1“开始，则应在窗体或标准模块代码的声明部分使用语句 ( ) 。 答案：4 Dim 数组名（1 To 上界） 5调用Sub过程时，使用 ( ) 语句，该语句用于把程序控制传送到一个Visual Basic的Sub过程。 答案：过程名 参数1,参数2, 6若已建立了
19、Form1和Form2两个窗体，默认启动窗体为Form1。通过 （ ） 菜单 （ ） 命令的 （ ） 选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行 （ ） 语句。 答案：“工程” “工程属性” “工程属性” Form1.Show 7列表框中项目的序号是从 ( ) 开始的。 。 答案：0 8Sub过程与Function过程最根本的区别是 ( ) 。 答案：不会用过程名返回一个值 9VB的代码存储在模块中，在VB中提供了三种类型的模块： ( ) 、( ) 和 ( ) 。 答案：窗体模块 标准模块 类模块 10使用Hide方法会隐藏被调用的窗体，但在调用Hide方法之
20、后不会把窗体( ) ；被调用的窗体中的属性等已处于 ( ) 。 答案：移出内存 无效的状态 11将下列函数式子写成Visual Basic表达式。(1):()(2） ：( ) 。 （3）sin45o：( ) 。 答案：（1）2*cos()*sin()/(2*) （2）sqr(s*(s-a)*(s-b)*(s-c) （3）sin(45/180) 12将下列各条件写成Visual Basic逻辑表达式。 （1） 1x12：（ ） （2） A+BC 或 a-cc：（ ） （3） a和b都为正数或同为负数：（ ） 答案：1）1=x and x=C or a-c0 and b0 or a0 and b0
21、 13设A=2，B=3，C=4，D=5。表达式 Not A=C Or 4*C=B2 And BA+C的值为（ ）。 答案：False 14在Visual Basic语言中有三种形式的循环结构。其中若函数的次数可以事先确定，可使用 （ ） 循环；若要求先判断循环的条件，可使用 （ ） 循环或 （ ） 循环。 答案：For Next Do WhileUntil 条件式Loop DoLoop WhileUntil 条件式 15以下语句的输出结果是 （ ） 。 a%=3.14159 Print a% 答案：3（因为变量a被声明为整型变量%表示整型变量） 三、阅读下列程序，写出程序的运行结果1 Priv
22、ate Sub Form_Click()Static Sum As IntegerFor I = 1 To 100Sum = Sum + I Next IPrint Sum End Sub 答案：编程人员只需针对某个事件编写程序代码称为可视化编程。应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动。 2Private Sub Form_Click() A = 10: b = 15: c = 20: d = 25Print A; Spc(5); b; Spc(7); c Print A; Spc(8); b; Space$(5); cPrint c; Spc(3); +; Spc(3);
23、 d; Print Spc(3); =; Spc(3); c + d End Sub 答案：窗体和控件是创建应用程序所使用的对象，方法是对象的动作，事件是对象的响应，属性可看作对象的性质。 3 Private Sub Form_Click() For i% = 1 To 3 For j% = 1 To i Print LTrim(Str(i%) + * + LTrim(Str(j%) + =; i% * j%; Next j% Print Next i% End Sub 答案：传统编程方式是结构化程序设计，它从系统的功能入手，按照工程的标准和严格的规范将系统分解为若干功能模块，系统是实现功能模
24、块的函数和过程的集合。事件驱动编程则是从所处理的数据入手，以数据为中心而不是以服务（功能）为中心来描述系统。它把编程问题视为一个数据集合，数据相对于功能而言，具有更强的稳定性。事件驱动编程与传统编程方式相比，最大的区别在于：前者首先关系关心的是所要处理的数据，而后者首先关心的是功能。 4Private Sub Command1_Click() Dim a, b As Integer a = 3.4 b = 3.4 Text1.Text = a Text2.Text = b End Sub 答案：答：事件驱动的工作过程为： 1.启动应用程序，装载和显示窗体。 2.窗体或窗体上的控件等待事件的发生
25、。 3.当某个事件发生后，执行其对应的事件过程代码。 4.重复执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。 5、 Private Sub Form_Click() For i = 1 To 5 Print Tab(11 - i); For J = 1 To i * 2 - 1 Print *; Next Next i End Sub 答案：答：事件驱动的工作过程为： 1.启动应用程序，装载和显示窗体。 2.窗体或窗体上的控件等待事件的发生。 3.当某个事件发生后，执行其对应的事件过程代码。 4.重复执行第2和第3步，直到遇到End语句或单击结束按钮停止程序的运行。 四、程
26、序设计题1购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者，按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品的总金额，单击命令按钮，在Text2输出优惠后的价格。程序运行结果如图4所示。 图4答案： Private Sub Command1_Click() x = Val(Text1.Text) Select Case x Case Is = 500 Text2.Text = x * 0.7 Case
27、Is = 300 Text2.Text = x * 0.8 Case Is = 200 Text2.Text = x * 0.9 Case Is = 100 Text2.Text = x * 0.95 End Select End Sub = x * 0.95 End Select End Sub 2输出100200之间不能被3整除的数，要求用Do语句的一种形式实现，程序运行结果如图5所示。 图5答案：程序代码： Private Sub Form_Load() x = 101 Text1.Text = 100 Do While x = 200 If x Mod 3 0 Then Text1.T
28、ext = Text1.Text + Chr(13) + Chr(10) + Trim(Str(x) End If x = x + 1 Loop End Sub 3编写程序，打印如下的乘积表： 图6答案：程序代码： Private Sub Form_Click() Print *, 3, 6, 9, 12 Print 15, 45, 90, 125, 180 Print 16, 48, 96, 144, 192 Print 17, 51, 102, 153, 204 Print 18, 54, 108, 152, 216 End Sub 4设计一个计算程序。该程序用户界面如图7所示。要求程序运行后，用户选中单选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。 图7答案：程序代码： Private Sub Form_Load() Option1(0).Value = False Option1(1).Value = False Option1(2).Value = False Option1(3).Value = False End Sub Private Sub Option1_Click
