VisualBasic程序设计教程第三版课后习题答案

1、VB综合复习资料第一章 Visual Basic 程序设计概述一、填空题1Visual Basic 是一种面的可视化程序设计语言，采取的程机制。2在VB 中工程文件的扩展名，窗体文件的扩展名，准模块文件的扩展名。3、执行“工程”菜单下命令，可选择并添加ActiveX 控件4Visual Basic 6.0用于开环境下的应用程序。二、选择题1、下面不是VB 工作模式的是（ ）A设计模式B运行模式C汇编模式D中断模2、可视化编程的最大优点是（）A具有标准工具箱 BCD所见即所得3、下列不能打开属性窗口的操作是（ ） A执行“视图”菜单中的“属性窗口”命B按F4 键C 按 Ctrl+T D单击工具栏

2、上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（ ） ACtrl+DBCtrl+ECCtrl+FDCtrl+G 5Visual Basic的编程机制是（）A可视化B面向对象C面向图形D事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB 的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章 简单的 VB 程序设计一、填空题1、设置是否可以用Tab 键来选取命令按钮，应该属性。2、一个控件在窗体的位置由和属性决定，其大小由和 属性决定。3、利用对象的属性 setfocus 可获得焦

3、点，对于一个对象，只有其visible 属性和 属性为true，才能接受焦点。4、设置控件背景颜色的属性名称。5、所有控件都具有的共同属性属性。一般情况下控件有两个属性项的缺省值是相同的这两个属性项。7VB 中的每个对象（控件）都有一组特征，这组特征称，我们通过修它可以控制对象的外观和操作。8、通常情况下中一个工程主要包括如下四个文件：窗体文件、工程文件、类模文件文件后者的扩展名通常由Basic 语言编写是一个可共用的子程序。9VB 有三种工作模式，分别是设计模式和中断模式。二、选择题1、以下能够触发文本框Change 事件的操作是（ ）A文本框失去焦点B文本框获得焦点C设置文本框的焦点D改变

4、文本框的内容2、应用程序设计完成后，应将程序保存，保存的过程是（ ）A只保存窗体文件即可B只保存工程文件即可2C先保存工程文件，之后保存窗体文件D先保存窗体文件（或标准模块文件，之后还要保存工程文件 3VB 应用程序的运行模式是（ ）A解释运行模式B编译运行模式C两者都有D汇编模4、任何控件都具有的属性是（）ATEXTBCAPTIONCNAMEDFORECOLOR5、决定控件上文字的字体、字形、大小及效果的属性是（ ）ATEXTBCAPTIONCNAMEDFONT6、在窗体上建立了多个控件，如 TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1 控件上，应将

5、COMMAND1 控件的（ ）设置为 0AINDEXBTABINDEXCTABSTOPDENABLED7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的 TEXT 行赋值从而改变了文本框的TEXT 属性值时，将触发文本框的（ ）事件ACLICKBDBLCLICKCGOTFOCUSDCHANGE8在运行时按TAB 键跳过了一个可以获得焦点的控（如文本框则可能是因（ A该控件的TABSTOP属性值为TRUE该控件的TABINDEX属性值为FALSE C该控件的ENABLED 属性值为TRUED该控件的ENABLED 属性值为FALSE9、为了防止用户随意将光标置于控件上，应（ ）将控

6、件的TABINDEX 0将控件的TABSTOP属性设置为TRUE将控件的TABSTOP属性设置为FALSE将控件的ENABLED属性设置为FALSE10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（ ）属性ABACKCOLOR CFORECOLORBBORDERSTYLE DBACKSTYLE1、如果要在文本框中输入字符时，只显示某个字符，如星号中输入的字符仍然显示出来，而不显示星号，原因可能是（ ）文本框的MULTILINE属性值为TRUE文本框的LOCKED属性值为TRUE文本框的MULTILINE属性值为FALSE文本框的LOCKED属性为FALSE12、在运行阶段，要在文

7、本框 TEXT1 获得焦点时选中文本框中所有内容，对应的事件过程是（ ）Private Sub Text1_GotFocus( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End SubPrivate Sub Text1_LostFocus( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End SubPrivate Sub Text1_Change( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End SubPrivate Su

8、b Text1_SetFocus( ) Text1.SelStart=0 Text1.Sellength=Len(Text1.Text)End Sub13Visual Basic 继承了Basic 其中构成其控件（对象）的三要素是（）C属性、过程、方法控件、窗体、事件D14、决定标签（Label）显示的属性是（ ）ATextBNameCCaption15、命令按钮的标题文字由（）属性来设置。ATextBCaptionCNameD(名称16、若要设置文本的显示颜色，则可用（）属性来实现。ABackColorBForecolorCFillColorDBackstyle17、在运行时，若要调用某命令

9、钮的Click 事件过程，则可设置该命令钮对象的（ ）性为Ture 来实现。AEnabledBValueCDefaultDCancel18、在运行时，若要获得用户在文本框中所选择的文本，可通过访问（ ）属性来实现。ASelStartBSelLenghtCTextDSelText三、简答题41、事件驱动的含意是什么？举例说明。2、交互式开发方法和传统的应用程序开发过程有什么不同？3、文本框在什么情况下使用？4、什么是工程？5、结构化程序设计的三种基本结构是什么？6、对象的三要素是什么？并分别进行简单的解释。7、为什么要生成可执行文件和制作安装盘？8、使用变量前先声明有什么好处？9、如何使用帮助功

10、能？10、结构化程序设计的特点是什么？11、为了把焦点移到某个指定的控件，在代码中应使用的方法是什么？12、启动Visua Basic 么文件？先保存的是哪一个？13、为了防止文本框中的信息运行后被用户修改，应设置什么属性？第三章 VB 基本语言一、填空题1、一般可以使关键字声明常量。2类型也称变体类型，是一种通用的可变的数据类型，它可表示或存储任何种数据类型。3、变量的声明分为两种方法和。4、在 VB 中，用语句设定数组的下界，用和 语句分别返回数组的上、下界。5、在代码模块中加入Option Explicit 的目的。6、function aa (a1 as date,optional a

11、2 as boolean) as single，写出 optional 命令的作用 。7、在VB 中，我们用一个简单语句就能实现退出程序。8、生成消息框的命令，生成输入框的命令。9、通用对话框（commondialog）属 activex 控件，它可以显示多个标准对话框，包括打开/另存为字体打印等对话框若要显示所有文件则应设置其属性filter=若要使它显示为打印对话框，则应使用什么方。10、从字符串中任意位置截取字符的函数。、语句For j = 3 To 20 Step 3 使循环体执行次。12、对于正在使用的动态数组 Arraya()，要增加一个单元，但不能破坏数组内的数据则应使用语。13

12、、在Visual Basic 中声明静态变量的关键字14、表达式10 Mod 6 4 的值。15、表达式chr(Asc(a) + 的值。16VB 中使用注释有2 种方法，。17VB 中的数据以四种形式存储：常量和记录。18、为了在VB 中存储一个4 行5 列的二维矩阵，需要定义一个整型的数组，请把数定义语句补充完整 Juzhen(_) as Integer。19、控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名，但是每个控件都有一个唯一的下标来区分，我们使用属来设置下标。20、在过程调用中，实现调用过程的实参和被调用过程的形参之间的数据传递有两种方式：按值传递。21、为了保证程序

13、中必须对变量的强制性定义，需要在代码模块的声明部分加入 语句。22、分析ForNext i = 5 To 30 Step 2 中，循环体一共执行了 次。23、表达式Mid(UniversityOfPetroleum, 8, 4) 的值为。24、常量分为普通常量常量。25、要将大写字母转换为小写字母，可使函数。26、不管焦点在哪个控件上，键相当于按了取消按钮。27、执行“工程”菜单下命令，可选择并添加ActiveX控件。28、是程序中VB停止执行的地方。29、逻辑常量为True 或。30、使用的声明后，当程序中使用未经声明的变量时，程序运时会报错。31、要将小写字母转换为大写字母，可使函数。63

14、2、自字符串N1 位开始向右取N2 个字符，要使函数。33、日期常量表示时，用符将日期型数据括起来。34、局部变量只能中声明和使用。35、模块级变量的声明关键字是Dim 或。36、函数Abs(x)的功能。37、表达式3/6*5 的值是。二、选择题1、以下哪个是合法的变量（）ArightBabc123C123_abcDab123c 2、下列说法错误的是（） A在同一模块不同过程中的变量可以同名 B不同模块中定义的全局变量不可以同名 C引用另一模块中的全局变量时，必须在变量名前加模块名D同一模块中不同级的变量可以同名3、把MsgBox 的返回值转换为数值应该使用的函数是（）ALogBStrCLen

15、DVal4、语句DIM 中定义的数组有（）个元素A12B60C120D3455、下面程序运行后输出的结果是（）A$=CHINA B$=STRING$(3,A$) PRINT B$ENDACHIBCCCCINADAAA6、以下语句的输出结果是（）Print Format$(32548.5, 000,000.00)A32548.5B325,485.00C032,548,50D32,548,507、以下叙述中错误的是（）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型Sub过程中不能嵌套定义Sub过程Sub 过程中可以嵌套调用Sub 过程D8Visual Basic提供的O

16、n Error Resume next 错误陷阱语句表示（A当发生错误时，使程序转跳到语句标号为0 的程序块B当发生错误时，不使用错误处理程序块 C当发生错误时，忽略错误行，继续执行下一语句 D当发生错误时，终止本过程执行，继续执行下一过程9、在Visual Basic 中，若要将控制权交给操作系统则通过（）的语句。AEndBExit DoCExit Sub10、在Visual Basic 中语句的续行号采用（）A空格与下划线B下划线与空格C空格与短线D短线与空格11、假定有以下程序段： For i=1 to 3For j=5 to 1 Step 1 Print i*jNext j,i则语句P

17、rint i*j 的执行次数是（）A15B.16C17D1812、从键盘上输入两个字符串，分别保存在变str1str2 中。确定第二个字符串在第个字符串中起始位置的函数是（）ALeftBMidCStringDInstr13、如果将布尔常量值TRUE 赋值给一个整型变量，则整型变量的值为（ ）A0B-1CTRUE14、下列叙述不正确的是（）AB注释语句可以放在代码中的任何位置 C注释语句不能放在续行符的后面 D代码中加入注释语句的目的是提高程序的可读性15、语句 PRINT “INT(-13.2)”；INT(-13.2)的输出结果为（ ）8AINT(-13.2)= CINT(-13.2)= -1

18、3BINT(-13.2)= 13.2DINT(-13.2)= -1416、如果TAB 函数的参数小于 1，则打印位置在第（ ）列A0B1C217、变量未赋值时，数值型变量的值为（ ）A0B空C1D无任何18、下列语句中正确的是（）Atxt1.text+txt2.text=txt3.textC12label.caption=1234Da=inputbox(“hello”)19、假设变量BOOLVAR 是一个布尔型变量，则下面正确的赋值语句是（ ）ABOOLVAR=TRUE CBOOLVAR=#TRUE#BBOOLVAR=.TRUE DBOOLVAR=320判断循环结构的类型和循环体的执行次数，正

19、确的选项是（ ） C 次 次D 26、在程序中，使用InputBox 函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（ ）AValBLenCStr27、动态数组因为在程序运行前无法确定数组的大小，所以经常根据程序的运行情况， 对数组进行重新定义，以下关于VB 中动态数组的叙述中不正确的是（ ）可以用ReDim语句重新定义动态数组，并且可以进行多次重定义首次用Dim 进行动态数组声明的时候，必须指明它的类型和上下界PreserveReDim 语句的可选参数，用于保留动态数组原来的内容当对动态数组使用Erase 语句进行释放操作时，将释放其内存28VB VB 控件的

20、分类（ ）A控件B可插入对象CADO 控件DActiveX控件294+5 6 * 7 / 8 Mod 9 的值是（ ）A4B5C6D730、可以同时删除字符串前导和尾部空白的函数是（ ）ALtrimBRtrimCTrimDMid三、简答题1、全局变量声明有哪些限制？2、字符串是否可以自动转换为数字类型？3、用Format 函数格式化后的字符格式在不同区域环境下的输出是否相同？为什么？4、在InputBox 函数中，哪一个参数是必需的？5、在MsgBox 函数中哪一个参数是必须的？6、在什么情况下使用过程？7、为什么要进行程序调试？8、调试程序有哪些手段？9、用语句Dim A(-3 To 5)

21、As Integer定义的数组的元素个数是多少？10、设有如下的 Visual Basic 表达式：5*x2-3*x-2*Sin(a)/3，与它对应的数学式是什么？11、数学式(2x a)(3y b) 对应的VB 表达式是什么？12、表达式 23 And 44 的值是什么？13、怎样在程序中设置断点？14、在什么情况下可以设置断点？15、程序出错的类型有哪几种？16、在同一模块、不同过程中声明的相同变量名，两者是否表示同一个变量？为什么？17、什么情况下会出现“数组下标越界错误”？18、逐语句和逐过程有什么区别？19、表达式 2.75 * 2 3.45 的值是什么？20、在程序设计中为什么尽量

22、不用GoTo 语句？四、读程序题1、分析以下程序，写出运行结果。Private Sub Form_Click()score = Int(Rnd * 10) + 80 Select Case scoreCase Is 60A$ = FCase 60 To A$ = DCase 70 To A$ = CCase 80 To A$ = BCase ElseA$ = AEnd Select Print A$12End Sub2、读下面的程序，分析其功能，写出运行结果。在窗体上有一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click()For I

23、= 1 To 4 For J = 0 To IPrint Chr$(65 + I); Next JPrint Next IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？3、阅读下面的程序，分析并写出其功能。 Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integer n=1Do While na(n) n=n+1LoopFor m=20-1 To n Step a(m+1)=a(m)Next a(n)=xEnd Sub4、分析以下程序，写出运行结果。Sub subP(b() As I

24、nteger)For i =1 To 4 b(i)=2*iNext i End SubPrivate Sub Commandl_Click()Dim a(1 To 4)As a (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4 Print a(i)Next i End Sub运行上面的程序，单击命令按钮，输出结果是什么？5、分析以下程序，写出运行结果。Sub sele()Dim n as i=21:n=3Do While i=inLoopPrint End Sub6、分析以下程序，写出运行结果。Sub selectPrint() Dim a as

25、Integer Dim b as Integer Dim c as Integer a=2:b=5:c=2If(a=b)and(a=c) or (bc)Print a14a=a+2ElsePrint EndIfPrint End Sub7、分析以下程序，写出运行结果。Sub swap()Dim x as Integer Dim y as Integer Dim z as Integer x=1:y=2:z=0Print x;y;z x=x+y x=x*z Print x,y,zEnd Sub8Sub selectPrint()Dim a as Integer Dim b as Dim c as

26、 Integer a=3:b=3:c=2If(a=b)and(ac)Then Print a Print a,b,cEnd Sub五、编程题1、输入一年号，判断它是否是闰年。界面如下图所示，包括两个标签、一个文本框和一个命令按钮。提示：如果此年号能被400 整除或者不能被 400 除尽，也不能被100 除尽，但能被 4 整除，则它是闰年；否则，不是闰年。、输入两个正整数mn，求m 和 n主要的控件包括：两个标签（ Lable、Lable、两个文本框（Text、Text）和一个按钮（Command1 。3（百分制10909080输出80 输出中等；若是70 输出及格；若是60出不及格；若是其他数

27、则输出信息。4、在窗体中显示从 9 号字型到 16 号字型。5、在有序序列中插入一个数，使插入后的数列仍然有序（设按由小到大排列。6、编程实现二维数组转置。7、随机输入 10 个 100 以内的整型数，计算其和及平均值。37133+73+133719、从键盘输入一个大于 2 的正整数，判断该数是否是素数。10、求二维数组中的最小值及其所在行号、列号。、求一元二次方程（包括实根和复根。12、输入一个正整数n，计算出n!并输出。13、Faibonacci数列为 0，1，1，2，3，5，8，13 ，计算并输出第 20 项以及前 20 项的和。第四章 常用控件与窗体一、填空题1、向列表框控件添加新项目

28、的方法。2、在VB 中，最主要的两种对象和。3、当窗体启动时可通属性控制窗体位于所有者的中心位置。4、若要将窗体Form1 隐藏起来，则可通过执行代来实现。5、要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件属16性为。窗体上放置了若干个文本框和命令按钮当窗体装入后要将焦点自动定位到文本Text1上，则在设计时需要控件属性设置。7、在标签控件中通过编程使文字换行用的代码。8、设置计时器控件只能触事件。9、设置计时器对象触发事件的时间间隔属性。10、滚动条控件主要支持两个事件，它们事件。要使鼠标停留在按钮上显示特殊的鼠标形状应设置的属性值。12、设某列表框共有 10 项，按题目要求补

29、齐程序，完成相应的功能。按下命令按钮Command1 8 Private Sub Command1_Click( )List.(7)=True Print List1. End Sub单击列表框某一项时立即将该项打印在窗体上：Private Sub List1_Click( ) Print End Sub按下命令按钮Command1 、3、9 Private Sub Command1_Click( )For I=1 To 5List1. Next I End Sub在列表框的每一项之后插入一个新的项：Private Sub Command1_Click( ) For I=1 to 10X=In

30、putBox(“请输入插入的第” & I & “项内容”)List1.AddItem Next IEnd Sub13、设在界面上放置了一个滚动条Hscroll1 和一个标签控件Label1，要使每次单击滚动的值，补齐以下代码。Private Sub Hscroll1.( ) Label1.Caption =Hscroll1. End Sub要使拖动滚动条滑块时标签内容能够反映滚动条的值，补齐以下代码。Private Sub Hscroll1.( ) Label1.Caption =Hscroll1. End Sub14、列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多

31、个项目。它具有几个非常重要的数组属性，其属性存放了列表框中所有项目的值。15、菜单项一般由标题、访问键、快捷键和复选标志等构成，通过对相应的属性进行设置可以改变这些项目的状态，其中与复选标志相对应的属性。16、keydown 与 keypress 事件各有其参数，若需获得用户按下a 还是 A 需用 事件。17、控组合了文本框和列表框的功能，是VB 中一种功能非常强大的选择控件。18、若需要将窗体 Form2以模态窗口的形式显示出来，可通过执行代码 来实现。19、菜单中的分隔条是一种菜单控件，不响事件，不能被选中。二、选择题1、当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收(AMou

32、seDownBMouseUpCLoadDClick2、窗体Form1 的Name 属性是Frm1，它的单击事件过程名是（） AForm1_ClickBForm_ClickCFrm1_ClickDMe_Click 3、用于设置通用对话框控件显示文件类型的属性是（）AFilterBPathCPartern4、用于从内存删除窗体的命令是（）18AMoveBHideCUnload5、用于返回窗体可用区域宽度的属性是（）AScaleWidthBScaleLeftCScaleHeightDScaleTop 6、下列关于属性设置的叙述错误的是（ ） A一个控件具有什么属性是VB 预先设计好的，用户不能改变B

33、一个控件具有什么属性是VB 预先设计好的，用户可以改变C一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置 D一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值 7、下列说法正确的是（）A对象属性只能在“属性窗口”中设置 B一个新的工程可以在“工程窗口”中建立 CD只能在“代码窗口”中编写程序代码8、下列关于窗体上控件的基本操作错误的是（ ）按下一次DEL键只能删除一个控件按下一次DEL键可以同时删除多个控件按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件按住ALT 9、下列关于设置控件属性的叙述正确的是（ ） A用户必须设置属性值BC属性值不必一一重新设置

34、 D不同控件的属性项都完全一样10、不可以通过下列（ ）操作将焦点赋给对象A运行时使用TAB键B在代码中用CALL语句调用C在代码中用SETFOCUS 方法D用访问键或用鼠标单击选择对象11、要在FORM_LOAD 事件过程中使用PRINT 方法在窗体上输出一定的内容，应（ ）设置窗体的VISIBLE C调用窗体的SHOW 方法设置窗体的CAPTION D设置窗体ENABLED 12、下面（ ）对象无CAPTION 属性AFORMBCOMMANDBUTTONCTEXTBOXDLABEL13、通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件进行筛选过滤，后者使用（ ）属性进行该

35、项设置。APatternBPathCFilterDFileName14、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（）AchkBoy.Checked = true CchkBoy.Selected = trueBchkBoy.Value = true DchkBoy.Value = 115、计时器（Timer）控件用于每隔一段时间自动触发一次Timer 事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（ ）AIntervalBSmallChangeCLargeChangeDMax16、以下关于VB 中窗体（Form）的说法中，不正确的描述为

36、（ ）执行Unload Form语句后，窗体Form消失，但仍在内存中当窗体的Enabled 属性为False 时，通过鼠标和键盘对窗体的操作都被禁止窗体的Height、width属性用于设置窗体的高和宽窗体的load事件在加载窗体时发生17、关于滚动条控件，下面说法错误的是（ ） A点击滚动条的箭头，可以改变它的value 值，从而引发Change 事件B 拖 动 滚 动 框 ， 可 以 触 发 Scroll 事 件CD拖动滚动框，可以触发Change 事件，而且是连续触发的18、在窗体上放置一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程：PriVate Sub C

37、ommand1_C1ick() a$=software and hardware b$Right(a$,8) c$=Mid(a$,1,8)Msgbox a$,b$,c$,1 End Sub则在弹出的信息框的标题栏中显示的信息是（ ）20softWare and hardware Chardwafesoftware D19、在多重窗体程序设计中，关键的问题是要解决不同窗体之间的衔接和窗体的显示、关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是（ ）Load语句用于加载指定窗体，即在内存中创建该窗体Show 方法兼具Load CHide方法用于将窗体隐藏起来DUnload 语句用来释放窗

38、体，但窗体并没从内存中消20、滚动条控件的属性中，表示取值范围最大值的属性是（ ）Max CMinLargeChange DValue21、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（ ）DragDrop CMouseUpMouseDown DMouseMove22Action （ 。A0B1C2D3三、简答题12、滚动条的change 事件和scroll 事件有什么不同？3、快捷键和访问键有什么区别？4（即滑块、假定有一个菜单项，名为MenuIte，为了在运行时使该菜单项失效（变灰什么语句？6、为了暂时关闭计时器（即时钟控件，应把该计

39、时器的什么属性设置为Fals？7、单选按钮和复选框（即检查框）各用于什么情况？8、如何为一个菜单项设置热键和快捷键？9、菜单的形式有哪两种？10、在 KeyPress 事件中，如何取消用户刚输入的字符？11、框架的作用是什么？12、如果要计时器每秒钟发生 4 个 Timer 事件，则Interval 属性值应设多少？13若行则请说明如何访问。14、如何在框架中建立控件？15、组合框有哪几种类型？四、读程序题1、对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237,126,87,48

40、,498)m1 = a(1) m2 = 1If KeyAscii = 13 Then For i =2 To 5If a(i)ml Then m1 =a(j)m2 =i End IfNext i End If Print m1 Print m2End Sub程序运行后，按回车键，输出结果是什么？2、阅读下面的程序，写出执行结果。Private Sub Form_load()Form1.show d = 0For a = 1 To 2 For b = 1 To a22For c = b To 5 d = d + 1Next c Next bNext a Print d End Sub五、编程题1

41、、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间，请编程实现。2、在Text1 中输入任一英文字母，在Text2 中显示该英文字母及其ASCII 码值。要求在文本框Text2 中显示出所有输入的英文字母及其ASCII 码值，如下图所示。Text1 Command1Text23、编写一个程序，能够实现任意个整数的排序。4错误提示。5、编程实现任意两个数的“加、减、乘、除6、编写一个程序，能够求任意个正整数的最大值和最小值。7、编程求任意两个正整数的最大公约数。六、程序分析填空题1、建立一个如图所示的简单编辑器。用户在文本

42、框（text1）中输入正文后，选中某些文(btnCut)Click 事件补充完整。程序运行界面：Private Sub btnCut_Click()请补充End Sub2、计算 1 + 2 + 3 + + 100 的和并输出。请把下面用 Do While Loop 循环结构实现这一功能的代码补充完整。Private Sub Form_Load()Dim sum,count as Integer请补充Do while count =100请补充LoopText1.Text = sum End Sub3、列表框控件（ListBox）支持多项选择，这项功能在对用户的兴趣爱好进行调查的时候显得非常好用

43、，在下图所示的界面中列表框List1 用于列出爱好选项，供用户进行多项选择。24请把下列代码补充完整，能够取得用户的所选爱好选项：Private Sub Command1_Click() Dim i As IntegerDim s As Strings = txtname.Text & 爱好For i = 0 To List1.ListCount - 1请补充Next Label3.Caption = End Sub4、要求利用计时器Timer1，在窗体 Form1 上每隔 1 秒钟打印一个 1 到 10 的随机整数， 请把下列代码补充完整：Private Sub Form_Load()Sho

44、w请补充End SubPrivate Sub Timer1_Timer()请补充End Sub第五章 文件一、填空题1、文件按存取方式及其组成结构可分为文件、文件和 文件。2 、为了使 文件列表框 List1 和目录列表 框 Dir1 之间能 产生同步效果， 必须在 事件过程中加入语。3、文件系统控件的作用是向用户显示系统中的文件，方便用户选择，它是一组控件的组合，包括：驱动器列表框 二、选择题 和文件列表框。1、利用下面哪个函数可判定访问文件时是否已到文件尾（）ALOFBLOCCEOFDBOF2、用于设置文件列表框控件显示文件类型的属性是（）AFilterBPathCParternDFile

45、Name三、简答题1、什么是文件？2、文件存取分成几类，几种模式？3、顺序文件、随机文件和二进制文件各有什么特点和用途？4、文件有哪几种类型？它们的区别是什么？5、请说明PRINT和WRITE语句的区别6、EOF 函数的功能是什么？四、编程题1、实现二进制方式文件的复制。2、如下图所示，实现一个简单的文件管理器。26第六章 图形操作一、填空题使方法可在窗体中进行文本的输出用方法可画圆用 方法可画直线。2、函数可加载图形。3、为了使一个 Picture 控件能自动根据装入的图片调整大小，应设置该控件的 属性为。二、选择题1、下列关于控件画法的叙述错误的是（ ）单击一次工具箱中的控件图标，只能在窗

46、体上画出一个相应的控件按住CTRL 控件双击工具箱中的控件图标，所画控件的大小和位置是固定的 D不使用工具箱中的控件工具，不可以在窗体上画出图形对象，但可以写入文字字符 2（如窗体或图片框）之后，如果要保持该所画图形的完整性，可以选择触发（ ）事件来完成图形的重画工作APaintBLoadCClickDActive三、简答题1、在什么情况下使用Image 控件而不使用PictureBox 控件？2、在程序运行时怎样在图形框中装入和删除图形？3、颜色函数主要有哪些？四、编程题1、如下图显示当前目录下的图片文件列表，并能够预览选定的图片。第七章 面向对象的编程一、填空题1、类是具有相同性质的对象。

47、2、语句DIM TEMP AS Object的作用。二、简答题1、什么是模块？第八章 界面设计一、简答题1、什么是多文档界面（MDI）？2、说明菜单栏、菜单、选项和工具栏之间的关系。3、结束MDI 应用程序时，需要注意什么？第九章 Visual Basic 与数据库一、简答题1、表间的关系类型有哪几种？2、Visual Basic 中的记录集有哪几种类型？二、编程题281、请编程实现每两秒在标签中显示一次当前的时间。2、找出被 3、5、7 整除，余数为 1 的最小的 2 个正整数。3、有一个mn 的实型矩阵A(m,n)，找出其中最大的那个元素所在的行和列。4、找出能同时被 5 和 7 整除的最

48、小的 10 个正整数。5、编写一个程序，能够输出 1001000 之间所有的素数。6、从键盘上任意输入 100 个整数，统计负数的个数，并计算正数的和。7、有一种数，正序读与反序读都相同，这种数叫回文数，如88、858、2332 等。求出 4位数以内（09999）的所有回文数。8、输出“九九乘法表参考答案第一章 Visual Basic 程序设计概述一、填空题1、对象、事件驱动2Vbp、bas、部件4WINDOWS二、选择题1C、C3C、D5D第二章 简单的 VB 程序设计一、填空题1Tabstop2、top、height3enabled4、backcolor5、name6、name 和 ca

49、ption 7、属性8、标准模块文件9、运行模式二、选择题1D2D3C4C5D6B7D8D9DB18、D第三章 VB 基本语言一、填空题1Const 23、隐式声明、显示声明304option 、ubound、5、强制变量声明6、表示a2 7End8、Msgbox、Inputbox 9、*.*、showprint10、Mid()11、612、redim preserve arraya(ubound(arraya()+1) 13、static14、015、f16、 1718、1 to 4,1 to 5 19、Index20、按地址21、Option Explicit 22、1323 、 ityo

50、 24、符号25、LCase 26、ESC28、断点、30、Option Explicit 31、UCase32、Mid 33、#34、过程35、private36、求x 的绝对值37、2.5二、选择题1D2B3D4C5B6C7D8C9DA32四、读程序题1、结果如下：B2、结果如下： BBCCC DDDD EEEEE3、功能如下：在 20 个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。4、输出结果为：24685、输出结果为：36、输出结果为：24527、输出结果为：1200208、输出结果为：3332五、编程题1、参考代码如下：Private Sub Comman

51、d1_Click() Dim year, x As Integer year = Val(Text1.Text)If year Mod 400 = 0 Then Label2.Caption = 是闰年Else 下面是嵌套块If 语句If year Mod 4 = 0 And year Mod 100 0 Then Label2.Caption = 是闰年ElseLabel2.Caption = 不是闰年 End IfEnd If End Sub2、程序参考代码如下：Private Sub Command1_Click()Dim m, n, r As Integer m = Val ( Tex

52、t1.Text ) n = Val ( Text2.Text )If m 0 Or n 0 Then 若判断为非法数据，Then 子句输出相应信息Label2.Caption = 输入数据有错！Else 子句用辗转相除法求余数r = m Mod nDo While r 0 m = n34n = rr = m Mod n Loopn 中存放的就是最大公约数，输出n 值Label2.Caption = 最大公约数为： & n End IfEnd Sub3、参考代码如下：Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If

53、x 100 Or x 0 ThenText2.Text = error ElseIf x 60 ThenText2.Text = 不及格ElseIf x 70 ThenText2.Text = ElseIf x 80 ThenText2.Text = ElseIf x 90 ThenText2.Text = 良好ElseText2.Text = 优秀End If End Sub4、参考代码如下：Private Sub Form_Load() Dim i As IntegerShow使输出可见Form1.Font = 新宋体For i = 9 To 16 Step 1 Form1.FontSiz

54、e = i Print i; 号字型Next iEnd Sub 5Private Sub Command1_Click()Dim a(1 To 11) As Single 定义静态数组 a 含 11 个元素Dim i, j As IntegerDim num As Single 给数组元素赋初值，即原始队列a(1) = 3: a(2) = 5: a(3) = 7: a(4) = 8: a(5) = 9a(6) = 13: a(7) = 16: a(8) = 19: a(9) = 33a(10) = 38 输出原始队列For i = 1 To 10Label2.Caption = Label2.

55、Caption & a(i) & , Next inum = Val(Text1.Text) 把输入的数插入队列中For i = 10 To 1 Step -1If num a(i) Thena(i+1) = a( i ) 元素后移一个位置elsea(i+1) = numExit For 退出循环End IfNext i 输出新队列For i = 1 To 1136Label3.Caption = Label3.Caption & a(i) & , Next i End Sub6、参考代码如下：Option Base 1Private Sub Form_Load()Const N = 4 常量

56、N 决定二维数组大小Dim a(N, N) As Integer Dim i, j, Temp As Integer Show 数组初始化For i = 1 To N For 循环 i 1 变化到For j = 1 To Na(i, j) = i * 10 + j Next jNext i 输出原始数组Print 转置前的数组：For i = 1 To N For 循环 i 1 变化到For j = 1 To NPrint a(i, j); Next jPrint Next i 数组转置For i = 1 To N For 循环 i 从1 变化到For j = 1 To i 交换Temp =

57、a(i, j) a(i, j) = a(j, i) a(j, i) = TempNext j Next i 输出转置后的数组Print 转置后的数组：For i = 1 To N For 循环 i 1 变化到For j = 1 To NPrint a(i, j); Next jPrint Next iEnd Sub 7Private Sub Form_Click()Dim a(10) As Integer, i As Integer Dim sum As Integer, ave As Integer sum = 0For i = 1 To 10a(i) = Int(Rnd * 101) su

58、m = sum + a(i)Next iave = sum / 10 Print sum, ave End Sub8、参考代码如下：Private Sub Form_Load()Dim i, j, k, Flower As Integer ShowFor i = 1 To 9For j = 0 To 9For k = 0 To 938Flower = i * 100 + j * 10 + kIfFlower = i 3 + j 3 + k 3 Then Print Flower ; 是水仙花数Next k Next jNext i End Sub9、程序参考代码如下：Private Sub C

59、ommand1_Click()Dim m, i, y As Integer m = Val(Text1.Text) If m = 2 ThenLabel2.Caption = 输入数据有错Elsek = Sqr(m) + 1 For i = 2 To ky = m Mod iIf y = 0 Then Exit For Next iIf y = 0 ThenLabel2.Caption = m & 不是素数ElseLabel2.Caption = m & 是素数 End IfEnd If End Sub10、程序参考代码如下：Option Base 1Private Sub Form_Load

60、()Const N = 5 常数 N 确定数组的大小Dim a(N, N) As IntegerDim i, j, row, line, min As Integer ShowFor i = 1 To N For 循环 i 1 变化到NFor j = 1 To N For循环 j 1 变化到Na(i, j) = Int(100 * Rnd) + 1 N*N 1100 间的随机数Next j Next i 输出二维数组Print 数组内容是： For i = 1 To NFor j = 1 To N Print a(i, j);Next jPrint 输完一行元素后输出一个换行Next i 设定