《VB程序设计》课程综合练习题

《VB程序设计》课程综合练习题《VB程序设计》综合练习题一、填空题1.在VB中标准模块文件的扩展名是____________。

2.逻辑常量为True或__________。

3.日期常量表示时，用符号__________将日期型数据括起来。

4.局部变量只能在__________中声明和使用。

5.生成输入框的命令是____________。

6.设置是否可以用Tab键来选取命令按钮，应该用______________属性。

利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和7.____________属性为true，才能接受焦点。

8.所有控件都具有的共同属性是__________________属性。

9.VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。

10.通常情况下，VB中一个工程主要包括如下四个文件：_____________、_____________、类模块文件和标准模块文件。

11.一般可以使用__________关键字声明常量。

12.若要将隐藏窗体Form1显示出来，则可通过执行代码______________来实现。

13.为了使一个Picture控件能自动根据装入的图片调整大小，应设置该控件的AutoSize属性为_______。

14.在VB中窗体文件的扩展名是__________。

15.在VB中，用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界。

16.生成消息框的命令是____________。

17.表达式chr(Asc("a") + 4)的值为_________。

18.分析For……Next循环结构的实例：For i =5 To 30 Step 2 中，循环体一共执行了______次。

19.为了在VB中存储一个4行5列的二维矩阵，需要定义一个整型的数组，请把数组定义语句补充完整：Dim Juzhen(_ _) asInteger。

20.在VB中，最主要的两种对象是____________和____________。

21.常量分为普通常量和__________常量。

22.不管焦点在哪个控件上，按__________键相当于按了取消按钮。

23.__________是程序中VB停止执行的地方。

24.Visual Basic是一种面向__________的可视化程序设计语言。

25.函数Abs(x)的功能是__________。

参考答案：1.bas 2、False 3、# 4、过程5、InputBox6、Tabstop7、Enabled 8、Name 9、窗体文件、工程文件10、运行模式12、Const 13、f orm1.Show 14、True15、.frm 16、option base、ubound、lbound 17、MsgBox 18、e 19、13 20、1 to 4,1 to 521、窗体、控件22、符号23、ESC24、断点25、对象26、求x的绝对值二、选择题1．窗体Form1的Name属性是Frm1，它的单击事件过程名是（）A．Form1_Click B．Form_ClickC．Frm1_Click D．Me_Click2．下面程序运行后输出的结果是（）Str1$="AMERICA"Str2$=Len(Str1$)PRINT Str2$ENDA．5 B．7 C．6 D．93．语句DIM AA(3,4,5)中定义的数组有多少个元素( )A．12 B．60 C．120 D．3454．以下能够触发文本框Change事件的操作是（）A．文本框失去焦点B．文本框获得焦点C．设置文本框的焦点D．改变文本框的内容5．以下哪个是合法的变量（）A．right B．abc@123 C．123_abcD．ab123c6．为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为（）A．0 B．1 C．2 D．37．下列说法错误的是（）A．在同一模块不同过程中的变量可以同名B．不同模块中定义的全局变量不可以同名C．引用另一模块中的全局变量时，必须在变量名前加模块名D．同一模块中不同级的变量可以同名8．Visual Basic提供的On Error Resume next错误陷阱语句表示（）A．当发生错误时，使程序转跳到语句标号为0的程序块B．当发生错误时，不使用错误处理程序块C．当发生错误时，忽略错误行，继续执行下一语句D．当发生错误时，终止本过程执行，继续执行下一过程9．组合框的风格可通过（）属性来设置。

A. BackStyleB. BorderStyleC. StyleD. Sorted10．从键盘上输入两个字符串，分别保存在变量str1、str2中。

确定第二个字符串在第一个字符串中起始位置的函数是（）A．Left B．Mid C．String D．Instr 11．当一个复选框被选中时，它的Value属性的值是（）A．3 B．2 C．1 D．012．在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）A． Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB．Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC． Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD． Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub13．设x=4,y=8,z=7，表达式x<y And (Not y>z) Or z<x的值是（）A．1 B．-1 C．True D．False14．决定标签（Label）显示的属性是（）A．Text B．Name C．Caption D．Alignment15．设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是（）A．26 B．27 C．38 D．57 参考答案：BACDD、B BCCD、CADCB三、读程序题（每题5分，共10分）1．阅读下面的程序，分析并写出其功能。

Sub insert(a() As Single,ByVal x AsSingle)Dim m as integer,n as integern=1Do While n<20 And x>a(n)n=n+1LoopFor m=20-1 To n Step –1a(m+1)=a(m)Next ma(n)=xEnd Sub答：功能如下：在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。

2．读下面的程序，分析其功能，写出运行结果。

Sub sele()Dim n as Integeri=21:n=3Do While i>ni=i-nLoopPrint iEnd Sub答：结果如下：3四、简答题1．结构化程序设计的特点是什么？2．在一个窗体中只能选择一个单选按钮吗？如果不能选择多个，请说明原因；如果能选择多个，请说明如何做才能选择多个。

3．颜色函数主要有哪些？4．表达式2>3 And 4<=5 Or 4>4的值是什么？5．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用什么语句？6．在设计状态，若用户想打开代码窗口，应怎样操作？代码窗口主要包括哪几部分？7．逐语句和逐过程有什么区别？8．在KeyPress事件中，如何取消用户刚输入的字符？9．如何在框架中建立控件？10．Visual Basic有哪几种程序模式？参考答案如下：1、结构化程序设计的主要特点是：一个入口和一个出口；只使用三种基本结构：顺序、选择、循环；尽量不用转向语句。

2、不一定，利用框架可以实现多组单选按钮。

3、颜色函数主要有：RGB、QBColor。

4、False。

5、MenuItem.Enabled=False。

6、在设计状态，打开代码窗口至少有三种方法，只要写一种即为正确；代码窗口主要三部分：对象列表、事件列表、代码窗口。

7、逐语句和逐过程的区别：前者进入过程内部，而后者不进入过程内部。

8、在KeyPress事件中，若想取消用户刚输入的字符，只要将该事件的参数设置为0即可。

9、先建立框架，然后再在其中建立控件。

10、设计、运行和中断三种模式。

五、编程题说明：只要能完成指定的功能，界面怎么设计都行。

也就是说，界面如何以及代码写在哪个事件中都没有关系，但前提是必须保证完成相应的功能。

1．自行设计格式，输出“九九乘法表”。

答：参见教材，具体代码略。

2．有一种数，正序读与反序读都相同，这种数叫回文数，如88、858、2332等。

求出4位数以内（0～9999）的所有回文数。

答：参考程序如下：Sub NumRev()Dim i As Integer, j As Integer'用分解法Print 0; " "; '输出特殊数0For i = 1 To 9Print i; " "; '输出1位数Print 10 * i + i; " "; '输出2位数For j = 0 To 9'输出3位数（个位与百位相同，十位任意）Print 100 * i + 10 * j + i; " ";'输出4位数（个位与千位相同，十位与百位相同）Print 1000 * i + 100 * j + 10 * j + i; "";Next jNext iEnd Sub3．输入某学生成绩（百分制），若是100≥成绩≥90输出优秀；若是90＞成绩≥80输出良好；若是80＞成绩≥70输出中等；若是70＞成绩≥60输出及格；若是60＞成绩≥0，输出不及格；若是其他数则输出error 信息。

答：参考代码如下：Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If 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 IfEnd Sub4．在窗体中显示从9号字型到16号字型。