Visual Basic 6.0 笔试练习题 10、在VB中按文件的访问方式不同，可以将文件分为（ ）。 12题程序： A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件 Function fun（ByVal hum As Long）As Long C、数据文件和可执行文件 D、ASCII文件和二进制文件 Dim k As Long 11、保存新建的工程时，默认的路径是（ ）。 k=1 A、MyDocuments B、VisualBasic98 C、\\ D、Windows num=Abs（num） 12、先在窗体上添加一个命令按钮，然后编写如下程序，在程序运行Do While num 后，单击命令按钮，在对话框中输入”100”，输出结果是（ ） k=k*（num Mod 10） A、0 B、100 C、200 D、300 num=num\\10 Loop 13、关于语句If x=1 Then y=1，下列说法正确的是（ ）。 Fun=k A、x=1和y=1均为赋值语句 B、x=1和y=1均为关系表达式 End Function C、x=1为关系表达式，y=1为赋值语句 Private Sub Command1_Click（） D、x=1为赋值语句，y=1为关系表达式 Dim n As Long 14、为了使图像框适应图片的大小，下边（ ）属性设置正确。 Dim r As Long A、AutoSize=True B、Stretch=False n=InputBox（”请输入一个数”） C、Stretch=True D、Stretch=False 15、计算z的值，当X大于等于Y时，z=x；否则z=y。下列语句错误的n=CLng（n） r=fun（n） 是（ ）。 Print r A、If x>=y Then z=x：z=y B、If x>=y Thenz=x Else z=y End Sub C、z=y：If x>=y Then z=x D、If x<=y Then z=y Else Z=X 16、如果准备读文件，打开顺序文件”text.dat”的正确语句是（ ）。
A、Open ”text.dat” For Write As #1 B、Open ”text.dat” For Binary As #1 C、Open ”text.dat” For Input As #1 D、Open ”text.dat” For Random As #1 17、下列叙述中正确的是（ ）。
A、事件过程都要由用户编写 B、事件过程都不是用户编写的 C、事件过程有的由用户编写，有的由系统确定 D、用户可以确定事件方法过程是否由用户编写 18、单击命令按钮时，下列程序代码的执行结果为（ ）。
20题程序： Private Function PickMid（xStr As String） As Sting
Private Sub Form_KeyDown（KeyCode As Dim tempStr As String
Integer，Shift As Integer） Dim strLen As Integer
Print Chr（KeyCode） TempStr=““
End Sub StrLen=Len（xStr）
Private Sub Form_KeyPress（KeyAscii AS i=1
Integer） Do While i<=strLen／2
Print Chr（KeyAscii）， tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)
End Sub i=i+1
Loop
PickMid=tempStr End Function
PrivateSubCommandl Click（） Dim FirstStr As String FirstStr=“abcdef”
Print PickMid（FirstStr） End Sub A、abcdef B、afbecd C、fedcba D、defabc 19、表达式Str（Len(”123”））+str（77.7）的值是（ ）。
A、377.7 B、3 77.7 C、80.7 D、12377.7
20、编写如下两个事件过程，在一般情况下（即不按住Shift键和锁定大写键时）运行程序，如果按”A”键，则程序输出
的结果是（ ）。 A、A B、a C、A D、a A A A a
21、设有如右的语句，程序运行后，则下列叙述中正确的是（ ）。 x=5
A、变量Y的值是5 B、变量Y的值是10 If x>0 Then y=5 C、变量X的值是5，变量Y的值是5 D、变量Y的值不能确定 y=10
第 36 页 共 41 页
Visual Basic 6.0 笔试练习题 22、下面程序语句Print i执行的次数是（） 24题程序： 26题程序： Private，SubForm_Click（） For i=1 To 4 Private Sub CommandL_Click（） Dim i As Integer j As Integer x=3 Dim X As Integer，Y As Integer i=0 For j=1 To 3 x=12：y=32 Do For k=1 T0 2 Call Proc（x，y） i=i+1 x=x+3 Print x：Y for j=10 to 1 step-3 Next k End Sub i=i+j Next j Public Sub Proc（n As Integer，ByVal m As Integer） print i Next i n=n Mod 10 next j Text1.Text=str（x） m=m Mod 10 Loop While i<50 End Sub End Sub A、4 B、8 C、12 D、16 23、下列各种窗体事件中，不能由用户触发的事件是（ ）。 A、Load事件和Unload事件 B、Click事件和Unload事件 C、Click事件和DblClick事件 D、Load事件和Initialize事件
24、在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出
为（ ）。 A、6 B、12 C、18 D、21
25、为了描述x>y和y>z同时成立，则下述选项中，正确的是（
A、x>y And y>z B、x>y>z C、x>y And >z D、x>y And y>z 26、单击命令按钮时，下列程序的执行结果为（ ）。
A、1232 B、232 C、23 D、123 27、下列哪个是满足要求的正确表达式：年龄在20到60之间（包括年龄20和60在内）或工资少于500的女职工（ ）。
A、20<=年龄<=60 and 工资<500 or 性别=“女” B、20<年龄<60 and 工资<500 or 性别=“女”
C、20<年龄 and 年龄<60 or 工资<500 and 性别=“女”
D、（20<=年龄 and 年龄<=60 or 工资<500）and 性别=“女” 28、执行下面的程序段后显示的结果是（ ）。
Private Sub Form_Click（ ）
30题程序： Dim i
x=Int（Rnd+4） If i then print i else print i+1
Select Case x End Sub
Case 5 A、0 B、1 C、”“ D、False
Print”优秀” 29、下列能正确输出2,345、67的语句是（ ）。
Case 4 A、Print FormatS（2345.668，\、00\）
Print”良好” B、Print FormatS（2345.668，\）
Case 3 C、Print FormatS（2345.668，\，00010、00，，）
Print”通过” D、Print FormatS（2345.668，\）
Case Else 30、下列程序段的执行结果为（ ）。
Print”没有通过” A、优秀 B、良好 C、通过 D、没有通过
End Select 二、填空题
1、要想改变一个窗体的标题内容，则应设置________属性的值。
2、耦合和内聚是评价模块独立性的两个主要标准，其中________反映了模块内各成分之间的联系。 3、整形变量M中存放了一个两位数，要将两位数交换位置，例如24变成42，实现的表达式为________。 4、InputBox函数输入数据时，可以单击”确定”按钮或________表示确认。
5、下列程序的作用是：打开顺序文件C：\\StrDatA.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，
请填空。
6、随机产生0～100的整数作为某门功课的分数，按0-59、60-69、70~89、90-100划分为不及格、及格、良好、优秀
4个层次，阅读程序并填空。 Ptivate Sub Form_Click（） Dim k
k=Int（101：IcRnd）
第 37 页 共 41 页
Visual Basic 6.0 笔试练习题 printk 9题程序： 5题程序： print k Dim art（1 To 20） Private sub Form_Click() Select Case k For i=1 To 20 ______________ Case ________ Art（i）=________ Do while Not EOF（1） Print ”不及格” Next i Input #1，StrNo，StuName，StuEng Case 6 Sub=0 Print StuNo；Tab（10）； Print ”及格” For Each x In ________ Print StuName；Tab（20）；StuEng Case 7,8 If X>50 Then Loop Print ”良好” Print Tab（20）；X Close #1 Case else. Sum=Sum+X End Sub Print ”优秀” End If End Select Next X End Sub Print Tab（20）；”Sub=“；Sub 7、要使文本框获得输入焦点，则应采用文本框控件的________方法。 8、用户可以用________语句定义自己的数据类型。 9、以下程序代码实现单击命令按钮Commandl时生成20个（0，100）之间的随机整数，存于数组中，打印数组中大于
50的数，并求这些数的和。
10、设A=2，B=-4，则表达式3*A>5 Or B+8>0的值是________ 11、下面程序将InputBox输入对话框得到3个数按从小到大输出。阅读程序并填空。如果程序运行时分别输入12.3、35.8
和25.7三个数，则输出为________。 PrivateSubForm_Click（）
15题程序： Dim a As Integer,b As Integer,c As Integer 14题程序： Private Sub Form_Click（） Privatc Sub Commandl_Click（ ） A=InputBox（”输入一个数”）
Dim X As String*1 N=Val（InputBox（”请输入大于B=InpntBox（”输入一个数”）
X=________ （”请输入单零的数N：”）） C=InputBox（”输入一个数”）
个字符”，”字符”） S=0 if b>a then
Select Case UcaseI=1 D=a：a=b：b=d
C=1 （________） end if
DO Case________ if c>a then
S=S+C*I*I Print X+”是字母字符” D=a：a=c：c--d
C=________ Case________ end if
I=________ Print X+”是数字字符” if C>b then
Loop Wllile________ Case Else ________
Print \：S Print X+”是其他字符” end if
End Sub End Select print a；b；c
End Sub End Sub
12、log10x/0.5?x2的Visual Basic表达式为________。
13、把窗体的KeyPreView属性设置为True，并编写如下两个事件过程：
Private Sub Form_KeyDown（KeyCode As Integer，Shift As Integer） Print KeyCode End Sub
Private Sub Form_KeyPress（KeyAscii As Integer） Print KeyAscii End Sub
程序运行后，如果按下B键，则在窗体上输出的数值是________和________
14、下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做
相应的显示。窗体上无任何控件，并禁用Asc和Chr函数，Select Case语句中禁用枚举值。请在空格处填入适当的内容，将程序补充完整。 15、以下程序用于计算数学表达式1?2?3?4???(N?1)?N。
222222第 38 页 共 41 页
Visual Basic 6.0 笔试练习题
参考答案
第1套
一、选择题
1、D 2、D 3、C 4、A 5、C 6、B 7、C 8、C 9、B 10、A 11、A 12、A 13、A 14、D 15、A 16、C 17、B 18、D 19、B 20、A 21、C 22、B 23、A 24、A 25、D 26、B 27、B 28、C 29、A 30、A 二、填空题
1、建立一个应用程序 10、Print ”表现普通!” Print”表现普通”! 2、3行，第一行：_1_2，第二行：_3_4，第三行：11、0 0
_1_+_2_<_-7_ 12、符号 3、存储结构 13、用鼠标单击属性窗口的任何部位执行”视图”菜单中4、9 的”属性窗口”命令按F4键单击工具栏上的”属性窗5、500％ 口”命令按Crtl+PgDn或Ctrl+PgUp 6、LBound（x）+1，x（k）=x（k-1） 14、new1 B 7。相应的工程文件 15、Print #1,i 8、下拉式列表框 9、256、36 第2套
一、选择题
1、A 2、D 3、D 4、B 5、C 6、A 7、B 8、B 9、B 10、B 11、A 12、A 13、B 14、B 15、D 16、C 17、A 18、C 19、B 20、C 21、B 22、B 23、B 24、B 25、D 26、B 27、A 28、C 29、B 30、A 二、填空题
1、调整程序运行时窗体显示的位置 9、（1）25+32=57（2）X=12.5（3）Beijing（4）3 2、单精度 10、And 3、001,258.60 11、Get Valae（a，b） Sqr（a*a+b*b） 4、str str,L,1 12、n As Integer static j As Integer 5、9 13、5 6、TRUE 14、j Mod 13=1 And j Mod 23=2 And j Mod 43=3 7、ABCD VB Programming Until i=2或Until i>=2 8、既可以读，也可以写 15、Int（Rnd*99+1） In arr Sum+x x 第3套
一、选择题
1、D 2、C 3、D 4、B 5、C 6、B 7、A 8、B 9、B 10、B 11、B 12、A 13、A 14、D 15、C 16、C 17、D 18、D 19、C 20、D 21、B 22、D 23、D 24、D 25、B 26、A 27、C 28、B 29、C 30、D 二、填空题
1、接受用户作出的响应，作为程序继续执行的依据。 从输入对话框输入r的值 2、在运行时设计是无效的 s=pi*r^2 计算s的值 3、相邻 Label1.Caption=S 将S的值显示在标签Label1上 4。\文本文件|*.txt\9、3 4 5、Timer1.Interval Label.Caption=Time 10、ASCII 下档 ASCII 6、D 11、List.ListCount Interval HScrolll.Max 7、60000 True False True False 12、b 一、选择题 1、D 2、C 3、A 4、D 5、A 6、C 7、C 8、C 9、C 10、D 11、C 12、B 13、A 14、A 15、B 16、D 17、B 18、A 19、A 20、C 21、D 22、C 23、B 24、A 25、D 26、D 27、D 28、B 29、A 30、C 二、填空题 1、Auto Redraw 3、软件生命周期 2、变体 4、Form 窗体 Font 第 39 页 共 41 页 Visual Basic 6.0 笔试练习题 5、AutoRedraw 9、PaintStart=True PaintStart=False Cls 6、A=11 10、2 7、Change Value Scroll Value 11、Check1.Value FontItalic FontItalic 8、（1）x=12.5 12、t=a（j） a（j）=a（10-j+1） a（10-j+1）=t （2）Beijing 13、Do-Loop[While|Until<条件>] （3）3 14、98+1 Int（X／2）或X\\2 （4）100 200 300 15、Select Case x Case Else 400 500 600 第5套 一、选择题 1、C 2、C 3、A 4、D 5、D 6、D 7、A 8、A 9、C 10、C 11、A 12、D 13、B 14、B 15、B 16、A 17、C 18、C 19、C 20、D 21、B 22、C 23、C 24、B 25、C 26、C 27、A 28、D 29、D 30、C 二、填空题 1、单击右键部件 8、Name和Caption 2、在运行时设计是无效的 9、Me.Hide或者Form1.Hide或者Unload Me Show 3、Log2n 10、ABCDE 4、Shift或Ctrl 11、List1.AddItem\；List.AddItem \5、True 12、i-1 j=1 a（i）=a（j） 6、255 13、（1）True（2）True（3）False（4）True 7、A^（B*C）+C^（A*B） 14、N>Max N （Exp（3*x）+Log（5*x））*Y 15、0 To 9 0 To 9 < 2*sin（A）*cos（2*3.14-A） 第6套 一、选择题 1、D 2、B 3、A 4、C 5、A 6、A 7、C 8、B 9、B 10、B 11、C 12、C 13、D 14、B 15、C 16、B 17、C 18、B 19、B 20、D 21、C 22、A 23、D 24、C 25、A 26、B 27、B 28、B 29、A 30、B 二、填空题 1、外观内在性能 10、 _a_1_2l 2、工程（.vbp） ___a_2___22 3、Style ___a_2___22 4、有穷性 11、800 5、Main子过程 12、1 11 6、Scrolebars Mulmine True 13、OR OR 7、end 14、exit for 8、20-11-02 15、j<=I Exitfor 9、********* 第7套 一、选择题 1、A 2、B 3、D 4、B 5、B 6、C 7、B 8、D 9、C 10、D 11、C 12、B 13、B 14、C 15、D 16、D 17：C18、B 19、A 20、C 21、C 22、C 23、D 24、C 25、A 26、A 27、B 28、C 29、B 30、B 二、填空题 1、向下移一个等级 框Text1中的内容 2、文件打开工程打开工程 （3）当文本框Text1获得焦点时，选中其中的文本 3、“选项” “编辑器” （4）当文本框Text1失去焦点时，将焦点定位在Text2中，4、可重用性 并选中其中的文本 5、＆ 折线”—”或所需长度的一段下划线”＿” 10、15000 6、VB程序设计 VB Programming 11、10 7、2.5 12、b（1 To 200） b（n+（m-1）*n） 8、visible=true 13、Timer1 9、（1）当文本框Text1的内容改变时，标签Label2的标14、Is>5 5（或Is=5） Is<5 题为文本框Text1中的内容 15、S（i,j）=1 S（i,j）=0 S（i，j） （2）双击文本框Text1时，设置标签Label1的标题为文本 第 40 页 共 41 页 Visual Basic 6.0 笔试练习题 第8套 一、选择题 1、B 2、C 3、C 4、D 5、C 6、B 7、D 8、D 9、C 10、B 11、D 12、C 13、B 14、A 15、A 16、A 17、A 18、C 19、C 20、B 21、B 22、D 23、C 24、A 25、A 26、B 27、C 28、B 29、C 30、D 二、填空题 1、视图 11、20 25 30 35 40 2、保留字 12、1 1 1 1 2 3 3、输入 2 2 2 4、预定义对象用户定义对象 1 2 3 5、Append 3 3 3 6、 字母 数字 下划线 255 1 2 3 7、DragMode 1 0 13、s1+x（k） s2+x（k） 8、vbYes End if 14、Int（-13.2）=-14 9、Int（终值-初值）／步长+1 15、24 10、12144 第9套、 一、选择题 1、B 2、A 3、B 4、A 5、B 6、A 7、B 8、B 9、C 10、A 11、C 12、B 13、C 14、B 15、D 16、C 17、D 18、A 19、D 20、C 21、B 22、B 23、B 24、C 25、D 26、D 27、D 28、C 29、A 30、A 二、填空题 1、纯代码性质 9。True 2、对象框 过程框 10、140 3、Form窗体 11、12 4、对象 12、”Text Files（*.txt）|*.txt” CommonDialog1.FileName 5、x（1）=9 x（2）=18 x（3）=27 x（4）=36 13、10 6、遍历所有选项 14、0 a*GetValue（a-1） 7、Private 15、80 8、False 第10套 一、选择题 1、B 2、D 3、C 4、D 5、D 6、A 7、D 8、B 9、A 10、A 11、B 12、A 13、C 14、A 15、A 16、C 17、C 18、B 19、B 20、C 21、B 22、C 23、D 24、D 25、D 26、C 27、D 28、B 29、B 30、B 二、填空题 1、Caption 2、内聚 3、（（M mod 10）*10+M\\10） 4、按下回车键 5、Open ”c：StuDatA.tXt” For Input As #1 6、k=k\\10 k<6 7、SelText 8、Type 9、Int（Rnd*99+1） Arr 10、True 11、35 25 12 d=b：b=c：c=d 12、（Log（x）／Log（10））／0.5+x^2 13、66 98 14、InputBox X \ \15、C*（-1） I+1 I<=N 第 41 页 共 41 页 全国计算机等级考试（二级） Visual Basic 6.0 程序设计 笔 试 练 习 题 计算机教研室 四川外语学院成都学院 Visual Basic 6.0 笔试练习题 第1套 一、选择题 1、与传统的程序设计语言相比，Visual Basic最突出的特点是（ ）。 A、结构化程序设计 B、程序开发环境 C、程序调试技术 D、事件驱动编程机制 2、将调试通过的工程经”文件”菜单中的”生成exe文件”编译成为名exe后，该可执行文件到其他机器上不能运行的主要 原因是（ ）。 A、运行的机器上无VB系统 B、缺少frm窗体文件 C、该可执行文件有病毒 D、以上原因都不对 3、下列叙述中正确的是（ ）。 A、在窗体的Form Load事件过程中定义的变量是全局变量 B、局部变量的作用域可以超出所定义的过程 C、在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程 D、在调用过程时.所有局部变量被系统初始化为0或空字符串 4、设有如下变量声明Dim time1 As Date，为变量time1正确赋值的表达式是（ ）。 A、time1=#11/30/04# B、time1=Format（Time，”yy；mm；dd”） C、time1=#”11/30/04”# D、time1=Format（”hh；mm；ss”,Time） 5、制作成安装盘时，多个压缩文件和单个压缩文件结果的区别涉及到（ ）扩展名文件的大小。 A、.exc B、.txt C、.cab D、 .ocx 6、通常情况下，垂直滚动条的值是（ ）。 A、由下往上递增 B、由上往下递增 C、由左到右递增 D、由右到左递增 7、窗体上有Textl、Text2两个文本框及一个命令按钮Command1、编写下列程序；当单击1次和单击2次命令按钮后，7题程序： Dim Y As Integer Private Sub Command1_Click（） Dim x As Integer x=2 Text1.Text=p2（p1（x），y） Text2.Text=p1（x） EndSub Private Function pl（x As Integer） As Integer x=x+y；y=x+Y p1=x+Y End Function Private Function p2（x As Integer,Y As Integer） As Integer p2=2*x+Y End Function 11题程序： Private Sub Command1_Click（） Dim s1 As String，s2 As String s1=“abcdef” Call Invert（s1，s2） Print s2 EndSub Private Sub Invert（ByVal xstr As String，ystr As String） Dim tempstr As String i=Len（xstr） DO While i>=1 tempstr=tempstr+Mid（xstr，i，1） i=i-1 Loop ystr=tempstr End Sub 第 2 页 共 41 页 9题程序： Sub mlt（ParamArray numbers（ ）） n=1 ForEach x in numbers n=n+x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程； Private Sub Command1_Click（） Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer A=1 B=2 C=3 D=4 mlt a，b，c，d End Sub 10题程序： A=\ B=“WANGCHANGLI” C=Left（A，5）+”!” D=Right（A，7） E=Mid（A，6，4） F=Mid（B，Len（B）-6，5）+”!” G=E+\ H=C+\Print H+\Visual Basic 6.0 笔试练习题 文本框Text1和Text2内的值分别是（ ）。 A、2 4 B、2 4 C、10 10 D、4 4 2 4 4 8 58 58 8 8 8、假设变量intVar是一个整型变量，则执行赋值语句intVar=\之后，变量intVar的值是（ ）。 A、2 B、3 C、5 D、23 9、有如下一个Sub过程；则运行该程序，结果为（ ）。 A、12 B、24 C、36 D、48 10、下列程序段的执行结果为（ ）。 A、HELLO!CHANG!GOOD MORNING! B、HEIO!WANG!GOOD MORNING! C、HELLO!LI!GOOD MORNING! D、HELLO!CHANG!GOOD!MORNing! 11、下列程序的执行结果为（ ）。 A、fedcba B、abcdef C、afbecd D、defabc 12、下列语句都是在Form中定义的，（ ）是错的。 A、Public Const A1=2u B、Private Const A2=8 C、Public a3 As Integer D、Private a4 As Integer 13、设有如下变量声明： Dim TestDate As Date，为变量TestDate正确赋值的表达方式是（ ）。 A、TestDate=#1／1/2002# B、TesDate=#”1／1／2002\C、TesDate=date（”1／1／2002”） D、TesDate=format（\） 14、当窗体启动时可通过（ ）属性控制窗体位于所有者的中心位置。 A、MDIChild B、LinkMode C、WindowState D StartUpPosition 15、下列叙述中错误的是（ ）。 A、启动Visual Basic进入编程环境后，工具箱中只有内部控件 B、启动Visual Basic进入编程环境后，窗口中会自动建立名为Forml的窗体 C、启动Visual Basic进入编程环境后.属性窗口一定同时打开 D、启动Visual Basic进入编程环境后，只要存盘就会生成一个工程文件 16、语句X=X+1的正确含义是（ ）。 A、变量x的值与X+1的值相等 B、将变量x的值存到X+1中去 C、将变量x的值加1后赋值给变量x D、变量x的值为1 17、下列程序的执行结果为（ ）。 17题程序： A、abcdef B、afbecd C、fedcba D、defabc Private Sub Commandl_Click（） 18、执行以下程序段后，变量c的值为（ ）。 Dim FirStr As String A=“Visual Basic Programing” First=“abcdef” B=“Quick” Print Pat（Firstr） C=b＆Ucase（Mid（a，7，6））&Right（a,11） End Sub A、Visual BASIC Programing Private Function Pat（xStr As Sting）As String B、Quick Basic Programing Dim tempStr As String，strLen As Integer C、QUICK Basic Programing tempStr=““ strLen=Len（xStr） D、Quick BASIC programing i=1 19、函数String（n，”str”）的功能是（ ）。 Do While i<=Len（xStr）-3 A、把数值型数据转换为字符串 tempStr=tempStr+Mid（xStr，i，1）+Mid（xStr，strLen-i+1，1） B、返回由n个字符组成的字符串 i=i+1 C、从字符串中取出n个字符 Loop D、从字符串中第n个字符的位置开始取子 Pat=tempStr 字符串 20、使两种完全不同的应用程序进行通信的技术End Function 称为（ ）技术。 A、动态数据交换 B、动态链接库 C、对象链接 D、对象嵌入 。x 21、代数式eSin（30）2x／（x+y）lnx对应的Visual Basic表达式是（ ）。 A、E^*Sin（30*3.14／180）*2*X／X+y*Log（X） B、Exp（X）*Sin（30）*2*X／（X+Y）*Ln（X） C、Exp（X）*Sin（30*3.14／180）*2*X／（X+Y）*Log（X） D、Exp（X）*Sin（30*3.14／180）*2*X／（X+Y）*Ln（X） 22、已知一棵二叉树前序遍历和中序遍历分别为ABDEGCFH和DBGEACHF，则该二叉树的后序遍历为（ ）。 第 3 页 共 41 页 Visual Basic 6.0 笔试练习题 A、GEDHFBCA B、DGEBHFCA C、ABCDEFGH D、ACBFEDHG 23、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（ ）。 A、MenuItem.Enabled=False B、MenuItem.Enabled=True C、MenuItem.Visible=True D、MenuItem.Visible=Flase 24、有如下程序 DefStrX-Z：X=“123”：Y=“456”：Z=X$+Y$：Print Z$：End 运行后，输出结果是（ ）。 A、显示出错信息 B、 123456 C、\ D、 \25、下列说法错误的是（ ）。 A、在同一模块不同过程中的变量可以同名 B、不同模块中定义的全局变量不可以同名 C、引用另一模块中的全局变量时，必须在变量名前加模块名 D、同一模块中不同级的变量可以同名 26、下列成员中不属于主窗口的是（ ）。 A、最大化按钮 B、状态栏 C、系统菜单 D、工具栏 27、数值型数据包括（ ）两种 A、整型和长整型 B、整型和浮点型 C、单精度型和双精度型 D、整型实型和货币型 28、执行下列程序段后，输出的结果是（ ）。 A、90 B、 60 C、40 D、 10 29、当对DrawWidth进行设置后，将影响（ ）。 A、Line、Circle、Pset方法 B、Line、Shape控件 C、Line、Circle、Point方法 D、Line、Circle、Pset方法和Line、Shape控件 30、下列程序的执行结果为（ ）。 A、9 B、 9 C、-12 D、0 28题程序： 6题程序： For k1=0 To 4 Private Sub MoveRight（x（ ） As Integer） y=20 Dim i As Integer For k2=0 To 3 Dim j As Integer y=10 Dim k As Integer For k3=0 T0 2 i=Ubound（x） y=y+10 j=x（i） Next k3 For k=i To Lbound(x)+1 step –1 Next k2 x(k)=x(k-1) Next k1 Next k Print y x（Lbound（x））=j End Sub 30题程序： Private Sub Commandl_Click（） A=“1” Dim a（10） As Integer B=“2” Dim i As Integer A=Val（A）+Val（B） Dim j As Integer B=Val（”12”） Dim k As Integer If A<>B Then Print A-B Else Print B-A For i=0 To 10 A（i）=i 2题程序： Next i j=Val（Text1.Text） Private Sub Form_Click（） k=0 x=1；y=2；z=3；u=4 DO Debug Print Tab（2）；x；Tab（5）；y； k=k+1 Debug PrintTab（2）；z；Space（3）；u Call MoveRight（a） Debug Print x；Spc（2）;”+”，Spc（2）；y; Loop Until k=j Debug Print Spc（3）；”<“，Spc（3）；z+u For i=0 To 10 End Sub Print a（i） 4题程序： Print a（i）； s=5 Next i For i=2.6 to 4.9 Step 0.6 End Sub s=s+1 第 4 页 共 41 页 Next i Visual Basic 6.0 笔试练习题 二、填空题 1、在工程资源管理器窗口中，显示出了（ ）所需要的文件清单。 2、阅读程序； 程序运行是分（ ）显示，输出结果（ ）（注明第几行，空格用_表示。） 3、数据结构分为逻辑结构与存储结构，线性链表属于（ ）。 4、执行下面的程序段后，S的值为（ ）。 5、Format（5，”0.00％”）的返回值为（ ）。 6、下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text输入。例如数组各元素的值依次 为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。 7、当用户建立窗体文件时，都会产生（ ）。 8、在3种不同类型的组合框中，只能选择而不能输入数据的是（ ）。 9、函数Str$（256.36）的值是（ ）。 10、程序运行后，若为”甲队”且成绩大于80分，则在窗体上显示”表现优良”，否则显示”表现普通”。 11、为了使一个标签透明且没有边框，必须把它的BorderStyle属性设置为（ ），并把Backstyle属性设置为_____。 12、Visual Basie中的常量分为两种，一种是文字常量，一种是（ ）常量。 13、可以通过多种方式激活属性窗口，这些方式是（ ）、（ ）、（ ）、（ ）、（ ）。 14、以下程序的功能是将字符串”12345”逆序打印出来。请在画线处填上适当的内容使程序完整。 15、下列程序的功能是；将数据1、2，…，8写入顺序文件Num.txt中，请填空。 10题程序： Private Sub Form_Activate（ ） Dim team1 AS String Dim fen As Integer teaml=“乙队” fen=86 Print Print ”球队=；”team1 Print ”成绩=；” fen If team1=“甲队” Then If fen>=80 Then Print”表现优良!” Else （ ） End If Else （ ） End If End Sub 14题程序： Function rev（new1）As Sting B=Mid（，1，1） if b=\reV=\else rev=rev（Mid（new1，2））+（ ） end if End Function Private Sub Form_CIick（ ） old=“12345” Print old Print rev（old） EndSub 15题程序： Private Sub Form_Click（） Dim i As Integer Open \For i=1 To 8 （ ） Next i Close #1 End Sub 2题程序： Sub Timer1_Timer（ ） Beep End Sub 5题程序： x=\（（a+b）*A）-（a*b+c）\n=Len（x） m=0 For k=1 To n P$=Mid（x，k，i） If P$=\（\m=m-1 Elself p$=\）\m=m+1 End If If m>0 Then Print ”；-p” End If Next k Print ”；-）” 第2套 一、选择题 1、下列关于属性设置的叙述错误的是（ ）。 A、一个控件具有什么属性是Visual Basic预先设计好的，用户不能改变 B、一个控件具有什么属性是Visual Basic预先设计好的，用户可以改变 C、一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置 D、一个控件的属性在属性窗口中设置后，还可以利用程序代码为其设置新值 2、假定定时器控件的Interval属性为1000，Enabled属性为True，并且有右边的事件过程，程序运行时计算机将发出 （ ）次Beep声。 A、0 B、1000 C、1 D、以上都不对 3、下列过程定义语句中，形参个数为不确定数量的过程是（ ） 第 5 页 共 41 页 Visual Basic 6.0 笔试练习题 Else Sub 11题程序： 9、计算For循环次数的公式是________。 Dim M（5，5），S（5） 10、下列程序段的输出结果为________。 For I=1 To 5 Dim A（5） S（I）=0 For I=0 To 4 For J=1 To 5 A（I）=I+1 M（I，J）=I+J M=I+1 S（I）=S（I）+M（I，J） If M=3 Then A（M-1）=A（I-2）Else A（M）=A（I） Next J If 1=2 Then A（I-1）=A（M-4） Next I A（4）=I For Each X In S Print A（I）； Print X； Next I Next X 11、下列程序段的输出结果为________。 12、下列程序段在单击3次命令按钮时的输出结果为________。 13、下面程序的功能是分别计算给定的10个数中正数之和与负数之和，最后输出这两个和数的绝对值之商。请在下画 线处填入适当内容，将程序补充完整。 12题程序： Option Base 1 Dim x,y,z Private Sub Command1_Click（） Sub ss（ ） Dim X x=x+1 X=Array（23，-5，17，38，-31，46，11，8，5，-4） y=y+1 s1=0 z=z+1 s2=0 Print x,y,z For k=1 to 10 End Sub If（x（k）>0）then Private Sub Command1_Click（） s1=________ Dim x,y,z Else x=1：y=2：z=3 s2=________ Call SS End If Print x,y,z Next k End Sub Y=s1／abs（s2） Print Y End Sub 14、语句Print ”Int（-13.2）=\；Int（-13.2）的输出结果为________ 15、在窗体上画一个命令按钮，然后编写如下程序： Function fun（ByVal num As Long） Private Sub Commandl_Click（） Dim k As Long Dim n As Long k=1 Dim r As Long num=Abs（num） n=InpuBox（”请输入一个数”） Do While num n=CLng（n） k=k*（num Mod 10） r=fun（n） num=num\\10 Print r Loop End Sub Fun=k End Function 程序运行后，单击按钮，在输入对话框中输入”234”，输出结果为________。 第9套 一、选择题 1、下列成员中不属于主窗口的是（ ）。 A、最大化按钮 B、状态栏 C、系统菜单 D、工具栏 2、如果要在任何新建的模块中自动插入Option Explicit语句，则应采用下列（ ）操作步骤。 A、”工具”菜单中选取”选项”命令，打开”选项”对话框，单击编辑器”选项卡，选中”要求变量声明”选项 B、在”编辑”菜单中执行”插入文件”命令 C、在”工程”菜单中执行”添加文件”命令 D、以上操作均不对 3、设A=\，则表达式Val（Left（A，4）+Mid（A，4，2））的值为（ ）。 第 31 页 共 41 页 Visual Basic 6.0 笔试练习题 A、123456 B、123445 C、8 D、6 4、组合框控件是将（ ）组合成一个控件。 A、列表框控件和文本框控件 B、标签控件和列表框控件 C、标签控件和文本框控件 D、复选框控件和选项按钮控件 5、有关Vb应用程序中过程的说法正确的是（ ）。 A、过程的定义可以嵌套，但过程的调用不能嵌套 B、过程的定义不可以嵌套，但过程的调用可以嵌套 C、过程的定义和调用都可能嵌套 D、过程的定义和调用都不能嵌套 6、用Visual Basic编写的应用程序的特点是（ ）。 A、无须有明显的开头程序和结尾部分 B、无须编写任何程序代码 C、必须有明确的开头程序才能启动运行 D、必须有结尾的程序段才能正常运行 7、Visual Basic中窗体文件的扩展名是（ ）。 A、.VBP B、.FRM C、.VBW D、.PDM 8、下列程序的功能是：依次将列表框L,ist2中的项目移入列表框List1中，并将列表框List2中移走的项目删除，给程序 的空白行选择适当的语句（ ）。 ___________________ Listl.Addltem List2、List（0） List2、ReMoveltem 0 Loop A、DO Until List2.ListCount B、 Do While List2.ListCount C、DO Until List1.ListCount D、Do While List1.ListCount 9、若要设置文本框中所显示的文本颜色，使用的属性是（ ）。 A、BackColor B、FillColor C、ForeColor D、BackStyle 10、下列语句中正确的是（ ）。 A、If X<3*Y And X>Y Then Y=X^3 B、If X<3*Y And X>Y Then Y：X。 C、If X<3*Y：X>Y Then Y=X^3 D、If X<3*Y And X>Y Then Y=X**3 11、要计算当0 A、If 0 A、A=1，B=1 B、A=1，B=1 C、A=1，B=1 D、A=1，B=1 A=1，B=1 A=2，B=3 A=1，B=3 A=2，B=1 13、单击命令按钮时，下列程序的执行结果是（ ） Private Sub CommandL_Click（） 12题程序： Dim a As Integer，b As Integer，C As Integer Dim b a=3 Private Sub Form_Click（） b=4 A=l：b=1 c=5 print”A=“；a；，”，B=“；b Print SecProc（c，b，a） Call mult（a） EndSub print”A=“；a；，”，B=“；b Function FirProc（x As lnleger，y As Integer，z As Integer） End Sub FirProc=2*x+y+3*z Prirate Sub mult（x） End Function Function SecProc（x As Integer，Y As InleSer，z As Integer） x=2*x B=3*b SecProc=FirProc（z，x，y）+x End Sub End Funcdon A、20 B、22 C、28 D、30 14、已知数组a（1 To 10） As Integer,下面调用GetValue函数正确的是（ ）。 Private Function GetValue（a（ ）As Integer） As Integer For i=l To 10 Get Value=GetValue+a（i） Next i End Funcfion A、S=GetValue（a（1 To 10）） B、S=GetValue（a（）） C、S=GetValue（a（10）） D、S=GetValue a 第 32 页 共 41 页 Visual Basic 6.0 笔试练习题 15、有如下程序，其循环执行的次数为（ ）。 15题程序： A、12 B、13 C、14 D、1 5 For i=1 To 3 16、多分支选择结构执行哪一个分支的根据是（ ）。 For j=5 To 1 Step-1 A、SelectCase语句的”测试表达式”与Case语句的”变量值列表”同为False Print i+j B、SelectCase语句的”测试表达式”与Case语句的”变量值列表”同为True Next j，i C、”SelectCase语句的”测试表达式”与Case语句的”变量值列表”相匹配 D、SelectCase语句的”测试表达式”与Case语句的”变量值列表”完全相等 17、在窗体模块的通用声明段中声明变量时，不能使用（ ）关键字。 A、Dim B、Public C、Private D、Static 18、设置命令按钮的属性时，只有将（ ）属性设置为1，Picture属性才有效，否则无效。 A、Style B、Caption C、Enabled D、Default 19、下列可以打开立即窗口的操作是（ ）。 A、Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G 20、对变量名说法不正确的是（ ）。 A、必须是字母开头，不能是数字或其他字符 B、不能是Visual Basic的保留字 C、可以包含字母、数字、下划线和标点符号 D、不能超过255个字符 21、下面程序的运行结果为（ ）。 22题程序： Private Sub Commandi_Click（） Private Function FirProc（x As Integer,y As Integer,z As Integer） Dim a As Integer a=2 FirProc=2*x+y+3*z。 For i=1 To 3 End Funcfion Print F（a） Private Function SecProc（x As Integer,y As Integer,z As Integer） Next i SecPcor=FirProc（z，x，y）+x End Sub End Funcfion Private Function F（a As Integer） Private Sub Command1_Click（） b=0 Dim a AsInteger static c Dim b As Integer b=b+1 Dim C As Integer c=c+1 a=2 f=a+b+c b=3 End Function c=4 A、4 B、4 C、4 D、4 Printf SecProc（c，b，a） 4 5 6 7 End Sub 4 6 8 9 22、单击命令按钮时，下列程序代码的执行结果为（ ）。 A、21 B、19 C、17 D、34 23、以下说法不正确的是（ ）。 A、使用ReDim语句可以改变数组的维数 B、使用ReDim语句可以改变数组的类型 C、使用ReDim语句可以改变数组每一维的大小 D、使用ReDim语句可以对数组中的所有元素进行初始化 24、假定编写如下事件过程： Private Sub Form_MouseDown（Button As Integer,Shift As Integer,X As Single，Y As Single） If（Button and 3）=3 then Print ”Hello” End if End Sub 程序运行后，为了在窗体上输出”Hello”，应该窗体上执行以下哪个操作（ ）。 A、只能按下左键并拖动 B、只能按下右键并拖动 C、必须同时按下左、右键并拖动 D、按下左键拖动或按下右键拖动 25、下面有关注释语句的格式，错误的是（ ）。 A、Rem注释内容 B、' 注释内容 C、a=3：b=2 ' 对a、b赋值 D、Private Sub Commandl_MouseDown（button AS Integer，shift As Integer， 第 33 页 共 41 页 Visual Basic 6.0 笔试练习题 _Rem鼠标按下事件的命令调用过程X As Single，Y As Single） 26、与传统和程序设计语言相比，Visual Basic最突出的特点是（ ）。 A、结构化程序设计 B、程序开发环境 C、程序调试技术 D、事件驱动编程机制 27、假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过计算机将发出（ ）beep声。 A、1000次 B、10000次 C、10次 D、以上都不对 28、下面程序的运行结果是（ ）。 29题程序： Private Sub Command1_Click（） Private Sub Command1_Click（） A=1.5 Dim a As Integer,c As Integer 27题程序： B=1.5 A=2：b=3：c=4. Sub Timer1_Timer（） Call fun（a，b） Print P2（c，b，a） For i=1 to 10 Print A、b End Sub Beep End Sub Private Function P1（x As Integer,y As Integer） Next i PrivateSubfun（x，Y） P1=2*x+y+3*Z End Sub x=y*y End Function y=y+x Private Function P2（x As Integer,y As Integer,z As Integer） End Sub P2=P1（z，X，y）+x A、 2.25 1.5 B、1.5 2.25 End Sub C、1.5 0.75 D、0.75 1.5 29、单击一次命令按钮，下列程序代码的执行结果为（ ）。 A、21 B、19 C、17 D、 34 30、若整型变量a的值为2、b的值为3，则下面程序段执行后整型变量c的值为（ ）。 A、2 B、-1 C、1 D、6 二、填空题 1、程序模块文件是一个_______文件，它不属于任何窗体。 2、代码窗口分为左右两栏，左边一栏称为_______，右边一栏称为_______ 3、在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对_______的属性进行设置。 4、在面向对象的程序设计中，类描述的是具有相似性质的一组_______。 5、读下列程序： 30题程序： Private Sub Form_Click（） If a>5 Then Static x（4）As Integer If b<4 Then c=a-b Else c=b-a For i=1 To 4 Else x（i）=x（i）+i*3 If b>3 Then c=a*b Else c=a Mod b Next i End If Print For i=l To 4 Print \（”；i；”）=\；x（i）； Next i End Sub 该程序在运行了三次后，其最终结果是_______。 6、在属性窗口中，有些属性具有预定值，在这些属性上双击属性值可以_______ 7、模块级变量的声明关键字是Dim或_______。 8、设A=2，B=-2，则表达式A/2+1>B+5 Or B*（-2）=6的值是_______。 9、若A=20，B=80，C=70，D=30，则表达式A+B>160 Or（B*C>200 And Not D>60）的值是_______。 10、下面的For语句循环体要执行50次，请填空。 For k=_______to -7 step-3 11、在窗体上画一个命令按钮，然后编写如下事件过程： 在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为__________ 12、在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示”打开文件”对话框，设 置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click（） 第 34 页 共 41 页 Visual Basic 6.0 笔试练习题 CommonDialogl.Filter=_______ CommonDialogl.ShowOpen PCSTeXtBox.Text=_______ EndSub 13、程序执行后S的值是_______。 Private Sub Commandl_Click（） i=0 do i=i+1 s=i+s Loop Until i>=4 Print s End Sub 14、以下程序是按照用户输入的整数n计算阶乘。n=1，n!=1， （n-1）!×n，n>1。用递归函数完成下列程序。 Private Sub Command1_Click（） Dimi As Integer i=InputBox（”input a integer”） Print GetValue（i） End Sub Private Function GetValue（ByVal a As Integer） Select Case a Case_______ GetValue=1 Case Else GetValue_______ End Select End Function 15、以下程序运行后，输出的结果是_______。 11题程序： Private Sub Commandl_Click( ) x=0 Do Until x=1 a=InputBox（”请输入第一个数字a的值”） a=Val（a） b=InputBox（”请输入第二个数字b的值”） b=Val（b） x=InputBox（”清输入第三个数字x的值”） x=Val（x） a=a+b+x Loop Print a End Sub 15题程序： Private Sub Commandl_Click（） Dim a As Integer,b As Integer,c As Integer a=3：b=5：c=7 abc=F（c，a，b） Print abc End Sub Private Function F（x As Integer,y As Integer,z As Integer）As Integer F=（x+y*y）*z End Function 第10套 一、选择题 1、打开Visual Basic集成环境后，显示的工具栏是（ ）。 A、编辑工具栏 B、标准工具栏 C、调试工具栏 D、窗体工具栏 2、英文缩写OLE的含义是（ ）。 A、面向对象程序设计 B、对象链接 C、对象嵌入 D、对象链接与嵌入 3、下列关于闲置循环的四个叙述中，错误的是（ ）。 A、闲置循环是当应用程序处于闲置状态下执行的循环 B、闲置循环可以占用所有的CPU时间 C、闲置循环是无法退出的 D、闲置循环使系统不响应其他任何事件，除非使用DoEvents语句 6题程序： 4、数学表达式sin25。写成Visual Basic表达式是（ ）。 a=0：b=1 A、sin25 B、sin（25） C、sin（25°） D、sin（25*3.14/180） Do 5、用如下语句所定义的数组的元素个数是（ ）个。 A=a+b B=b+l Dim b（-2 to 4） as string Loop While a<10 A、2 B、4 C、6 D、7 Print a；b 6、下列程序段的执行结果为（ ）。 A、10 5 B、a B C、0 1 D、10 30 8题程序 7、下面子过程语句说明合法的是（ ）。 A、 Sub f1（ByVal x（） As Integer） B、Sub f1（x％（））As Integer J1=23 C、 Function f1％（f1％） D、Function f1％（x As Integer） J2=32 If J1 A、23 B、32 C、55 D、2332 9、下面哪个语句执行后，窗体Form1从内存退出（ ）。 A、UnLoad Form1 B、Load Form1 C、Form1.Hide D、Form1.Visiable=False 第 35 页 共 41 页 Visual Basic 6.0 笔试练习题 10、下面程序执行后输出是（ ） 11题程序： 10题程序： A、7 B、15 C、157 D、538 Private Sub Form_Click（） If（3-2）>2Then 11、执行下列语句后整型变量a的值是（ ）。 A=10 For I=1 to 4 A、10 B、20 C、30 D、不确定 Elself（10/2）=6 Then x=4 12、运行以下程序后，输出的结果是（ ）。 A=20 for j=1 to 3 A、中国（默认字体） B、中国（默认字体） Else x=3 人民（默认字体） 人民（仿宋） A=30 for k=1 to 2 万岁!（默认字体） 万岁!（宋体） End If x=x+6， C、中国（默认字体） D、中国隶书（默认字体） 12题程序： next k 人民（隶书） 人民（仿宋） next j Print \中国\万岁!（仿宋） 万岁!（仿宋） next I Font=\隶书\13、Datetime是Data类型的变量，以下赋值语句中错误的是（ ）。 print X Print \人民\A、Datetime=#4/14/97# End Sub Font=\仿宋\B、Datetime=#September 1，1997# Print ”万岁!” C、Datetime=#12：15：00 AM# D、Datetime=#8／8／99 Font=“宋体” 14、执行以下Command1的Click事件过程在窗体上显示（ ）。 Option Base 0 15题程序： Private Sub Commandl_Clcik（ ） Dim aAs Integer,b As Integer,cAs Integer Dim a Private Sub Commandl_Click（ ） A=Array（\，\，\，\，\，\） A=2：b=4：c=6 Print a（1）；a（3）；a（5） Call Procl（a，b） End Sub Print \；a；\；b；\；c A、abc B、bdf C、ace D、出错 Call Proc2（a，b） 15、单击命令按钮时，下列程度段的执行结果为（ ） Print”a=“；a；”b=“；b；”c”c； A、a=2 b=4 c=6 B、a=4 b=6 c=10 End Sub a=4 b=6 c=10 a=8 b=8 c=16 Public Sub Procl（x As Integer,y As Integer） C、a=4 b=6 c=6 D、a=4b=6 c=14 Dim c As Integer a=8 b=6 c=6 a=8 b=8 c=6 x=2*x：y=y+2：c=x+y 16、下列程序运行时，若从键盘输入3和4，则输出为（ ） End sub Option Base 1 Public Sub Proc2（x As Integer,By Val Y As Intger） Dim x Dim c As Integer Private Sub Form_Click（） x=2*x：y=y+2：c=x+y For I=10 to 1 step-1 End Sub Print X（I）； 17题程序： 18题程序： Next I PrivateSubForm_Load() Prirate Sub Command1_Click() End Sub Textl.Text=““ Listl.Addltem \Private Sub Form_Click（） Textl.SetFocus Listl。AddItem \X=Array（1,3，5，7，9，10，8，6，4，2） For i=1 To 9 Listl.Addltem \，1 x（1）=100 Sum=Sum+i Listl.AddItem \，3 End Sub Next i Print List1、List（2） A、1 3 5 7 9 10 8 6 4 2 B、1 3 5 7 9 10 8 6 4 100 Textl.Text=Sum End Sub C、2 4 6 8 10 9 7 5 3 1 D、2 4 6 8 10 9 7 5 3 100 End Sub 17、在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程，19题程序： 上述程序的运行结果是（ ）。 Private Sub Commandl_Click（） A、在文本框Text1中输出45 B、在文本框Text1中输出0 Dim arr（5） As Integer C、出错 D、在文本框Text1中输出不定值 Dim arrl（5） As Integer 18、窗体上有一个按钮和一个列表框（Sorted属性为True），执行下列过程后的n=3 输出结果（ ）。 For i=l To 5， A、China B、Great C、Is D、1 Arr（i）=i 19、在窗体上添加一命令按钮，其名为Command1，然后编写代码如下,程序的运Arr1（n）=2*n+i 行结果为（ ） Next i A、311 B、113 C、133 D、313 Print arr1（n）；arr（n） 20、定义过程语句中的<参数表列>可以是（ ）。 End Sub 第 21 页 共 41 页 Visual Basic 6.0 笔试练习题 A、常量或变量名 B、表达式或变量名 C、数组元素或变量名 D、变量名或数组名 21、假定编写如下事件过程： Private Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y AsSingle） If（Button And 3）=3 Then Print \22题程序： End If Option Base 1 End Sub Private Sub Form_Click（） 程序运行后，为了在窗体上输出”Hello”，应在窗体上执行的操作是（ ）。 Dim x（10） A、只能按下左按钮并拖动 B、只能按下右按钮并拖动 For I=1 to 10 C、必须同时按下左右按钮并拖动 D、按下左按钮拖动或按下右按钮拖动 x（i）=10-I+1 22、下列程序运行时输出的结果是（ ）。 Next I A、1 3 5 7 9 B、9 7 5 3 1 For I=10 to 1 step -2 Print x（i）； C、1 2 3 4 5 6 7 8 9 10 D、10 9 8 7 6 5 4 3 2 1 Next I 23、下列程序段的执行结果为（ ）。 End Sub A、I=1 B、I=2 C、I=3 D、I=4 24、CommonDialog控件可以显示（ ）对话框。 A、4种 B、5种 C、6种 D、7种 23题程序： 25、窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是（）。 A=95 A、窗体无显示，图片框显示图片和文字Test B、窗体上出现Test文本，图片框无显示 if a>60 Then I=1 C、窗体上出现Test文本，图片框显示图片1.jpg If a>70 Then I=2 D、窗体无显示，图片框只显示Test文字 if a>80 Then I=3 26、关于Image控件和PictureBox控件的说明，其中错误的是（ ）。 If a>90 Then I=4 A、Image控件和PictureBox控件都有Picture属性 Print \：I B、Image控件和PictureBox控件都支持Print方法 C、Image控件和PictureBox控件都可以用LoadPicture函数把图形文件装入控件中 D、Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入图形文件 27、有如下函数过程： 25题程序： Function gys（By Val X As Integer,By Val Y As Integer）As Integer Private Sub Command1_Click（） Do While v<>0 Picture1.Picture=LoadPicture（\：\\1.jpg\） reminder=x Mod Y Picture1.Cls x=y Picture1.Print \y=reminder End Sub Loop gys=x End Function 以下调用函数的事件过程，该程序的运行结果是（ ）。 Private Sub Command7_Click（） 28题程序： Dim a As Integer Private Sub Form_Crick（ ） Dim b As Integer Dim X A=100 x=Array（”天天向上”，”清华大学”，”天上人间”，”程序设计”） B=25 for I=Lbound（a，1） to Ubound（a，1） x=gys（a，B） if left（a（i），1）=“天” then print a（i）； Print X next I End Sub A、0 B、25 C、50 D、100 End Sub 28、下列程序运行时输出的结果是（ ）。 A、天天向上 B、天天向上天上人间 C、出错信息 D、天天向上清华大学天上人间程序设计 29、窗体上有一个名为Labell的标签，为了使该标签透明并且没有边框，正确的属性设置为（ ）。 A、Label1.BackStyle=0 B、Label1.BackStyle=1 C、Label1.BackStyle=true D、Label1.BackStyle=False Label1.BorderStyle=0 Label1.BorderStyle=1 Label1.BorderStyle=true Label1.BorderStyle=False 30、有如下函数过程： Function lj（x As Integer） As Long Dim s As Long Dim i As Integer 第 22 页 共 41 页 Visual Basic 6.0 笔试练习题 s=0 For i=1 To x s=s+i Next i lj=s End Function 在窗体上添加一个命令按钮，名为Command1，编写事件过程调用该函数，输出结果为（ ）。 Private Sub Commandl_Click（） Dim i As Integer Dim sun As Long For i=1 T0 5 sum=sum+lj（i） Next i Print sum End Sub A、25 B、35 C、45 D、55 二、填空题 1、为同一种对象设置不同的属性，可以使一种对象具有不同的________和不同 2、建立窗口并存盘后，除了生成窗体文件外，还会生成________文件。 3、当对命令按钮的Picture属性装入bmp图形文件后，这项按钮上并没有显示所需的图形，原因是没有对________属 性设置为1（Graphical）。 4、算法的基本特征是可行性、确定性、________和拥有足够的情报。 5、在Visual Basic中，除了可以指定某个窗体作为启动对象外，还可以指定________为启动对象。 6、要想在文本框中显示垂直滚动条，必须把（ ）属性设置为2，同时还应把（ ）属性设置为________。 7、若命令按钮的名称为CmdExit，程序要求单击以上此命令按钮时，程序停止运行，请对下列事件过程填空。 8、Format（#2002-11-20#\）的返回值为________ 7题程序： 9、下面程序的输出是 Private Sub CmdExit_Click（ ） 10、下面程序的输出结果是________。（空格用_表示） _______________ 11、执行下面的程序段后，b的值为________ End Sub A=800 B=30 9题程序： A=a+b Private Sub Form_Click（ ） B=a-b Print \；：Print \；：Print \A=a-b End Sub 12、下列程序的输出结果为________,________ 13、下列程序用来判断一个三角形是否成立，式中I，J，K代表三角形的三条边的长度，请填空。 If i+j 10题程序： 15题程序： Private Sub Form_Click（ ） Dim i As Integer，J As Integer，Str1$ x=2 strl=““ for k=1 to 3 For i=1 T0 9 print Tab（2*k）；”x”；Spc（k）；x&k For j=1 To 9 next If ________Then Str1=Str1+Str$（j）+”×”+Str$（i）+”=“+Str$（Val（i*j）） End Sub Else 12题程序： Str1=Str1＆Chr（13） SubText（ ） ________ Dim B As String End If A=1 Next j B=A＆Space（2）&A Next i Print A Print Str1 Print Trim（B） End Sub 第 23 页 共 41 页 Visual Basic 6.0 笔试练习题 14、下列循环语句，要求和数达到10即停止累加，退出循环，请填空。 15、下面程序是用来打印九九乘法表的，请填空。 第7套 一、选择题 1、文本框控件中将Text的内容全部显示为所定义的字符的属性项是（ ）。 A、PasswordChar B、需要编程来实现 C、Password D、以上都不是 2、以下关于复选框的说法，正确的是（ ）。 A、复选框的Enabled属性用于决定该复选框是否被选中 B、复选框的Value属性用于决定该复选框是否被选中 C、复选框的Checked属性用于决定该复选框是否被选中 D、复选框的Visible属性用于决定该复选框是否被选中 3、下列程序段的执行结果为（ ）。 3题程序： A、1 1 2 B、1 1 1 C、False False D、1 2 False x=1：y=2 4、如果进栈序列为e1，e2，e3，e4，则可能的出栈序列是（ ）。 z=x=y A、e3，e1，e4，e2 B、e2，e4，e3，e1 C、e3，e4，e1，e2 D、任意顺序 Print x；y；z 5、窗体在屏幕上显示后有（ ）方法可以清除它。 A、1种 B、2种 C、3种 D、4种 6、执行如下语句： A=InputBox（\，\，\） 将显示一个输入对话框，在对话框的输入区中显示的信息是（ ）。 A、Today B、Tomorrow C、Yesterday D、Day before yesterday 7、如果A为整数且｜A｜>=100，则打印”OK”，否则打印”Error”，表示这个条件的单行格式If语句是（ ）。 A、If Int（A）=A And Sqr（A）>=10 Then Print \B、If Fix（A）=A And Abs（A）>=100 Then Print \ C、If Int（A）=A And （A>=100，A<=-100）Then Print \D、If Fix（A）=A And A>=100，And A<=-100 Then Print ”OK”Else Print \ 8、关于多行结构条件语句的执行过程，正确的是（ ）。 A、各个条件所对应的<语句块>中，一定有一个<语句块>被执行 B、找到<条件>为True的第一个入口，便从此开始执行其后的所有<语句块> C、若有多个<条件>为True，则它们对应的<语句块>都被执行 D、多行选择结构中的<语句块>，有可能任何一个<语句块>都不被执行 9、函数Int（Rnd（0）*100）是下列哪个范围内的整数?（ ）。 A、（0，10） B、（1，100） C、（0，100） D、（1，99） 10、下列语句的输出结果为（ ）。 Print Format$（5689.36，”000，000.000”） A、5,689.36 B、5,689.360 C、5,689.3 D、005,689.360 11题程序： Option Base 1 Private Sub Form_KeyPress（Key Ascii As Integer） A=Array（237，126，587，48，498） M1=a（1） m2=1 If KeyAscii=13 Then For i=2 T0 5 If a（i）>ml Then ml=a（i） m2=i End If Next i End If Print m1： Print m2 End Sub 第 24 页 共 41 页 14题程序： For j=1 to 10 s=s+j If s>=10 Then Next j 12题程序： Private Sub Command2_Click（） Dim Ind As Integer Ind=_____________ List.Remove Ind End Sub 13题程序： Dim a，b，c，d as single a=100 b=20 c=1000 if b>a Then d=a：a=b：b=d End if if c>a Then d=a：a=c：c=d End if if c>b Then d=b：b=c：c=d End if Visual Basic 6.0 笔试练习题 11、对窗体编写如下代码，程序运行后，按回车键，输出结果为（ ）。 A、484 B、2371 C、5873 D、498 4 12、给程序的空白行选择适当的语句。窗体上有一个命令按钮Command2和一个列表框List1。先选择列表框中的某一 个项目然后单击命令按钮，将该项目从列表框删除。程序如下： A、List1.Index B、List1.LisIndex C、List1.Text D、List1.listCount 13、下列程序执行后，变量a的值为（ ）。 A、0 B、1000 C、20 D、100 14、使图像（Image）控件中的图像自动适应控件的大小应（ ）。 A、将控件的AutoSize属性设为True B、将控件的AutoSize属性设为False C、将控件Stretch属性设为True D、将控件的Stretch属性设为False 15、在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为”myform1”，双击控 件数组中的第3个按钮，打开代码编辑器，写下如下代码，运行时，单击按钮数组中的第1个按钮，窗本标题为（ ） A、Form1 B、M1 C、myform1 D、myform2 15题程序： 16、下面的过程定义语句中合法的是（ ）。 Privae Sub M1_Click（Index A、Sub Procl（ByVal n（ ）） B、Sub Proc1（n As Integer） As Integer） C、Function Proc1（Proc1） D、 Function Proc1（ByVal n） Forml.Caption=\17、为了在列表框中使用Ctrl和Shift键进行多个列表项的选择，应将列表框的End Sub Multi-select属性设置为（ ）。 A、0 B、1 C、2 D、3 18题程序： 18、下面程序段执行结果为（ ）。 x=Int（Rnd（ ）+4） A、excellent B、good C、pass D、fail Select Case X 19、阅读程序，运行上面的程序，单击命令按钮，输出结果为（ ）。 Case 5 A、2 4 6 8 B、5 6 7 8 C、10 12 14 16 D、出错 Print”excellent” 20、在Visual Basic中语句的续行符采用（ ）。 Case 4 Print”good” A、空格与短线 B、短线与空格 C、空格与下划线 D、下划线与空格 Case 3 21、要使文本框只具有垂直滚动条，则就（ ）。 Print”pass” A、将其Multiline设置为True，同时将Scrollbars属性设置为0 Case Else B、将其Multiline设置为True，同时将Scrollbars属性设置为1 Print ”fail” C、将其Multiline设置为True，同时将Scrollbars属性设置为2 End Select D、将其Multiline设置为True，同时将Scrollbars属性设置为3 22、我们可以在设计时（属性窗口中）和运行时（程序代码中）设置属性的属性值，以下关于属性设置的说法正确的 是（ ）。 19题程序： A、在属性窗口中可以设置所有属性的属性值 Sub subP（b（） As Integer） B、在程序代码中可以设置所有属性的属性值 For i=1 To 4 C、属性的名称由VB事先定义，用户不能改变 B（i）=2*i D、所有对象的属性都是可见的 Next i 23、设已经在窗体上添加了一个通用对话框控件CommonDialog1，以下正确的语End Sub 句是（ ）。 Private Sub Command1_Click（） A、CommonDialog1.Filter=ALLL Files |*.*| Pictures（*.Bmp）|*.Bmp Dim a（1 To 4） As Integer B、CommonDialog1.Filter=\（*.Bmp）”|*.Bmp A（1）=5 C、CommonDialog1.Filter={ALL Files{|*.*|Pictures（*.Bmp）|*.Bmp} A（2）=6 D、CommonDialog1.Filter=\（*.Bmp）|*.Bmp\A（3）=7 24、下列程序运行时输出的结果是（ ）。 A（4）=8 A、1 3 5 7 9 10 B、-1 -3 -5 -7 -9 subP a（ ） C、-1 2 -3 4 -5 6 -7 8 _9 10 D、1 -2 3 -4 5 -6 7 -8 9 -10 For i=1 To 4 25、单击命令按钮时，下列程序的执行结果为（ ）。 Print a（i）； A、1232 B、232 C、23 D、123 Next i 26、下列程序段错误的是（ ）。 End Sub A、Dim a As Integer B、Dim a（ ），b（ ） a=array（1，2，3，4） a=array（1，2，3，4）：b=a C、Dim a As Variant D、Dim a（5，1 to 4） a=array（1，”asd”，true） 第 25 页 共 41 页 Visual Basic 6.0 笔试练习题 27、文本框的SerollBars属性设置为非零值，却没有效果，原因是（ ）。 A、文本框中没有内容 B、文本框的MultiLine属性值为False C、文本框的MultiLine属性值为True D、文本框的Locked属性值为True 28、下列程序的运行结果是（ ）。 24题程序： 25题程序： Private Sub Form_Click（） Option Base 1 Private Sub Dim k As Integer Const a=10 Commandl_Click（ ） n=5 Private SubForm_Click（） Dim X As Integer，Y AS m=1 DimX（a）As Integer Integer k=1 K=-1 x=12：y=32 Do For I=1 to a Call PCS（x，Y） m=m+2 x（i）=I*k Print x；Y k=k+l k=(-1)*k End Sub Loop Until k>n Next I Public Sub PCS（ByVal n As Print m For I=1 to 10 Integer，ByVal m As End Sub Print x（i）； Integer） A、1 B、12 C、11 D、32 Next I n=n Mod 10 29、下面程序运行后，输出结果是（ ）。 End Sub m=m Mod 10 Private Sub mysub（b（）As Integer,Optional End Sub ByVal n As Integer=2） For I=1 to 4 30题程序： B（I）=n*1 Private Sub Commandl_Click（） Next I Dim X As Integer，Y As Integer End Sub x=50：y=78 Private Sub Commandl_Click（） Call PPP（x，Y） Dim a（1 to 4） As Integer，I As Integer Print x；y Call mysub（a（ ），5） End Sub Mysub a（ ） Public Sub PPP（ByVal n As Integer，ByVal m As Integer） For I=1 to 4 n=n\\10 Print a（i）； m=m\\10 Next End Sub End Sub A、5 10 15 20 B、2 4 6 8 C、出错 D、0 0 0 0 30、单击命令按钮时，下列程序的执行结果为（ ）。 A、08 B、50 78 C、450 D、78 50 二、填空题 1、每次单击菜单编辑器中”→”按钮可以使选定的菜单项__________。 2、快捷键Ctrl+O的功能相当于执行__________菜单中的__________命令；或者相当于单击工具栏上的__________ 按钮。 3、为在新建工程中模块的”通用声明”段自动加入Option Explicit语句，应在__________对话框中的__________选项卡 上进行相应选项的选择。 4、一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的__________。 5、如果菜单标题的某个字母前输入一个”__________”符号，那么该字母就成了热键字母；如果建立菜单时在标题文 本框中输入一个”__________”，那么显示时将形成一行分隔符。 6、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click（） Text1.Text=\程序设计\End Sub Private Sub Text1_Change（ ） Picture1.Print “VB Programming” End Sub 程序运行后，单击窗体，则在文本框中显示的内容是__________，而在图片框中显示的内容是__________ 7、表达式3/6*5的值是__________ 8、窗体中有两个命令按钮：”显示”（控件名为CmdDisplay）和”测试”（控件名为cmdTest）。单击”测试”按钮时，执 行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中”确定”按钮时，隐藏”显示”按钮，否则退出。 第 26 页 共 41 页 Visual Basic 6.0 笔试练习题 请填空。 PrivateSub comdText_lick（ ） Answer=MsgBox（”隐藏按钮，65”） If answer=vbOK Then CmdDisplay.__________ Else End End If End Sub 9、设窗体上有两个标签Labell和Label2，两个文本框Text1和Text2，简单说明以下各段事件代码的作用（说明当发生 什么事件时完成什么功能）。 （1）Private Sub Text1_Change（ ） Text1.SelLength=Len（Text1.Text） Label2.Caption=Text1.Text End Sub End Sub （4）Prirate Sub Text1_LostFocus（ ） （2）Private Sub Text1_DblClick（ ） Text2.SetFocus Label1.Caption=Text1.Text Text2.SelStart=0 End Sub Text2.SelLength=Len（Text2.Text） （3）Private Sub Text1_GotFocus（ ） End Sub Text1.SelStart=0 10、如果要求每隔15秒激发一次计时器事件，应将Interval属性设置为__________ 11、执行下面的程序段，x的值为__________ 12、以下程序的功能是将多维数组a（1 To m，1 To n）中的元素转移到一个名为b（1 To n*m）的一维数组中，完成 该程序。 12题程序： 11题程序： Option Base 1 Private Sub Commandl_Click0 Private Sub Command1_Click(Index As Integer) Fori=l To 9 A=a+i Dim a（1 To 20，1 To 10） Next i Dim b（ ） x=Val（i） ReDim__________ MsgBox X For i=l To 20 End Sub For j=l To 10 A（i，j）=i*j Next j 13题程序： Next i Private Sub Form_Load（ ） Tran a，20，10b Prcture1.Picture=LoadPicture（”c：\\pic\\mouth.ico”） End Sub _________.Interva=2000 Sub Tran（a（ ），m，n，b（ ）） End Sub Dim i As Integer Private Sub Timer1_Timer（ ） For i=1 To m Static X，Y As Integer For j=1 To n x=x+100 __________=a（i，j） y=y+100 Next j Pictuer1.Move[x，y] Next i End Sub End Sub 13、窗体中有图片框（Picture1）和计时器（Timer1）两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左、向右移动100twip。请填空。 ?A?B(A?5)?14、下面程序用来计算：?N?B/A(A?5) ?0(A?5)?15、请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。 第 27 页 共 41 页 Visual Basic 6.0 笔试练习题 第8套 一、选择题 1、每建立一个窗体，工程管理器窗口中就会增加一个（ ）。 A、工程文件 B、窗体文件 C、程序模块文件 D、类模块文件 2、下列叙述中不正确的是（ ）。 A、变量名的第一字符必须是字母 B、变量名的长度不超过255个字符 C、变量名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字 3、选拔身高T超过1.7米且体重w小于62.5公斤的人，表示该条件的布尔表达式为（ ） A、T>=1.7 And W<=62.5 B、T<=1.7 Or w>=62.5 C、T>1.7 And w<62.5 D、T=1.7 Or w>62.5 4、货币型数据需（ ）字节内存容量。 A、2 B、4 C、6 D、8 15题程序： 5、算法的时间复杂度是指（ ）。 Private Sub Command1_Click（） A、执行算法程序所需要的时间 B、算法程序的长度 Dim s（6，6） C、算法执行过程中所需要的基本运算次数 For i=1 To 6 D、算法程序中的指令条数 For j=1 To 6 6、保存一个工程至少应保存两个文件，这两个文件分别是（ ）。 If i=j Then A、文本文件和工程文件 B、窗体文件和工程文件 ________ C、窗体文件和标准模块文件 D、类模块文件和工程文件 Else 7、下面子过程语句说明合法的是（ ）。 ________ A、Sub n（ByVal n（）As Integer） End If Print________ B、Sub n（n（）As Integer）As Integer Next j C、Function f1（f1 As Integer）As Integer Print D、Function f1（By Val As Integer） Next i 8、运行一个尚未存盘的程序，将会（ ）。 End Sub A、程序不能运行，但不出现错误信息 B、程序不能运行，并且出现错误信息 C、系统自动将程序存盘后运行程序 D、系统弹出保存工程对话框，用户应答后再运行程序 9、在表示长整数时，可作为长整数尾部符号的是______。 A、# B、! C、＆ D、$ 10、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序，程序运行时，3次单击命令按钮Command1 后，窗体上显示的结果为（ ）。 11题程序： Private Sub Command1_ Click（） Dim A（3，3） Static X As Integer For M=1 To 3 Static Y As Integer For N=1 To 3 Cls If N=M Or N=3-M+1，Then Y=1 A（M，N）=1 Y=Y+5 Else X=5+X A（M，N）=0 Print X,Y End If End Sub Next N A、15 16 B、15 6 C、15 15 D、5 6 Next M 11、下列程序段的执行结果为（ ）。 For M=l To 3 A、1 0 0 B、1 1 1 C、0 0 0 D、1 0 1 For N=1 T0 3 0 1 0 1 1 1 0 0 0 0 1 0 Print A（M，N） 0 0 1 1 1 1 0 0 0 1 0 1 Next N 12、在Visual Basic中，要将一个窗体装载到内存进行预处理，但不显示，应该Print 使用语句（ ） Next M A、Show B、Hide C、Load D、UnLoad 13、下列程序运行时，若输入123，将输出（ ）。 Private Sub Command1_Click（）。 第 28 页 共 41 页 14题程序： Private Sub Command1_Click（） A=Val（Text1.Text） B=Val（Text2.Text） Select Case A Case________ N=A+B Case________ N=B/A Case________ N=0 End Select Text3.Text=N End Sub Visual Basic 6.0 笔试练习题 X1=InputBox（”请输入”） Print X1+123 End Sub A、123123 B、246 C、123 D、显示出错信息 14、要使文本框可输入多行文字，要更改的默认选项是（ ）。 A、ScrollBars和MultiLine B、Visible C、ScrollBars D、以上都不是 15、将任意一个正的两位数N的个位数与十位数对换的表达式为（ A、（N-Int（N／10）*10）*10+Int（N／10） B、N-Int（N）／10*10+Int（N）／10 C、Int（N／lO）+（N-Int（N／10）） D、（N-Int（N／lO）*10+Int（N／10） 16、执行x$=InputBox（”请输入X的值”）时，在弹出的对话框中输入123，在列表框List1选中第1个列表项（数据为456）， 使Y的值是123456的语句是（ ）。 A、y=x$+List1.List（0） B、y=x$+List1.List（1） C、y=Val（x$）+Val（List1.List（0）） D、y=Val（x$）&Val（List1.List（1）） 17、系统符号常量的定义可以通过（ ）获得。 A、对象浏览器 B、代码窗口 C、属性窗口 D、工具箱 18、Visual Basic的MSDN帮助窗口最明显的特征是（ A、具有Windows风格 B、具有Microsoft Office应用程序窗口风格 C、保持了浏览器的特征 D、与VisualBasic编辑窗口相似 19、在窗体上添加一个命令按钮，名为Commandl，一文本框，名为textl，则执行如下事件过程后，文本框中的输出为 （ ）。 20题程序： FOr i=l To 3 Pubic Sub Proc（a（ ）As Integer） For i=1 To 3 Static i As Integer For k=l To 2 Do x=x+3 A（i）=a（i）+a（i+1） Next k i=i+l Next j Loop While i<2 Next i End Sub Text.Text=str（x） Private Sub Commandl_Click（） A、21 B、42 C、54 D、72 Dim m As Integer,i As Iteger,x（10） As 20、单击一次命令按钮之后，下列程序段的执行结果为（ ）。 Integer A、3 4756 B、3 5 7 45 C、12345 D、12357 For i=0 To 4：x（i）=i+1：Next i 21、产生[10，37]之间的随机整数的Visual Basic表达式是（ ）。 For i=l To 2：Call Proc（x（ ））：Next i A、Int（Rnd（1）*27）+10 B、Int（Rnd（1）*28）+10 For i=0 To 4：Print x（i）；Next i C、Int（Rnd（1）*27）+11 D、Int（Rnd（1）*28）+11 End Sub 22、要使菜单项MenuOne在程序运行时失效，使用的语句是（ ）。 A、MenuOne.Visible=True B、MenuOne.Visible=False C、MenuOne.Enabled=True D、MenuOne.Enabled=False 23、如下程序段定义了学生成绩的记录类型，由学号、姓名、三门课程成绩（百分制）组成 （ ）。 Type Stud no As Integer name As String*10 score（1 To 3）As Single End Type 若对某个学生的各数据项进行赋值，下列程序段正确的是（ ）。 A、Dim S As Stud B、Dim S As Stud C、Dim S As Stud D、Dim S As Stud StuD.no=0201 S.no=0201 S.no=0201 Stud.no=0201 StuD.name=“李平” S.name=“李平” S.name=“李平” StuD.name=“李平” StuD.score=78,88,96 S.score=78,88,96 S.score（1）=78 StuD.score（1）=78 S.score（2）=88 StuD.score（2）=88 S.score（3）=96 StuD.score（3）=96 24、运行以下程序后，输出的图案是（ ）。 第 29 页 共 41 页 Visual Basic 6.0 笔试练习题 A、 * * B、********** C、********* D、 ********** ** ** ********** ******* ******** *** *** ********** ***** ****** **** **** ********** *** **** ********** ********** * ** 25、如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的空白处要填入（ ）。 A、x>=8 B、x<=8 C、x>=7 D、x<=7 24题程序： 26、在窗体上添加如下命令按钮，然后编写如下事件过程： Form1.Cls Private Sub Command_Click（） A$=String$（10，”*”） Dim a（10） As Integer For i=1 To 5 Dim p（3） As Integer n=10-2*i k=5 X$=A$：Y$=Space$（n） For i=1 To 10 Mid$（X$，i+1l，n）=Y$ A（i）=i Print X$ Next i Next i For i=1 To 3 p（i）=a（i*i） 25题程序： Next i x=1 For i=1 To 3 DO Next i x=x+3 For i=1 To 3 Print x p（i）=a（i*i） Loop Until_______ Next i For i=1 To 3 30题程序： k=k+p（i）*2 For r=0 To 150 Next i Circle（320,240），r Print k For i=1 To 1000 End Sub Next i 该程序的运行结果为（ ）。 Next r A、35 B、33 C、31 D、29 27、使用Public Const语句声明一个全局的符号常量时，该语句应放在（ ）。 A、过程中 B、窗体模块的通用声明段 C、标准模块的通用声明段 D、窗体模块或标准模块的通用声明段 28、表达式Str（Len（”123”））+Str（77.7）的值为（ ）。 A、377.7 B、377.7 C、80.7 D、12377.7 29、下列语句正确的是（ ）。 A、If A≠B Then Print ”A不等于B” B、If A<>B Then Print ”A不等于B” C、If A<>B Then Print ”A不等于B” D、If A≠B Print ”A不等于B” 30、运行以下程序后，输出的图形是（ ）。 A、一个固定的空心圆 B、一个半径逐渐变大的空心圆 C、一个固定的实心圆 D、一个半径逐渐变大的实心圆 二、填空题 1、欲打开各种Visual Basic窗口或显示工具栏，其对应的菜单命令均放置于主菜单项________的下拉菜单中。 2、Visual Basic中，事件的名称是固定的，它们是Visual Basic的________。 3、在VB6.0中，InputBox函数用于产生________对话框。 4、Visual Basic对象可以分为两类，分别为________和________。 5、当用________方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。 6、Visual Basic变量名字只能由________、________、________、组成，总长度不得超过________。 7、为了执行自动拖放，必须把（ ）属性设置为（ ），而为了执行手动拖放，必须把该属性设置为________。 8、下列程序功能为弹出对话框询问用户是否输出，如果是，则输出，否则结束。完成其中所缺代码。 Sub Output（ ） Dim I as integer I=MsgBox（”输出结果?”，vbInformation+vbYesNo，”提示：\） If I = ________ Then Print Myresult 第 30 页 共 41 页 Visual Basic 6.0 笔试练习题 第8套 一、选择题 1、B 2、C 3、C 4、D 5、C 6、B 7、D 8、D 9、C 10、B 11、D 12、C 13、B 14、A 15、A 16、A 17、A 18、C 19、C 20、B 21、B 22、D 23、C 24、A 25、A 26、B 27、C 28、B 29、C 30、D 二、填空题 1、视图 11、20 25 30 35 40 2、保留字 12、1 1 1 1 2 3 3、输入 2 2 2 4、预定义对象用户定义对象 1 2 3 5、Append 3 3 3 6、 字母 数字 下划线 255 1 2 3 7、DragMode 1 0 13、s1+x（k） s2+x（k） 8、vbYes End if 14、Int（-13.2）=-14 9、Int（终值-初值）／步长+1 15、24 10、12144 第9套、 一、选择题 1、B 2、A 3、B 4、A 5、B 6、A 7、B 8、B 9、C 10、A 11、C 12、B 13、C 14、B 15、D 16、C 17、D 18、A 19、D 20、C 21、B 22、B 23、B 24、C 25、D 26、D 27、D 28、C 29、A 30、A 二、填空题 1、纯代码性质 9。True 2、对象框 过程框 10、140 3、Form窗体 11、12 4、对象 12、”Text Files（*.txt）|*.txt” CommonDialog1.FileName 5、x（1）=9 x（2）=18 x（3）=27 x（4）=36 13、10 6、遍历所有选项 14、0 a*GetValue（a-1） 7、Private 15、80 8、False 第10套 一、选择题 1、B 2、D 3、C 4、D 5、D 6、A 7、D 8、B 9、A 10、A 11、B 12、A 13、C 14、A 15、A 16、C 17、C 18、B 19、B 20、C 21、B 22、C 23、D 24、D 25、D 26、C 27、D 28、B 29、B 30、B 二、填空题 1、Caption 2、内聚 3、（（M mod 10）*10+M\\10） 4、按下回车键 5、Open ”c：StuDatA.tXt” For Input As #1 6、k=k\\10 k<6 7、SelText 8、Type 9、Int（Rnd*99+1） Arr 10、True 11、35 25 12 d=b：b=c：c=d 12、（Log（x）／Log（10））／0.5+x^2 13、66 98 14、InputBox X \ \15、C*（-1） I+1 I<=N 第 41 页 共 41 页