试题一1.VB应用程序通常有、和三种模块组成。
2.在VB中根据变量的作用域不同，变量可以分为、和。
3.VB提供的属性，用来控制对象是否可见，当属性值为时，表示对象可见。
4.Line方法用于在容器对象的指定位置画或。
5.在VB应用程序中，过程主要有、、和属性过程四类。
6.根据数据的存取方式和结构，可将文件分为、和二进制文件。
7.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 = "VisualBasic"d = #7/20/2005#以下关于这段代码的叙述中，错误的是（）。
A）a被定义为Integer类型变量B）b被定义为Integer类型变量C）c中的数据是字符串D）d中的数据是日期类型4.在窗体上画一个命令按钮，名称为Command1。
然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4For j = 0 To iPrint Chr$ (65+i );Next jPrintNext iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。
A）BB B） A C） B D） AACCC BB CC BBBDDDD CCC DDD CCCCEEEEE DDDD EEEE DDDDD5.以下关于过程的叙述中，错误的是（）。
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）RemobeItem 10.有程序代码“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 3For j = 1 To 3a (i, j) = i * j + iNext jNext iSum = 0For i = 1 To 3Sum = 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 StringDim str3 As String, i As Integerstr1 = "e"For i = 1 To 2str2 = UCase(str1)str1 = str2 & str1str3 = str3 & str1str1 = Chr(Asc(str1) + i)Next iPrint 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 IntegerFor i = 1 To 100a(i) =Next iMax = a(1)Min = a(1)For i = 1 To 100If ThenMax = a(i)End IfIf ThenMin = a(i)End IfNext iPrint "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:\temp\dat.txt" For Output As #1Text1.Text = ""End SubPrivate Sub Text1_KeyPress ( KeyAscii As Integer)If ThenIf UCase(Text1.Text) = ThenClose 1EndElseWrite #1,Text1.Text = ""End IfEnd 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 -1If k >= 3 ThenFor i = 1 To 6 - ka(k - 3 + i, i) = nn = n - 1Next iElseFor i = 1 To ka(k - i + 1, 3 - i + 1) = nn = n - 1Next iEnd IfNext kFor k = 1 To 3For i = 1 To 3Print a(k, i);Next iPrintNext 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、EeFF2、③四、看程序填空题（共40分。