VB程序设计与应用复习题及答案.doc

中南大学现代远程教育课程考试复习题及参考答案VB程序设计与应用一、选择题，在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。1. 算法一般都可以用( )三种控制结构组合而成。 A. 循环、分支、递归B. 顺序、循环、嵌套C. 循环、递归、选择D. 顺序、选择、循环2. 在下列选项中，( )不是算法具有的基本特征。 A. 确定性 B. 可行性 C. 无穷性 D. 有输入和输出3.为了把窗体上的某个控件变为活动的，应执行的操作是（ ）。 A. 单击该控件的内部B.单击窗体的边框C.双季该控件 D. 双击该窗体4.下列可作为Visual Basic的变量名的是（ ）。 A.4*Delta B.Alpha C.4ABC D. AB#5.表达式4+56*7/8Mod9的值是（ ）。 A.4 B.5 C.6 D.76. Visual Basic是一种面向（）的程序设计语言 A.过程B.用户 C.对象 D.事件7. VB工程文件的扩展名为。 A.vbp B.frm C.bas D.xls8. 表达式15 + 3 * 3 / 9 * 5 5 Mod 10的值是 A. 16 B. 8 C.4 D. 329. 如果只有参与运算的两个表达式均为True时，结果为True，该逻辑运算符是。 A. And B. Or C. Not D. Xor10.InputBox函数的返回值类型为 A.数值型 B.字符型 C.逻辑型 D.变体型11.以下代码，循环（）次 Dim n For n = 1 To 50 Step 5 sult.Text = Str(n) NextA.12 B.10 C.50 D.1112.假设变量Logic类型是Boolean，下面附值语句正确的是（） A.Logic = “True” B.Logic = .True C.Logic = 3 20，1，2） Print YA.10 B.20 C.1 D.214.对象可以识别和响应的某些操作行为称为（） A.属性 B.方法 C.多态 D.事件15Timer控件可用语后台进程中，要使Timer时间每半秒钟触发一次，则需设置Interval属性为（） A.0.5 B.500 C.50 D.5000二、填空题，请把答案填在题中横线上。1. Visual Basic 6.0分为3种版本，这3种版本是_、_和_。2. 一个控件在窗体上的位置由_和_属性决定。3. 与数学式子：e2+2对应的Visual Basic表达式是_。4. 以下语句的输出结果是_。a% = 3.14156print a%5. 执行下面的程序段后，S的值为_。s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i6. 在Visual Basic中最基本的对象是_.7.“属性窗口”的功能是_. 8.Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是_.9.格式输出函数Format(1234.56,”#，#0.000”)的显示结果为_。10.表达式Str(Int(-2.3) + Sgn(6) + Sqr(25)的值为_。11.在变量名后面加上类型符号，可标识变量类型，单精度的类型符号是_。12.假定程序中有以下语句I = MsgBox(“String1”,”String2”,”String3”,2)执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则I的值为_。13.窗体上设置了若干个文本框和列表框，当窗体装入时，要将焦点自动定义到List1上，则在设计时需要将List1控件的TabIndex属性设置为_。14.要在Visual Basic工程中添加一个新的窗体，可以在主窗口的工具栏中选择_按钮。15.OOP的含义是_。三、程序改错1.程序功能：求当N=10时，S=1+2+3+.+N的值。程序中有一行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()s = 0n = 1Do While n Max Then A(I) = Max M = I End IfNext IPrint “Max = ”; Max , “M = ” ; M , “Sum = ” ; Sum3. 程序功能：单击命令按钮，窗体上显示的内容是21。程序中有一行有错误。改正错误，使它能输出正确的结果。Private Sub Command_Click Dim m = 0 For n = 1 To 20 If n Mod 3 0 Then m = m + n / 3 Next nPrint n End Sub四、程序填空题1. 在文本框Text1中输入一个字符串，统计各字母出现的次数，字母不区分大小写。Option Base 1Private Sub Command1_Click()Dim a(1 To 26) As Integer，c As String*1 Le = Len（Text1） For I = 1 To lec = _If c = “A” And c 0 Then Picture1.Print Chr(j + 64) ; ” = ” ; a(j) ; ” ” ; Next j2. 编写.一个Function过程，求数组a(10,50.34,26)的最大值Private Function FindMax(a() As Integer) Dim x1 As Integer, x2 As Integer, i As Integer X1 = LBound(a) X2 = _ Max = a(x1) For I = x1 To x2 If a(i) Max Then _ Next i FindMax = Max 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 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.在窗体画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.在窗体上画2个文本框，名称为Text1，Text2，内容为空；再画2个标签，名称分别为L1,L2，标题分别为“分数”和“评定”；以及一个命令按钮，名称为C1,标题为“鉴定”。编写适当的程序，程序的功能是鉴定成绩，输入百分制成绩，显示相应的等级。程序运行结果如图1所示。图1分数100909980897079606960以下评定满分优秀良好一般合格不合格2.夏天买西瓜：假设西瓜重4千克以下的价格为1.00元/千克，4千克至7千克的西瓜接个为1.3元/千克，超过7千克的西瓜售价为1.1元/千克。编写程序，通过键盘输入西瓜的重量，然后计算并输出应收金额。程序界面如下所示：表1 控件设计表控件控件名标题控件控件名标题标签框1标准框2标准框3Label1, Label2Label3西瓜重量单价应收瓜款文本框1文本框2文本框3Text1 Text2Text3无命令按钮1Command1计算3.在窗体上有一个命令按钮：Command1,4个文本框控件：Text11Text4功能是找出三个数中的最大数，界面如下图所示：六、问答题：1.简述VB文件的结构与按数据性质可分为哪几类。2.简述应用MDI窗体注意事项中南大学现代远程教育课程考试VB程序设计与应用复习题标准答案一、选择题：本大题5个小题，每个小题4分，共20分。在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。1*2*3*4*5*DcABB6*7*8*9*10CAAAB1112131415BCDDB5. 4+56*7/8Mod9 =4+542/8 Mod9 =4+55.25 Mod9 =4+1 Mod9 =4+1 =58. 15 + 3 * 3 / 9 * 5 5 Mod 10 =15+9/9*55 Mod 10 =15+1*55 Mod10 =15+55 Mod10 =15+1 Mod10 =15+1 =1611. 循环次数 = ( 50 1 ) / 5 + 1 = 10二、填空题： 1.学习版、专业版、企业版*2.Top和Left*3.Exp(2)+2*4.3* %是整形的说明符5.9* 循环次数 = (4.9-2.6)/0.6+1 = 4 S 的初始值是5,经过4次循环后,s的值变为9.6. 窗体*7.设置选定对象的属性*8.组合框9. 1,234.56*10.3* Str(Int(-2.3) + Sgn(6) + Sqr(25) =str(-3 + 1 + 5) =str(3) =311.!12.113.014.添加窗体15.面向对象的程序设计三、程序改错题， 1*.第三行 n = 1 改成 n = 0 2*. 第八行 A（I）= Max 改成 Max = A(I)3.第四行 m = m + n / 3 改成m = m + n 3四、程序填空题。UCase(Mid(Text1,I,1)a(j)+11. UBound(a)Max = a(i)FindMax(a()3. 1 To 5 i + 1 To 64. 70五、编程题： 1, *Private Sub Command1_Click()Dim x As Singlex = Text1.TextSelect Case Int(x / 10) Case 10 Text2.Text = “满分” Case 9 Text2.Text = “优秀” Case 8 Text2.Text = ”良好” Case 7 Text2.Text = “一般” Case 6 Text2.Text = “合格” Case Else Text2.Text = “不合格” End SelectEnd Sub2.* 方法一：Private Sub Command1_Click()Dim W,P,M As Single W = InputBox(“请输入西瓜的重量千克:”，”计算西瓜款”) If W 4 Then P = 1 ElseIf W = 7 Then P = 1.3 Else P = 1.1 End If M = P * WPrint “西瓜重量” + Str(W) + ”千克，单价” + Str(P) + ”元千克，应收瓜款” + Str(M) + ”元”End Sub方法二：Private Sub Command2_Click()Dim W,P,M As Single W = InputBox(“请输入西瓜的重量千克:”，”计算西瓜款”) If W = 4 and W 7 Then P = 1.1M = P * WPrint “西瓜重量” + Str(W) + ”千克，单价” + Str(P) + ”元千克，应收瓜款” + Str(M) + ”元”End Sub3.Private Sub Command_Click() 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. 简述VB文件的结构与按数据性质可分为哪几类。*为了有效地存取数据，数据必须以某种特定的方式存放，这种特定的方式称为文件结构。VB文件是有记录组成的，记录是由字段组成的，字段是有字符组成的。（1）字符：构成文件的最基本单位。字符可以是数字、字母、特殊符号或单一字节。（2）字段：也称域。字段由若干个字符组成，用来表示一项数据。（3）记录：由一组相关的字段组成。（4）文件：文件吼记录构成，一个文件汗有一个以上的记录。按数据性质分类，文件可分为程序文件和数据文件（1）程序文件：这种文件存放的是可以由计算机执行的程序，包括源文件和可