发布时间 : 星期三 文章VB_经典考试题及答案更新完毕开始阅读
A) C)
menu1.Enabled=True Menu1.Visible=True
B) D)
B) 保留文件中原有内容, 可在文件尾添加新内容
C)保留文件中原有内容,在文件头开始添加新内容
185、以下叙述中正确的是(d )
A) 一个记录中所包含的各个元素的数据类型必须相同 B) 随机文件中每个记录的长度是固定的 C) Open命令的作用是打开一个已经存在的文件 D) 使用Input #语句可以从随机文件中读取数据 186、 要获得当前驱动器应使用驱动器哪个属性(b )
A）Path B）Drive C）Dir Pattern
187、 要使目录列表框（名称Dir1）中的目录随着驱动器列表框（名称为Drivel）中所选择的当前驱动大的不同而同时发生变化，则应( c ) A)在Dir1_Change()中,书写语句Dirl.Drive＝Drive
B)在Dir1_Change()中，书写语句Dirl.Path＝Drive C)在
Drivel_Change()中,书写语句
Dirl.Path=Drivel.Drive
188、在Visual Basic 中按文件的访问方式不同，可以将文件分为( a )。
A)顺序文件、随机文件和二进制文件 B)文本文件和数据文件 C)数据文件和可执行文件 D)ASCII文件和二进制文件 189、设有语句
open \：Test．Dat\ 则以下错误的叙述是 ( b )
A)该语句打开C盘根目录下一个己存在的文件Test．Dat
B)该语句在C盘根目录下建立一个名为Test．Dat的文件
C)该语句建立的文件的文件号为1 D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息
D
）
Munu1.Enabled=False Menu1.Visible=False
177、以下叙述中错误的是( c )
A)在程序运行时，通用对话框控件是不可见的 B)在同一个程序中，用不同的方法(如ShowOpen或ShowSave等)打开的通用对话框具有不同的作 C)调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
D)调用通用对话框控件的ShowColor方法，可以打开颜色对话框
178、 用于显示弹出式菜单的方法名是( c ) A)ShowPopup B)ShowPopupMenu C)PopupMenu D)ShowMenu
179、在设计一个记事本时，必须使用的控件是(c )。 A)滚动条 B)图片框 C)文本框 D)单选框 180、能对顺序文件进行输出的语句是（ c ）。 A) Put B) Get C) Write D) Read 181、目录列表框的Path属性的作用是（a ）。 A) 显示当前驱动器或指定驱动器上的目录结构。 B) 显示当前驱动器或指定驱动器上的某目录下的文件名。
C) 显示根目录下的文件名D) 显示路径下的文件 182、设已打开5个文件，文件号为1，2，3，4，5。要关闭所有文件，以下语句正确的是（d ）。 A) Close #1,2,3,4,5 B) Close #1;#2;#3;#4;#5 C) Close #1-#5
D) Close
183、在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是（ a ）。 A)“text(.txt)|(*.txt)” B)“文本文件(.txt)|(.txt)” C)“text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”
184、如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件, 那么执行语句Open “C: StuData.dat” For Append As #1 之后将( b )。
A) 删除文件中原有内容。 D) 以上均不对。 190、若要在图片框中绘制一个椭圆，使用的方法
17
是（ a）。
A) Circle B) Line C) Point D) Pset 191、图像框(Image)和图片框(Picturebox)在使用时有所不同，以下叙述中正确的是（ d ）。 A) 图片框比图像框占内存少。 B) 图像框内还可包括其他控件。
C) 图片框有Stretch属性而图像框没有。 D) 图像框有stretch属性而图片框没有。 192、以下属性和方法中，可重定义坐标系的是( c)
A)Drawstyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性 193、指令“Circle（1000，1000），500，8，-6，-3”后，将绘制（d）。
A)圆孤 B)椭圆 C)圆孤 D)扇形 194、当对DrawWidth进行设置后将影响( a ) A)Line、Circle 、Pset方法 B)Line、Shape控件
C)Line、Circle、Point方法
D)Line、Circle、Pset方法和Line、Shape控件 195、CLS可清除窗体或图形框中的内容是( c ) A)Picture属性设置的背景图案 B)在设计时放置的控件
C)程序运行时产生的图形和文字 D)以上A～C全部
196、通过设置Shape控件的( )属性可以绘制多种形状的图形。a
A)Shape B)BorderStyle C)FillStyle D)Style 197、假定Picturel和Textl分别为图片框和文本框的名称，下列不正确的语句是( c )。 A)Print 100 B)Picturel.Print 100 C)Print.Text1 D)Debug.Print 25
198、下列可以把当前目录下的图形文件picl.jpg装入图片框Picturel中的语句为( c )。
A)Picture=\B)Picture.Handle=\
C)Picturel.Picture=LoadPicture(\”) D)Picture：LoadPicture(\
199、比较图片框（PictureBox）和图像框（Image）
18
的使用，正确的描述是（ b）
A) 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小 .
B) 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分.
C) 当图片框（PictureBox）的AutoSize自属性为false时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸 .
D) 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框.
200、文本框Text1控件与数据库的绑定通过属性（ a ）实现。
A)DataSource 和DataField B)RowSource和ListField C)BoundColumn和BoundText D)DataSource和ListField
三、程序填空
1、select case index '加入一条语句，使得index不
为1，2时，caption为other，则该语句应为
case 1:form1.caption=\ case 2:form1.caption=\______case
form1.caption=”other”________ End select
2、如下定义一含10个元素的一维数组kk,并且对
每一元素赋初值为1，请填空：
__dim kk (0 to 9) as integer _________ dim i as integer for i=0 to 9
___kk(i)=1_________ ___next i_________
3、 假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按
else:
钮时，Form1窗体消失，显示窗体Form2，请在 和 处将程序补充完整。
Private Sub Command1_Click() Form1. hide Form2. show
End Sub
4、以下程序计算2到50间所有偶数的和，请补充完该程序。
Sub mult()
Dim sum As Integer Sum=0
Dim i as integer
For i=2 to 50
If i Mod 2= 0 Then sum=sum+i Next i
Print sum End Sub
Private Sub Command1_Click()
Dim a as Variant
a=Array(678,45,324,528,439,
387,87,875,273,823)
For i= 1 to 9
For j= i+1 to 1
If a(i)
a(j) Then
a1=a(i) a(i)=a(j) a(j)=a1 End If Next j Next i
For i=1 To 10
Print a(i) Next i End Sub
7、下列程序段找出被3、5、7除，余数为1的最小的5个正整数，请在下划线处填入相应的内容。
Private Sub Command1_Click() Dim CountN%,n% CounN=0:n=1 Do n=n+1
If Then Print n
CountN=CountN+1 End If
Loop
End Sub
8、在窗体上画一个名称为Command1的命令按钮，编写如下事件过程.
Private Sub Command1_C1ick() Dim a As String a=_____ For i ＝1 To 5 Print spc (6-i)；Mid$ (a，6-i，2*i-1) Next i End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
5
456 34567 2345678 123456789
9、在窗体上画一个名称为Combo1的组合框，画
5、下列程序段执行后，在输入框中输入数字5，执行结果如下，请补充完该程序。
1 1 1 1 1
2 2 2
3
N = InputBox(\请输入行数\ ReDim a( N,N)
For i = 1 To n For j = i To n-i+1 a(i,j) =i Next j Next i
For i = 1 To N For j = 1 To N
Print Tab(j * 3); a(i, j); Next j Print Next I
6、下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在 处将程序补充完整。
Option Base 1
19
两个名称分别Label1和Label2及Caption 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项 后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动 添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示； 如果存在，则在Label2中给出提示“输入项已在组合框中”。 Private Sub Combo1 _________ (KeyAscii As Integer) If KeyAscii＝13 Then
For i＝0 To Combo1.listCount-1 If Combo1.Text＝______ then Label2.Caption＝”输入项己在组合框中”
Exit Sub End If Next i
Label2.Caption＝“已成功添加输入项” Combo1.______ Combo1.Text End If End Sub
10、次程序用来产生20个小于1-100的随机整数，并将其偶数在窗体上显示，请补充完该程序。 Randomize For i = 1 To 20 x = If x / 2 = Then Print x End If Next i
11、设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。 Private Sub Command1_Click()
Dim a(1 To 10) As Integer Dim I%,p%,t%,j As Integer For I = 1 To 10 a(i) = I Next I
For j = 1 To 5
20
Next j
For I = 1 To 10 Print a(i) Next I End Sub
12、下面是一个体操评分程序，20位评委，除去一个最高分和一个最低分，计算平均分(设满分为10分)
Private Sub Command1_Click() Max=0:Min=10 For i=1 To 20
N=Val(InputBox(\请输入分数：\IF __________Then Max=N IF __________Then Min=N S=S+N Next i S=__________ P=S/18
Print\最高分：\；Max Print \最低分：\；Min Print \最后得分：\；P End Sub
13、在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值。
Private Sub HScroll1_ ( ) Labl2.Caption=HScroll1. End Sub
14、以下Function过程Odd用于判断一个数是否是奇数。当单击命令按钮时，随机产生一个二位数，调用Odd 过程，判断该数是否是奇数。如果是奇数，则显示True，否则显示False。 Private Sub Command1_Click( ) Dim x As Integer x= Int(Rnd*90+10)