Visual Basic程序设计复习题及答案.docx

1、Visual Basic程序设计复习题及答案中南大学网络教育课程考试复习题及参考答案Visual Basic程序设计(专科)一、单项选择题：1.Visual Basic程序中的注释所使用的字符是 A. B. : C. D. _2.若要设置定时器的定时间隔设为10秒，应将( )属性值设为10000。 A. Interval B. Value C. Enabled D. Text3.算法一般都可以用( )三种控制结构组合而成。 A.循环、分支、递归 B.顺序、循环、嵌套C.循环、递归、选择 D.顺序、选择、循环4.下列可调整图片框的大小以适合图片的属性是 A.stretch B. autosize

2、 C. picture D. oledropmode5.用下面的语句所定义的数组的元素个数是 Dim arr(3 to5,-2 to 2)A.20 B. 12 C.15 D. 24 6.下列不属于常量的是 A. 12 B. “ch” C. abc D. 1.237.InputBox函数的返回值类型为 A.数值型 B.字符型 C.逻辑型 D.变体型8.默认情况下，语句：Dim student(10,5) 定义的数组有( )个元素。 A.50 B.6 C.15 D.669.Abs( -3.14)的值是 A. 3 B. -3 C.-3.14 D. 3.1410.要让菜单项无效，应将( )属性值设置为

3、 False。 A. Visible B. Enabled C. Moveable D. Checked11.以下代码，循环( )次 Dim n For n = 1 To 50 Step 5 sult.Text = Str(n) NextA.12 B.10 C.50 D.1112.表达式 Mid(Beijing2008,4,4)的值是 A. Beij B. jing C. inj2 D. 200813.A$=+3.14+2，则Val（A$）的值为 A. +3.14+2 B. +5.14 C. 3.14 D. 5.1414.语句：Dim student(10,5 to 100) 定义的是一个(

4、)维数组。 A. 2 B.3 C. 5 D.1015.默认情况下，语句：Dim student(10 to 11 ,4) 定义的数组有( )个元素。 A. 20 B.22 C. 10 D.11二、填空题： 1.工程文件的扩展名是_，窗体文件的扩展名是_。2.下列表达式返回的值为True还是False_。94+3 Or 5+310 And Not ( 4+25 EQV 3+52 )3.为了能在运行时把d:pic文件夹下的图形a.jpg装入图片框Picture1,所使用的语句为_。4.以下语句的输出结果是_。 a%=3.14156 Print a%5.设有如下程序语句： For I =1 To 1

5、00 Step 7 S=S+1 Next I 在该循环语句中，循环体S=S+1的循环执行次数应为_6.Visual Basic提供的对数据文件的三种访问方式为随机访问方式,_和二进制访问方式。7.与数学表达式cos2(a+b)(3+x)+5对应的Visual Basic表达式是_。8.表达式Fix(-3.2)+Int(-2.4)的值为_。9.Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是_。10.表达式Str(Int(-2.3) + Sgn(6) + Sqr(25)的值为_。11.Visual Basic 6.0分为3种版本，这3种版本是_、_和_。12.以下语句的

6、输出结果是_。a% = 3.14156print a%13.执行下面的程序段后，S的值为_。 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i14.在Visual Basic中最基本的对象是_。15.OOP的含义是_。三、程序改错：1.程序功能：建立一个过程来计算11的阶乘，程序中有错误，改正错误，使程序能输出正确的结果。Private Sub Command1_Click() Call n(11)End SubPublic Sub n(a As Integer) Dim i As Integer Dim f As Integer f = 0 For i = 1 T

7、o a f = f * i Next i Print fEnd Sub2.程序功能：求S=1+1/2+1/3+1/100，程序中有一行错误。改正错误，使它能输出正确的结果。Option Base 1Private Sub Command1_Click() sum1 = sumd(100) Print sum1End SubPrivate Function sumd(n As Integer) As Single i=0 Do i = i + 1 s = s + 1 / i Loop Until i = n sumf = sEnd Function3.程序功能：求当N=10时，S=1+2+3+.

8、+N的值。程序中有一行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()s = 0n = 1Do While n Min Then _ Next i FindMin = Min End Function Private Sub Command1_Click() Dim n As Integer n = _ print n End Sub3.用选择法将数组a中的6个整数按升序排列。Option Base 1Private Sub Command1_Click()Dim a(1 To 6) as Integer, M as Integer, T as

9、Inregera=Array(324,78,459,728,439,357)For i=_ For j=_ If a(i)_a(j) Then M = j T = a(i) a(i) = a(j) a(j) = T End If Next jNext iFor i=1 To 10 Print a(i)Next iEnd Sub4.在文本框Text1中输入一个字符串，统计各字母出现的次数，字母不区分大小写。Option Base 1Private Sub Command1_Click()Dim a(1 To 26) As Integer，c As String*1 Le = Len（Text1）

10、 For I = 1 To lec = _If c = “A” And c 0 Then Picture1.Print Chr(j + 64) ; ” = ” ; a(j) ; ” ” ; Next j5.在窗体画1个命令按钮,然后编写一个函数:Function a(i) Dim s As Integer S = 0 For k = 1 To i s = s + (k + 1) * k Next k a = sEnd FunctionPrivate Sub Command1_Click() b = 5 x = a(b) Print xEnd Sub程序运行的结果为_。五、编程题：1.在窗体上画

11、3个标签，名称分别为L1，L2，L3。标题分别为“操作数1”，“操作数2”和“结果”；再在窗体上画3个命令按钮，名称分别为cmd1,cmd2,cmd3。标题分别为“加法”，“减法”和“乘法”。最后在窗体上画3个文本框，名称为Text1,Text2,Text3,内容为空。编写适当的程序，程序的功能是实现简单的加法、减法和乘法的运算。程序的运行结果如图1所示： 图1Private Sub cmd1_Click()End SubPrivate Sub cmd2_Click()End SubPrivate Sub cmd3_Click()End Sub2.编写程序，根据身高计算标准体重。计算公式如下：

12、男标准体重（kg）身高100女标准体重（kg）身高105注：按钮“男”的Value属性已设为True;程序界面设计如图1图1 程序设计界面表1 控件设计表控件控件名标题控件控件名标题标签框1标准框2标准框3Label1, Label2Label3请输入身高标准体重为请选择性别文本框1文本框2Text1 Text2无单选按钮1单选按钮2Option1, Option2男女命令按钮1命令按钮1Command1Command2计算结束要求如下：(1) 单击按钮“计算”，根据输入的身高和性别计算相应性别计算相应的性别的标准体重，并显示在文本框中;（2）单击“结束”按钮，结束程序运行;Private S

13、ub Command1_Click()计算按钮End SubPrivate Sub Command2_Click()End Sub3.在窗体上有一个命令按钮：Command1,4个文本框控件：Text11Text4功能是找出三个数中的最大数，界面如下图所示：六、问答题：本题15分。1.简述多文档及其特性。2.简述对话框的分类和特点。参考答案一、单项选择题：1.A 2.A 3.D 4.B 5.B 6.C 7.B 8.D 9.D 10.B 11.B 12.B 13.C 14.A 15.C二、填空题：1.vbp, .frm2.true; 分析：由高到低NotAndOrXorEqvImp3.Pictu

14、re1.picture=LoadPicture(“d:pica.jpg”)4.3 %是整形的说明符5.15 循环次数 = (100-1)/7+1 = 156.顺序访问方式7.（cos(a+b)）2(3+x)+58.-6 Int 和 Fix 函数的区别在于如果 number 参数为负数时，Int 函数返回小于或等于 number 的第一个负整数，而 Fix 函数返回大于或等于 number 参数的第一个负整数。9.组合框10.311.学习版、专业版、企业版12.313.914.窗体15.面向对象的程序设计三、程序改错题： 1.第七行 f=0 改成 f=1 2.第十行 i=n 改成i=n-13.第

15、三行 n = 1 改成 n = 0 4.第十行 fun = t 改成 fun = y四、程序填空题：1. s = s + Sqr(i) a(j)+12. UBound(a)Min=a(i)FindMin(a()3 1 To 5 i + 1 To 6 4UCase(Mid(Text1,I,1)a(j)+1570五、编程题：1.加法：Private Sub cmd1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub减法：Private Sub cmd2_Click()Text3.Text = Text1.Text - Text

16、2.TextEnd Sub乘法：Private Sub cmd3_Click()Text3.Text = Text1.Text * Text2.TextEnd Sub2.Private Sub Command1_Click()If Option1.Value = True ThenText2.Text = Text1.Text - 100ElseIf Option2.Value = True ThenText2.Text = Text1.Text - 105End SubPrivate Sub Command2_Click()EndEnd Sub3.Private Sub Command_Cl

17、ick() Dim a!,b!,c!,max! a = Text1.Text b = Text2.Text c = Text3.Text max = a If b max Then max = b If c max Then max = cText4.Text = maxEnd Sub六、问答题：1.答： 定义：多文档界面(MDI，Multiple Document Interface)允许创建在单个容器窗体中包含多个窗体的应用程序。绝大多数基于Windows的大型应用程序都是多文档界面，例如，Microsoft Word和Microsoft Excel等。多文档界面可同时打开多个文档，它简化

18、了文档之间的信息交换。 多文档界面有如下特性：（1） 所有子窗体均显示在MDI窗体的工作区中。用户可以改变、移动子窗体的大小，但被限制在MDI窗体中。（2） 当最小化子窗体时，它的图标将显示在MDI窗体上，而不是在任务栏中。当最小化MDI窗体时，所有的子窗体也被最小化，只有MDI窗体的图标出现在任务栏中。（3） 当最大化一个子窗体时，它的标题与MDI窗体的标题一起显示在MDI窗体的标题栏上。（4） MDI窗体和子窗体都可以有各自的菜单，当子窗体加载时覆盖MDI窗体的菜单。2.答：分类：对话框分为3种类型：预定义对话框、通用对话框和自定义对话框（1） 预定义对话框也称预制对话框，是由系统提供的。

19、VB提供了两种预定义对话框，即输入框和信息框(或消息框)，前者用InputBox函数建立，后者用MsgBox函数建立，具体用法参见第4章。（2） 通用对话框是一种控件，用这种控件可以设计较为复杂的对话框。（3） 自定义对话框也称定制对话框，这种对话框由用户根据自己的需要进行定义。输入框和信息框尽管很容易建立，但在应用上有一定的限制，很多情况下无法满足需要，用户可以根据具体需要建立自己的对话框。本章将介绍后两种对话框，即通用对话框和自定义对话框。 特点：（1） 在一般情况下，用户没有必要改变对话框的大小，因此其边框是固定的。（2） 为了退出对话框，必须单击其中的某个按钮，不能通过单击对话框外部的某个地方关闭对话框。（3） 在对话框中不能有最大化按钮(Max Button)和最小化按钮(Min Button)，以免被意外地扩大或缩成图标。（4） 对话框不是应用程序的主要工作区，只是临时使用，使用后就必须关闭。