Visual Basic综合练习题.doc

综合练习题一一、填空题(每空1分，共20分)1. VB应用程序的两个基本特点是 和 。2. VB应用程序通常有 、 和 三种模块组成。3. 在VB中根据变量的作用域不同，变量可以分为 、 和 。 4. VB提供的 属性，用来控制对象是否可见，当属性值为 时，表示对象可见。5. Line方法用于在容器对象的指定位置画 或 。 6. 在VB应用程序中，过程主要有 、 、 和属性过程四类。 7. 根据数据的存取方式和结构，可将文件分为 、 和二进制文件。8. Visual Basic 6.0中，要对数据库进行访问，需要通过数据访问对象进行，数据访问对象有： 、 和 。二、单项选择题（每题2分，共30分）1. 以下关于Visual Basic特点的叙述中，错误的是（ ）。A） Visual Basic是采用事件驱动编程机制的语言B） Visual Basic程序既可以编译运行，也可以解释运行C） 构成Visual Basic的多个过程没有固定的执行顺序D） Visual Basic程序不是结构化程序，不具备结构化的三种基本结构2. 以下叙述中，错误的是（ ）。A） 在Visual Basic中，对象所能响应的事件是由系统定义的B） 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C） Visual Basic中允许不同对象使用相同名称和方法D） Visual Basic中的对象具有自己的属性和方法3. 设有如下语句： Dim a, b As Integerc = VisualBasicd = #7/20/2005#以下关于这段代码的叙述中，错误的是（ ）。A） a被定义为Integer类型变量B） b被定义为Integer类型变量C） c中的数据是字符串D） d中的数据是日期类型4. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click() For i = 1 To 4 For j = 0 To i Print Chr$ (65+i ); Next j Print Next iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A） BB B）A C）B D）AACCC BB CC BBB DDDD CCC DDD CCCC EEEEEDDDD EEEEDDDDD5. 以下关于过程的叙述中，错误的是（ ）。A） 事件过程是由某个事件触发而执行的过程B） 函数过程的返回值可以有多个C） 可以在事件过程中调用通用过程D） 不能在事件过程中定义函数过程6. 下面能够正确打开文件的一组语句是（ ）。A） Open data1 For Output As #5Open data1 For Input As #5B） Open data1 For Output As #5Open data1 For Input As #6C） Open data1 For Input As #5Open data1 For Input As #6D） Open data1 For Input As #5Open data1 For Random As #67. 单选按钮用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的 （ ）中安排适当的单选按钮，即可实现。A） 框架控件或图像控件B） 组合框或图像控件C） 组合框或图片框D） 框架控件或图片框8. 若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label等控件，则运行该程序显示窗体时，（ ）会首先获得焦点。A）窗体 B）CommandButton C）Label D）TextBox9. 使用（ ）方法可以将新的列表项添加到一个列表框中。 A） Pint B）AddItem C）Clear D）RemobeItem10. 有程序代码 “Text1.Text = Visual Basic”，其中的Text1、Text和Visual Basic 分别代表（ ）。A）对象、值、属性 B）对象、方法、属性C）对象、属性、值 D）属性、对象、值11. 以下有关数组的说明中，错误的是（ ）。A） 根据数组说明的方式，可将数组分为动态数组和静态数组B） 在过程中，不能用Private 语句定义数组C） 利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型D） 数组重新定维后，原有的数组元素内容将不予保留12. 名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是（ ）。A） Private Sub sort ( a() As Integer )B） Private Sub sort ( a(10) As Integer )C） Private Sub sort ( ByVal a() As Integer )D） Private Sub sort ( a( , ) As Integer )13. 设有命令按钮Command1的单击事件过程，代码如下Private Sub Command1_Click()Dim a (3, 3) As IntegerFor i = 1 To 3 For j = 1 To 3 a (i, j) = i * j + i Next jNext iSum = 0For i = 1 To 3 Sum = Sum + a (i, 4 - i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出的结果是（ ）。A） 20 B）7 C） 16 D） 1714. 针对语句 If i = 1 Then j = 1，下列说法正确的是（ ）。A） i=1 和j=1均为赋值语句B） i=1 和j=1均为关系表达式C） i=1为关系表达式，j=1为赋值语句D） i=1为赋值语句，j=1为关系表达式15. 以下控件中，不能作为数据绑定控件的是（ ）。A ）Label B）TextBox C）OptionButton D）ListBox三、读程序写结果 （共10分）1. 读完下面的程序，写出结果。（5分）Private Sub Form_Click() Dim str1 As String, str2 As String Dim str3 As String, i As Integer str1 = e For i = 1 To 2 str2 = UCase(str1) str1 = str2 & str1 str3 = str3 & str1 str1 = Chr(Asc(str1) + i) Next i Print str3End Sub执行上面的程序代码，单击窗体后在窗体上显示的结果是 。2. 在某个过程中有语句 For i= N1 to N2 step N3 ,在该循环体内有下列四条语句，其中会影响循环执行次数的是： 。（5分） N1=N1 +1 N2=N2 +N3 I=I+N3 N3=2*N3四、看程序填空题（共40分）1. 在窗体上画1个命令按钮，起名称为Command1，然后编写如下事件过程：（9分）Private Sub Command1_Click() Dim a(1 To 100) As Integer For i = 1 To 100 a(i) = Next i Max = a(1) Min = a(1) For i = 1 To 100 If Then Max = a(i) End If If Then Min = a(i) End If Next i Print max=; Max, min=; MinEnd Sub程序运行后，单击命令按钮，将产生100 个1000以内的随机整数，放入数组a中，然后查找并输出这100个数中的最大值max和最小值min，请填空。2. 在窗体上画1个命令按钮和1个通用对话框起名称分别为Command1和 CommonDialog1，然后编写如下事件过程：（9分）Private Sub Command1_Click ( ) CommonDialog1.DialogTitle = 打开文件 CommonDialog1.Filter = CommonDialog1.InitDir = CommonDialog1. End Sub该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“text(*.txt)”，并显示C盘根目录下的所有文件，请填空。3. 在窗体上画1个文本框，名称为Text1，然后编写如下程序：（9分） Private Sub Form_Load() Open d:tempdat.txt For Output As #1 Text1.Text = End SubPrivate Sub Text1_KeyPress ( KeyAscii As Integer) If Then If UCase(Text1.Text) = Then Close 1 End Else Write #1, Text1.Text = End If End IfEnd Sub以上程序的功能是，在D盘temp目录下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车键的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：如果输入END，则结束程序。请填空。4. 下列语句的输出结果是 （4分） Print Format(Int(12345.6789 * 100 + 0.5) / 100, 0000,0.00)5. 执行下面的程序后，a(1,3) 的值是 ，a(2, 2) 的值是 ，a(3, 1) 的值是 。（9分）Private Sub Form_Click()Dim a(3, 3) As Integer, i As IntegerDim j As Integer, k As Integer, n As Integern = 9For k = 5 To 1 Step -1 If k = 3 Then For i = 1 To 6 - k a(k - 3 + i, i) = n n = n - 1 Next iElseFor i = 1 To k a(k - i + 1, 3 - i + 1) = n n = n - 1 Next i End IfNext kFor k = 1 To 3 For i = 1 To 3 Print a(k, i); Next i PrintNext kEnd Sub参考答案：一、填空题(每空1分，共20分)1、 面向对象 事件驱动编程机制2、标准模块 类模块 窗体模块3、过程级变量 模块级变量 全局级变量4、Visible ture(真)5、直线 矩形6、事件过程 函数过程 子程序过程7、顺序文件 随机文件8、DAO RDO ADO 二、单项选择题（每题2分，共30分）1-5 DBAAB 6-10 CDBBC 11-15 DACCC三、读程序写结果 （共10分）1、 EeFF 2、四、看程序填空题（共40分。）1、 Int(Rnd*1000) Maxa(i)2、Text(*.txt)|*.txt C: ShowOpen3、KeyAscii = 13 END Text1.Text 4、12,345.68 （4分）5、 1 5 9 综合练习题二一、填空题(每空1分，共20分)1. VB应用程序的两个基本特点是 和 。2. 为使某窗口中的命令按钮“确定(E)”具有如下特性：按“AltE”键或按 “Enter” 键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为 ，并且设置其 属性值为 。 3. 在Visual Basic中，由系统事先设定的，能被对象识别和响应的动作称为 。4. 数字关系3=XB AND CC的值是False。（ ）四、读程序题，写出程序运行结果（每小题5分，共20分）1. 在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox(请输入一个整数) x在前面没有被定义过Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：_2. 当在文本框Text1中输入ABC三个字符时窗体上显示的是什么。Private sub Text1_Change()Print Text1.TextEnd Sub_3. 给定下列窗体模块，写出单击命令按钮Comman1后的执行结果。Public x As IntegerPrivate Sub Command1_Click() x = 10 Print x; Call s1(x) Print x; Call s2(x) Print x;End SubPrivate Sub s1(Byval x1 as Integer) x1 = x1 + 20End SubPrivate Sub s2(x2 as Integer)x2 = x2 + 20End Sub_4. 有以下程序：Private Sub Command1_Click( ) Text1.Text=努力End SubPrivate Sub Command2_Click( )Text1.Text=学习End Sub单击Command2按钮，又单击Command1按钮，在文本框中显示什么？_五、编程题（共20分）1. 设计一个计时程序。该程序用户界面如图所示，由一个文本框（Text1），和两个按钮：命令按钮1（ Command1）按钮，命令按钮（Command2）组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，按停止按钮，则计时停止。单击窗口则退出。（10分）Option ExplicitDim iPrivate Sub Command1_Click( ) i = 【1】 【1】 Timer1.Interval=1000【2】 .Enabled=True 【2】 End SubPrivate【3】 Command2_Click( ) 【3】 Timer1.Enabled=【4】 【4】 End subPrivate Sub Form_Click( ) 【5】 Me 【5】 End SubPrivate Sub Form_Load( )Timer1.Enabled=【6】 【6】 Text1.【7】 =【8】 【7】 End Sub 【8】 Private Sub Timer1_Timer( ) i=i+【9】 【9】 Text1.Text=【10】 【10】 End Sub2. 编一学号和密码输入的检验程序，对输入的学号和密码规定如下：(10分)（1）学号、密码均为4位，密码以*代替。(其中假设学号为：123 密码为：321)（2）如果输入正确则弹出对话框，内容：”欢迎使用”.输入不正确弹出对话框，内容：”学号密码不正确，请请重新输入”， 焦点定位在原学号文本框，总共的输入机会只有3次，3次都不正确则弹出对话框，内容：”你无权使用”,选择取消停止程序的运行。参考答案：一、填空题1. 面向对象程序设计 事件驱动编程2. 确定(&E), Default ,true3. 事件4 3=X And X= 3 ThenMsgBox 你无权使用EndEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub综合练习题三试题1（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】界面设计如上图所示，程序运行时要求有以下功能：按Command1（出题）后随机生成两个两位正整数存入模块级变量a、b且ab，并分别在Label1、Label2中显示，此后Command1不可用；在Text1中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Command1恢复为可用；按Command2（退出）后以消息框显示所完成题数以及做错的题数，退出。【程序】Dim n As Integer, n_error As Integer （1） Private Sub Command1_Click() a = 10 + Rnd * 89: b = 10 + Rnd * 89 If a b Then （2） Label1.Caption = a: Label2.Caption = b n = n + 1: Text1.Text = : Command1.Enabled = FalseEnd SubPrivate Sub Text1_ （3） (KeyAscii As Integer) If KeyAscii 13 Then （4） 回车键的ASCII码值为13 If a - b = Val(Text1.Text) Then MsgBox (回答正确) Else MsgBox(回答不正确) n_error = n_error + 1 End If Command1.Enabled = TrueEnd SubPrivate Sub Command2_Click() MsgBox( （5） ) EndEnd Sub【供选择的答案】（1）A）小学生两位数减法训练程序B）a=0: b=0: c=0 C）n=0: n_error=0D）Dim a As Byte, b As Byte, c As Byte（2） A）b=a: a=bB）c=a: a=b: b=c C）a=b: b=aD）c=a: b=a: a=c（3） A）KeyPressB）ChangeC）KeyDownD）KeyUp（4） A）Exit SubB）KeyAscii =13C）KeyAscii=0D）Exit Do（5） A）共 & n & 题，错 & n_error & 题 B）共n 题，错 n_error 题 C）共 + n + 题，错 + n_error + 题 D）共 & n & 题，错 & n_error & 题试题2（每小题3分，共12分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】输入n后，再输入n个数，按照下列公式计算s的值并显示。【程序】Private Function f( (6) ) As Single Dim i As Integer For i = 1 To n: f = f + x(i): Next iEnd FunctionPrivate Sub Command1_Click() Dim n As Integer, a() As Single, i As Integer Dim v As Single, s As Single n = InputBox(输入数据个数) (7) For i = 1 To n a(i) = InputBox(a( & i & )=, 输入各数组元素) Next i v = f(a, n) / n For i = 1 To n s = (8) Next i (9) End Sub【供选择的答案】（6）A）x( ) As Single, n As Integer B）x(n) As Single C）a As Single, n As Integer D）n As Integer, x() As Single（7）A）Dim a(n) As Single B）ReDim a() C）Dim a(n) D）ReDim a(n)（8）A）(a(i)-v)*(a(i)-v) B）s+a(i)-v2 C）s+(a(i)-v)2 D）(a(i)-v)2（9）A）s=s0.5/n B）Print s0.5/n C）Print Sqr(s) D）Sqr(s)/n试题3（每小题3分，共15分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】图片框控件P1、P2除Name属性外均取缺省值，将鼠标在P1拖动绘制矩形框（边框颜色通过通用对话框指定）：鼠标按下处为矩形左上角，鼠标抬起处为矩形右下角；鼠标抬起后，将P1中矩形区域内的图象在P2中重新绘制，如下图所示。【程序】 (10) Private Sub P1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) x1 = X: y1 = YEnd SubPrivate Sub P1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Dim j As Single, i As Single, jk As Single, ik As Single Dim (11) jk = P2.ScaleWidth/(X - x1): ik = P2.ScaleHeight/(Y - y1) Commondialog1.Action = (12) P1.Line (x1, y1)-(X, Y), Commondialog1.Color, B For j = x1 To X For i = y1 To Y c = (13) 读取该点处的颜色值 (14) Next i, jEnd Sub【供选择的答案】（10）A）Dim x As Single,y As Single B）Dim x2 As Single,y2 As Single C）Public x1 As Single,y1 As Single D）Dim x1 As Single,y1 As Single（11）A）c As Long B）c As Integer C）c As Single D）c As Double（12）A）1 B）2 C）3 D）4（13） A）P1.Pset(j,i) B）P2.Pset(j,i) C