1、第 1 页 共 32 页 第一章 Visual Basic 程序设计概述 一、 填空题 1、 Visual Basic 是一种面向 _的可视化程序设计语言，采取了 _的编程机制。 2、 在 VB 中工程文件的扩展名是 _，窗体文件的扩展名是 _。 二、 选择题 1、下面不是 VB 工作 模式 的 是（ ） A 设计 模式 B运行模式 C汇编模式 D 中断 模式 2、 可视化编程的最大优点是（ ） A具有标准工具箱 B一个工程文件由若干个窗体文件组 成 C不需要编写大量代码来描述图形对象 D所见即所得 3、 下列不能打开属性窗口的操作是 （ ） A 执行 “ 视图 ” 菜单中的 “ 属性窗口 ”
2、 命令 B 按 F4 键 C 按 Ctrl+T D 单击工具栏上的 “ 属性窗口 ” 按钮 4、 下列可以打开立即窗口的操作是 （ ） A Ctrl+D B Ctrl+E C Ctrl+F D Ctrl+G 5、 Visual Basic 的编程机制是（ ） A可视化 B面向对象 C面向图形 D事件驱动 第二章 简单的 VB 程序设计 一、 填空题 1、 设置是否可以用 Tab 键来选取命令按钮，应该用 _属性 。 2、 一个控件在窗体的位置由 _和 _属性决定，其大小由 _和 _属性决定。 3、 利用对象的属性 setfocus 可获得焦点，对于一个对象 ， 只有其 visible 属性和
3、_属性为 true，才能接受焦点。 4、 设置控件背景颜色的属性名称是 _。 5、 所有控件都具有的共同 属性是 _属性。 6、 VB 中的每个对象（控件）都有一组特征，这组特征称为 _，我们通过修改它可以控制对象的外观和操作。 7、 通常情况下， VB 中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_文件，后者的扩展名为 .Bas，通常由 Basic 语言编写，是一个可共用的子程序。 8、 VB 有三种工作模式， 分别 是设计（ Design）模式、 _和中断（ Break）模式。 二、 选择题 1、 以下 能够触发文本框 Change 事件的操作是 （ ） A文本框失去焦
4、点 B文本框获得焦点 C设置文本框的焦点 D改变文本框的内容 2、 应用程序设计完成后，应将程序保存，保存的过程是（ ） A只保存窗体文件即可 B只保存工程文件即可 C先保存工程文件，之后保存窗体文件 D先保存窗体文件（或标准模块文件），之后还要保存工程文件 3、 VB 应用程序的运行模式是（ ） A解释运行模式 B编译运行模式 C两者都有 D汇编模式 4、 任何控件都具有的属性是（ ） A TEXT B CAPTION C NAME D FORECOLOR 5、 决定控件上文字的字体、字形、大小及效果的属性是（ ） A TEXT B CAPTION C NAME D FONT 6、 在窗体上
5、建立了多个控件，如 TEXT、 LABEL1、 COMMAND1，若要使程序一运行焦点就定位在 COMMAND1 控件上，应将 COMMAND1 控件的（ ）设置为 0 A INDEX B TABINDEX C TABSTOP D ENABLED 7、 运行时，当用户向文本框输入新的内容，或在程序代码中对 文本框的 TEXT 属性进行 赋值从而改变了文本框的 TEXT 属性值时，将触发文本框的（ ）事件 A CLICK B DBLCLICK C GOTFOCUS D CHANGE 8、 在运行时，按 TAB 键跳过了一个可以获得焦点的控件（如文本框），则可能是因为 （ ） A该控件的 TABS
6、TOP 属性值为 TRUE B该控件的 TABINDEX 属性值为 FALSE C该控件的 ENABLED 属性值为 TRUE D该控件的 ENABLED 属性值为 FALSE 9、 为了防止用户随意将光标置于控件上，应（ ） A将控件的 TABINDEX 属性设置为 0 B将控件的 TABSTOP 属性设置为 TRUE C将控件的 TABSTOP 属性设置为 FALSE D将控件的 ENABLED 属性设置为 FALSE 10、 若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（ ）属性 A BACKCOLOR B BORDERSTYLE C FORECOLOR D BACKSTYL
7、E 11、 如果要在文本框中输入字符时，只显示某个字符，如星号（ *），运行时，在文本框 中输入的字符仍然显示出来，而不显示星号，原因可能 是 （ ） A文本框的 MULTILINE 属性值为 TRUE B文本框的 LOCKED 属性值为 TRUE C文本框的 MULTILINE 属性值为 FALSE D文本框的 LOCKED 属性为 FALSE 12、 在运行阶段，要在文本框 TEXT1 获得焦点时选中文本框中所有内容，对应的事件过 程是 （ ） A Private Sub Text1_GotFocus( ) Text1.SelStart=0 Text1.Sellength=Len(Text
8、1.Text) End Sub B Private Sub Text1_LostFocus( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text) End Sub C Private Sub Text1_Change( ) Text1.SelStart=0 第 2 页 共 32 页 Text1.Sellength=Len(Text1.Text) End Sub D Private Sub Text1_SetFocus( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text) End Sub 13、 V
9、isual Basic 继承了 Basic 语言简单易用的语法特点，同时支持面向对象的编程机制， 其中构成其控件（对象）的三要素是 （ ） A属性、事件、事件过程 B控件、窗体、事件 C属性、过程、方法 D属性、事件、方法 14、 决定标签（ Label）显示的属性是（ ） A Text B Name C Caption D Alignment 15、 命令按钮的标题文字由（ ）属性来设置。 A Text B Caption C Name D (名称 ) 16、若要设置文本的显示颜色 ， 则可用 （ ） 属性来实现。 A BackColor B Forecolor C FillColor D
10、Backstyle 17、在运行时 ， 若要调用某命令钮的 Click 事件过程 ， 则可设置该命令钮对象的 （ ） 属性为 Ture来实现。 A Enabled B Value C Default D Cancel 18、在运行时，若要获得用户在文本框中所选择的文本，可通过 访问 （ ） 属性来实现。 A SelStart B SelLenght C Text D SelText 第三章 VB 基本语言 一、 填空题 1、 一般可以使用 _关键字声明常量。 2、 _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 3、 变量的声明分为两种方法： _和 _。 4
11、 、 在 VB 中，用 _ 语 句 设 定 数 组 的 下 界 ， 用 _ 和_语句分别返回数组的上、下界。 5、 在代码模块中加入 Option Explicit 的目的是 _。 6 、 function aa (a1 as date,optional a2 as boolean) as single ， 写出 optional 命令的作用_。 7、 在 VB 中，我们用一个简单的 _语句就能实现退出程序。 8、 生成消息框的命令是 _，生成输入框的命令 是 _。 9、 通用对话框（ commondialog）属 activex 控件，它可以显示多个标准对话框，包括打开 /另存为、字体、打印
12、等对话框，若要显示所有文件，则应设置其属性 filter=_，若要使它显示为打印对话框，则应使用什么方法 _。 10、 从字符串中任意位置截取字符的函数是 _。 11、 语句 For j = 3 To 20 Step 3 使循环体执行了 _次。 12、 对于正在使用的动态数组 Arraya()，要增加一个单元，但不能破坏数组内的数据，则应使用语句 _。 13、 在 Visual Basic 中声明静态变量的关键字是 _。 14、 表达式 10 Mod 6 4 的值为 _。 15、 表达式 chr(Asc(“a“) + 5)的值为 _。 16、 VB 中使用注释有 2 种方法，即 _和 _。 1
13、7、 VB 中的数据以四种形式存储： 常量、 _、 _和记录。 18、 为了在 VB 中存储一个 4 行 5 列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整： Dim Juzhen(_ _) as Integer。 19、 控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属性 _ _来设置下标。 20、 在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递和 _ _。 21、 为了保证程序中必 须对变量的强制性定义，需要在代码模块的声明部分加入 _语句。 22、 分析 ForNext
14、循环结构的实例： For i = 5 To 30 Step 2 中，循环体一共执行了 _次。 23、 表达式 Mid(“UniversityOfPetroleum“, 8, 4) 的值为 _。 24、常量分为普通常量和 _常量。 25、要将大写字母转换为小写字母，可使用 _函数。 26、 不管焦点在哪个控件上，按 _键相当于按了取消按钮。 27、执行“工程”菜单下的 _命令，可选择并添加 ActiveX 控件。 28、 _是程序中 VB 停止执行的地方。 29、逻辑常量为 True 或 _。 30、使用了 _的声明后，当程序中使用未经声明的变量时，程序运行时会报错。 31、要将小写字母转换为大
15、写字母，可使用 _函数。 32、自字符串 N1 位开始向右取 N2 个字符，要使用 _函数。 33、日期常量表示时，用符号 _将日期型数据括起来。 34、局部变量只能在 _中声明和使用。 35、模块级变量的声明关键字是 Dim 或 _。 36、函数 Abs(x)的功能是 _。 37、表达式 3/6*5 的值是 _。 二、 选择题 1、 以下哪个是合法的变量（ ） A right B abc123 C 123_abc D ab123c 2、 下列说法错误的是（ ） A在同一模块不同过程中的变量可以同名 B不同模块中定义的全局变量不可以同名 C引用另一模块中的全局变量时，必须在变量名前加模块名 D
16、同一模块中不同级的变量可以同名 3、 把 MsgBox 的返回值转换为数值应该使用的函数是（ ） A Log B Str C Len D Val 4、 语句 DIM AA(3,4,5)中定义的数组有（ ）个元素 A 12 B 60 C 120 D 345 5、 下面程序运行后输出的结 果是（ ） A$=“CHINA“ 第 3 页 共 32 页 B$=STRING$(3,A$) PRINT B$ END A CHI B CCC C INA D AAA 6、 以下语句的输出结果是（ ） Print Format$(32548.5, “000,000.00“) A 32548.5 B 325,485
17、.00 C 032,548,50 D 32,548,50 7、 以下叙述中错误的是 （ ） A 如果过程被定义为 Static 类型，则该过程中的局部 变量都是 Static 类型 B Sub 过程中不能嵌套定义 Sub 过程 C Sub 过程中可以嵌套调用 Sub 过程 D 事件过程可以像通用过程一样由用户定义过程名 8、 Visual Basic 提供的 On Error Resume next 错误陷阱语句表示（ ） A当发生错误时，使程序转跳到语句标号为 0 的程序块 B当发生错误时，不使用错误处理程序块 C当发生错误时，忽略错误行，继续执行下一语句 D当发生错误时，终止本过程执行，继
18、续执行下一过程 9、 在 Visual Basic 中 ， 若要将控制权交给操 作系统则通过 （ ） 的语句。 A End B Exit Do C Exit Sub D DoEvents 10、 在 Visual Basic 中语句的续行号采用 （ ） A空格与下划线 B下划线与空格 C空格与短线 D短线与空格 11、 假定有以下程序段 ： For i=1 to 3 For j=5 to 1 Step 1 Print i*j Next j,i 则语句 Print i*j 的执行次数是（ ） A 15 B .16 C 17 D 18 12、 从键盘上输入两个字符串，分别保存在变量 str1、 s
19、tr2 中。确定第二个字符串在第一个字符串中起始位置的函数是 （ ） A Left B Mid C String D Instr 13、 如果将布尔常量值 TRUE 赋值给一个整型变量，则整型变量的值为（ ） A 0 B -1 C TRUE D FALSE 14、 下列叙述不正确的是（ ） A注释语句是非执行语句，仅对程序的内容起注释作用，它不被解释和编译 B注释语句 可以放在代码中的任何位置 C注释语句不能放在续行符的后面 D代码中加入注释语句的目的是提高程序的可读性 15、 语句 PRINT “INT(-13.2)”； INT(-13.2)的输出结果为 （ ） A INT(-13.2)=
20、-13.2 B INT(-13.2)= 13.2 C INT(-13.2)= -13 D INT(-13.2)= -14 16、 如果 TAB 函数的参数小于 1，则打印位置在第（ ）列 A 0 B 1 C 2 D 3 17、 变量未赋值时，数值型变量的值为（ ） A、 0 B空 C 1 D无任何值 18、 下列语句中正确的是（ ） A txt1.text+txt2.text=txt3.text B command1.name=cmdok C 12label.caption=1234 D a=inputbox(“hello”) 19、 假设变量 BOOLVAR 是一个布尔型变量，则下面正确的赋
21、值语句是（ ） A BOOLVAR=TRUE B BOOLVAR=.TRUE C BOOLVAR=#TRUE# D BOOLVAR=320 判断循环结构的类型和循环体的执行次数，正确的选项是 （ ） A当型循环， 20 次 B直到型循环， 10 次 C当型循环， 10 次 D直到型循环， 20 次 26、 在程序中，使用 InputBox 函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（ ） A Val B Len C Str D Log 27、 动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况，对数组进行重新定义，以下关于 VB 中动态数
22、组的叙述中不正确的是（ ） A可以用 ReDim 语句重新定义动态数组，并且可以进行多次重定义 B首次用 Dim 进行动态数组声明的时候，必须指明它的类型和上下界 C Preserve 为 ReDim 语句的可选参数，用于保留动态数组原来的内容 D当对动态数组使用 Erase 语句进行释放操作时，将释放其内存 28、 VB 中的控件也叫做部件或组件，主要包括三类，以下哪一项不属于 VB 控件的分类（ ） A控件 B可插入对象 C ADO 控件 D ActiveX 控件 29、 表达式 4+5 6 * 7 / 8 Mod 9 的值是 （ ） A 4 B 5 C 6 D 7 30、 可以同时删除
23、字符串前导和尾部空白的函数是 （ ） A Ltrim B Rtrim C Trim D Mid 四、 读程序题 1、 分析以下程序，写出运行结果。 Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case score Case Is a(n) n=n+1 Loop For m=20-1 To n Step 1 a(m+1)=a(m) Next m a(n)=x End Sub 4、 分析以下程序，写 出运行结果。 Sub subP(b() As Integer) For i =1 To 4 b(i)=2*i Next i E
24、nd Sub Private Sub Commandl_Click() Dim a(1 To 4)As Integer 第 5 页 共 32 页 a (1)=5 a (2)=6 a (3)=7 a (4)=8 subP a() For i =1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果 是什么？ 5、分析以下程序，写出运行结果。 Sub sele() Dim n as Integer i=21:n=3 Do While in i=i n Loop Print i End Sub 6、分析以下程序，写出运行结果。 Sub selectP
25、rint() Dim a as Integer Dim b as Integer Dim c as Integer a=2:b=5:c=2 If(a=b)and(a=c) or (bc) Then Print a a=a+2 Else Print b EndIf Print a;b;c End Sub 7、分析以下程序，写出运行结果。 Sub swap() Dim x as Integer Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x;y;z x=x+y x=x*z Print x,y,z End Sub 8、分析以下程序，写出运行
26、结果。 Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2 If(a=b)and(ac)Then Print a Print a,b,c End Sub 五、 编程题 1、 输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。 提示 ：如果此年号能被 400 整除或者不能被 400 除尽，也不能被 100 除尽，但能被 4 整除，则它是闰年；否则，不是闰年。 2、 输入两个正整数 m、 n，求 m 和 n 的最大公约数。要求建立如下图所示的窗体，其中主
27、要的控件包括：两个标签（ Lable1、 Lable2）、两个文本框（ Text1、 Text2） 和一个按钮（ Command1）。 3、输入某学生成绩（百分制），若是 100成绩 90 输出优秀；若是 90成绩 80 输出良好；若是 80成绩 70 输出中等；若是 70成绩 60 输出及格；若是 60成绩 0，输出不及格；若是其他数则输出 error 信息。 4、在窗体中显示从 9 号字型到 16 号字型。 5、在有序序列中插入一个数，使插入后的数列仍然有序（设按由小到大排列）。 6、 编程实现 二维数组转置。 7、 随机输入 10 个 100 以内的整型数，计算其和及平均值。 8、 找出
28、所有的水仙 花数。水仙花数是个三位数，它的各位数字的立方和等于这个三位数本身。例如 371 33+73+13，则 371 是水仙花数。 9、 从键盘输入一个大于 2 的正整数，判断该数是否是素数。 10、 求二维数组中的最小值及其所在行号、列号。 11、 求一元二次方程 ax2+bx+c=0 的根（包括实根和复根）。 12、 输入一个正整数 n，计算出 n!并输出。 13、 Faibonacci 数列为 0， 1， 1， 2， 3， 5， 8， 13 ，计算并输出第 20 项以及前 20 项的和。 第四章 常用控件与窗体 一、 填空题 1、 向列表框控件添加新项目的方法是 _。 2、 在 VB
29、 中，最主要的两种对象是 _和 _。 第 6 页 共 32 页 3、 当窗体启动时可通过 _属性控制窗体位于所有者的中心位置。 4、 若要将窗体 Form1 隐藏起来，则可通过执行代码 _来实现。 5、 要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的 _属性为_。 6、 窗体上放置了若干个文本框和命令按钮，当窗体装入后 ，要将焦点自动定位到文本框 Text1 上，则在设计时需要将 _控件的 _属性设置为 _。 7、 在标签控件中通过编程使文字换行用的代码是 _。 8、 设置计时器控件只能触发 _事件。 9、 设置计时器对象触发事件的时间间隔用 _属性。 10、 滚动条控件主要支
30、持两个事件，它们是 _事件。 11、 要使鼠标停留 在按钮上显示特殊的鼠标形状，应设置的属性值是 _。 12、 设某列表框共有 10 项，按题目要求补齐程序，完成相应的功能。 （ 1）按下命令按钮 Command1 时将列表框第 8 项的内容显示在窗体上： Private Sub Command1_Click( ) List._(7)=True Print List1._ End Sub （ 2）单击列表框某一项时立即将该项打印在窗体上： Private Sub List1_Click( ) Print_ End Sub （ 3）按下命令按钮 Command1 时在窗体上删除第 1、 3、 5
31、、 7、 9 项： Private Sub Command1_Click( ) For I=1 To 5 List1._ Next I End Sub （ 4）在列表框的每一项之后插入一个新的项： Private Sub Command1_Click( ) For I=1 to 10 X=InputBox(“请输入插入的第 ” & I & “项内容 ”) List1.AddItem_ Next I End Sub 13、 设在界面上放置了一个滚动条 Hscroll1 和一个标签控件 Label1，要使每次单击滚动条两端箭头时，或单击滚动条滑块与两端箭头之间的空白区域时，标签内容能够反映滚动条的
32、值，补齐以下代码。 Private Sub Hscroll1._( ) Label1.Caption = Hscroll1._ End Sub 要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。 Private Sub Hscroll1._( ) Label1.Caption = Hscroll1._ End Sub 14、 列表框（ ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中 _ _属性存放了列表框中所有项目的值。 15、 菜单项一般由标题、访问键、快捷键和复选标志等构成，通过对相应的属性进行设置可以改变这些项目的
33、状态，其中与复选标志相对应的属性是 _ _。 16、 keydown 与 keypress 事件各有其参数，若需获得用户按下 “a“ 还是 “A“ 需用 _事件。 17、 控件 _组合了文本框和列表框的功能，是 VB 中一种功能非常强大的选择类控件。 18、 若需要将窗体 Form2 以模态窗口的形式显示出来，可通过执行代码 _来实现。 19、 菜单中的分隔条是一种菜单控件，不响应 _事件，不能被选中。 二、 选择题 1、 当程序运行时 ， 在窗体上单击鼠标 ， 以下哪 个事件是窗体不会接收到 ( ) A MouseDown B MouseUp C Load D Click 2、 窗体 For
34、m1 的 Name 属性是 Frm1， 它的单击事件过程名是 （ ） A Form1_Click B Form_Click C Frm1_Click D Me_Click 3、 用于设置通用对话框控件显示文件类型的属性是 （ ） A Filter B Path C Partern D FoleName 4、 用于从内存删除窗体的 命令是（ ） A Move B Hide C Unload D Delete 5、 用于返回窗体可用区域宽度的属性是（ ） A ScaleWidth B ScaleLeft C ScaleHeight D ScaleTop 6、 下列关于属性设置的叙述错误的是：（ ）
35、 A一个控件具有什么属性是 VB 预先设计好的，用户不能改变 B一个控件具有什么属性是 VB 预先设计好的，用户可以改变 C一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置 D一个 控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值 7、 下列说法正确的是（ ） A对象属性只能在 “ 属性窗口 ” 中设置 B一个新的工程可以在 “ 工程窗口 ” 中建立 C必须先建立一个工程，才能开始设计应用程序 D只能在 “ 代码窗口 ” 中编写程序代码 8、 下 列关于窗体上控件的基本操作错误的是（ ） A 按 下一次 DEL 键只能删除一个控件 B按下一次 DEL 键可以同时删除多个控件
36、 C按住 SHIFT 键，然后单击每个要选择的控件，可以同时选中多个控件 D按住 ALT 键，然后单击每个要选择的控件，可以同 时选中多个控件 9、 下列关于设置控件属性的叙述正确的是（ ） A用户必须设置属性值 B所有的属性值都可以由用户随意设定 C属性值不必一一重新设置 D不同控件的属性项都完全一样 10、 不 可以通过下列（ ）操作将焦点赋给对象 第 7 页 共 32 页 A运行时使用 TAB 键 B在代码中用 CALL 语句调用 C在代码中用 SETFOCUS 方法 D用访问键或用鼠标单击选择对象 11、 要在 FORM_LOAD 事件过程中使用 PRINT 方法在窗体上输出一定的内容
37、，应（ ） A设置窗体的 VISIBLE 属性 B设置 窗体的 CAPTION C调用窗体的 SHOW 方法 D设置窗体 ENABLED 属性 12、 下面（ ）对象无 CAPTION 属性 A FORM B COMMANDBUTTON C TEXTBOX D LABEL 13、 通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件进行筛选过 滤，后者使用 （ ） 属性进行该项设置。 A Pattern B Path C Filter D FileName 14、 对于复选框控件 chkBoy，如果在程序中设置它为选中状态，下面 语句正确的是（ ） A chkBoy.Checke
38、d = true B chkBoy.Value = true C chkBoy.Selected = true D chkBoy.Value = 1 15、 计时器（ Timer）控件用于每隔一段时间自动触发一次 Timer 事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（ ） A Interval B SmallChange C LargeChange D Max 16、 以下关于 VB 中窗体（ Form）的说法中，不正确的描述为 （ ） A执行 Unload Form 语句后，窗体 Form 消失，但仍在内存中 B当窗体的 Enabled 属性为 False 时，
39、通过鼠标和键盘对窗体的操作都被禁止 C窗体的 Height、 width 属性用于设置窗体的高和宽 D窗体的 load 事件在加载窗体时发生 17、 关于滚动条控件，下面说法错误的是 （ ） A点击滚动条的箭头，可以改变它的 value 值，从而引发 Change 事件 B拖动滚动框，可以触发 Scroll 事件 C通常，水平滚动条的值从左向右递增，垂直 滚动条的值自上而下递增 D拖动滚动框，可以触发 Change 事件，而且是连续触发的 18、 在窗体上放置一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程： PriVate Sub Command1_C1ick() a
40、$=“software and hardware“ b$ Right(a$,8) c$=Mid(a$,1,8) Msgbox a$,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是 （ ） A softWare and hardware B software C hardwafe D出现错误 19、 在多重窗体程序设计中，关键的问题是要解决不同窗体之间的衔接和窗体的显示、关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是 （ ） A Load 语句用于加载指定窗体，即在内存中创建该窗体 B Show 方法兼具 Load 语句的功能，可以将窗体显示出来 C Hide
41、 方法用于将窗体隐藏起来 D Unload 语句用来释放窗体，但窗体并没从内存中消 20、 滚动条控件的属性中，表示取值范围最大值的属性是 （ ） A Max B LargeChange C Min D Value 21、 程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件 （ ） A DragDrop B MouseDown C MouseUp D MouseMove 22、为了使用通用对话框进行打开文件的操作，应将通用对话框的 Action 属性设定为（ ）。 A 0 B 1 C 2 D 3 四、读程序题 1、 对窗体编 写如下代码： Op
42、tion Base 1 Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = a(1) m2 = 1 If KeyAscii = 13 Then For i =2 To 5 If a(i)ml Then m1 =a(j) m2 =i End If Next i End If Print m1 Print m2 End Sub 程序运行后，按回车键，输出结果 是什么？ 2、 阅读下 面的程序，写出执行结果。 Private Sub Form_load() Form1.show d = 0 For a = 1 To 2 For b = 1 To a For c = b To 5 d = d + 1 Next c Next b Next a Print d End Sub 第 8 页 共 32 页 五、编程题 1、 在窗体上有一个文本框控件，名称为 TxtTime；一个计时器控件，名称为 Timer1，要求每一秒在文本框中显示一次当前的时间 ，请编程实现 。 2、 在 T
