第一篇：计算机二级photoshop(初级)图像的类型和文件格式
图像的类型和文件格式
图像的类型:
图像的类型在计算机中分为两种类型：点阵图像与向量图像。两种图像各有特色，也各有优点和缺点。因此我们在绘图时经常交叉使用。
点阵图像：点阵图像又叫位图式图像，它弥补了矢量图的缺陷，能够制作出丰富的图像，可以逼真地表现自然界的景观，也很容易在不同软件之间交换文件。缺点是无法制作真正的3D图像。并且缩放和旋转时会失真，同时对硬盘空间要求较高。点阵图像是利用色彩和渐变的像素来绘制图像的，所以在对精细渐变与颜色的处理应用上，点阵图像的效果最好。Photoshop编辑的图像主要是点阵图像。点阵图像与分辨有关，如果在屏幕上以较大的倍数放大显示，或以低分辨率打印，都会出现据齿状的边缘，而且会丢失细节。
向量图形：向量图形也叫矢量图形，是以数学描述的方式来记录图像内容的。它主要是根据几何特性来描述图形的。因此它的文件较小，很容易放大、缩小或旋转等，而且不会变形。缺点是无法精确地描述自然的景观，不容易在软件间交换文件。矢量图形与分辨率无关，可以将它任意放大到任意缩小，都会保持很高的清晰度，更不会出现锯齿状的边缘。
图像文件的格式：
PSD（*.PSD）格式
PSD格式是Adobe photoshop软件自身的格式，这种格式可以存储photoshop所有的图层，通道、参考线、注释和颜色模式等信息。保存图像时，若图像中包含有层，则一般都用photoshop（PSD）格式保存。若希望以其他格式保存，则必须在保存之前合并层，但它所的含的各种图像内容都会丢失，不方便再次修改。由于PSD格式保存的信息比较多，因此其文件比较大，此种格式是photoshop支持的自身的文件格式，所以能够更快地打开和存储这种格式地文件。而且该格式是惟一支持全部颜色模式的图像格式。
BMP（*.BMP）格式
BMP文件格式是一种Windows或OS2标准的位图式图像文件格式，它支持RGB、索引颜色、灰度和位图颜色模式，但不支持Alpha通道。使用Run Lengft Encodlng压缩方案，这种压缩方案不会损失数据，是一种非常稳定的格式。BMP格式不支持CMYK模式的图像。
TIFF（*.TIF）格式
TIFF格式便于在应用程序之间和计算机平台之间进行图像数据交换。因此，TIFF格式是应用非常广泛的一种图像格式，可以在许多图像软件和平台之间转换，如RGB、CMYK、Lab`lndexed Color，位图模式和灰度的颜色模式，并且在RGB、CMYK和灰度3种颜色模式中还支持使用通道、图层和路径的功能，只要在SaveAs（保存）对话框中选中Layers（图层）、AlphaChannels（通道），Spot Colors（专色）复选框即可。
JPEG（*.JPG）格式
JPEG格式的图像通常用于图像预览。JPEG格式的最大特色就是文件比较小，经过高倍率的压缩，是目前所有格式中压缩率最高的格式之一。但是JPEG格式在压缩保存的过程中会失真，丢掉一些肉眼不易查觉的数据。因而保存后的图像与原图有所差别，没有原图像的质量好，因此印刷品最好不要用此图像格式。JPEG格式支持CMYK、RGB、和灰度的颜色模式，但不支持Alpha通道。当将一个图像另存为JPEG的图像格式时，会打开JPEG选项对话框，从中可以选择图像的品质和压缩比例，通常在大部分的情况下选择Max（最大）选项来压缩图像，让图像的质量差别不大，但文件大小会减少很多。
EPS（*.EPS）格式
EPS格式为压缩的postscript格式，是为postscript打印机上输出图像开发的格式，其最大优点在于可以在排版软件中以低分辨率预览，而在打印时以高分辨率输出。EPS格式支持photoshop所有颜色模式，可以用来存储点阵图像和向量图形，在存储点阵图像时，还可以将图像的白色像素设定为透明的效果，它在位图模式下也可以支持透明。
GIF（*.GIF）格式
GIF格式是CompuServe提供的一种图形格式，最多只能保存256色的RGB色阶阶数，它使用LZW压缩方式将文件压缩而不会太占磁盘空间，因此GIF格式广泛应用于因特网的HTNL网页文档中，或网络上图片的传输，但它只能支持8位的图像文件。
第二篇：如何学习计算机初级知识
就按大学的本科教学大纲开始学吧，慢慢来，学计算机多少得懂点编程吧，先从c语言编程基础开始，先推荐看看谭浩强的c语言吧，貌似很普遍，这样的话你如果真要上大学学了计算机，那么你就比别人不是强一点半点了，好多人都被c语言给毁了，一旦学不好就放弃了，基础的东西不好也就完了，鉴于你是高中生，还是以高考为重，对了，推荐看看计算机科学基础，或计算机导论之类的书。会对计算机世界的各个方面，从软件到硬件，从数学到物理，从美国到世界，从操作系统到应用软件，从汇编到c语言等等各个方面，对你会有启发的，我说的书并不限于哪本，至少计算机方面尽量看看国外作者的，有能力可以看英文，毕竟是高中生，高考为重，先这么着，不过话说回来了，学点photoshop，flash，如果没事，大学加社团可是很有竞争力，一般大学都有网站维护之类的社团，一旦凭借这进去了就可以接触网站建设等知识。总之别想贪多，学好了你就不错，慢慢来，自己感悟，不可能一下子就给你开个全面的菜单，根据自己的爱好
像我大学来时不知道优盘是什么，不知道复制粘贴是啥意思，甚至连开关机重启按钮都分不太明白，基础很差的，所以很吃亏，不过还好也能混进实验室，不过跟他们这些大学前就有基础的人来说，明显我吃亏了，当然这并不是能力上的差别，但是至少可以让你有信心学下去，而且可以得到很多好处，毕竟基础好嘛虽然真正的计算机高手，用高手有点通俗，计算机科学家吧，不是会做个图片做个动画编个程序之类的，想想计算机是怎么造出来的，操作系统是怎么开发的，等等，你觉得是编点程序吗。真正的高手甚至不摸电脑的，当然玩玩电脑未尝不可，计算机科学是自然科学，数学是自然科学皇冠上的明珠，物理也是，如果你看了计算机科学技术导论就知道，这本书尽量买外国人的，美国吧，网站上买，多看看书的评价就知道了，慢慢来吧，很少有人能够成为真正的高手，努力吧
多在网上有效率搜寻信息来学习
第三篇：计算机操作员考试初级题库
计算机操作员考试初级题库（部分）
“。
表格设置相关: 1.设置格式如样张，调整单元格的高度和宽度（行高最小值为0.5厘米、表格左对齐、左 缩进2厘米、默认单元格间距为0.1厘米）2.按照样张设置表格的边框。（外框三线1.5磅[”。表格设置相关: 1.按照样张设置，格式并调整表格的高度和宽度（行高最小值为0.6厘米、表格左对齐、左缩进0.6厘米、默认单元格间距为0.2厘米）
2.按照样张设置表格的边框(包括内外线框)。（点划框线1.5磅[线形第5种]、第二、三行 填底纹充色为灰-30%，第五、六、七行底纹图案式样20%，图案颜色为青绿。）3.按照样张设置格式，各项单元格内容全部居中对齐。Internet题 IE相关: 1.访问http://www.xiexiebang.com 目录下,使用默认文件名。
2.设置IE选项参数，将IE首页设为空白页，并将IE的保留历史记录时间设为13天。3.设置IE选项参数，不使用web页中指定的颜色，指定访问过的链接为绿色(为调色板里
第三行第三列的颜色)，未访问过的链接为红色。(为调色板里的第二行第一列的颜色)OutLook相关: 1.要求在OUTLOOK中添加一个Email帐号，用户名为ok2000，Email地址为 ok2000@sina.com,pop3为mail.sina.com，SMTP为smtp.sina.com，密码为9999。2.书写内容为“我正在考试中”、附件为“C:bmpsina.gif”的Email,并发往 WCG2002@sina.com。
3.(前提：已设好ok2000的邮件帐户）接收在ok2002@SINA.COM中的信息。
第四篇：全国计算机二级access代码题
基本操作与简单应用
1.将“入校时间”时间字段默认值设置为下一的一月一日。DateSerial(Year(Date())+1,1,1)2.查找收藏品CD盘最高价格和最低价格信息输出，标题显示为v_Max和.v_Min 答：两次双击“价格”字段→视图→总计→第一个价格“总计”下拉选最大值，第二个选最小值→在第一个价格字段前添加v_Max，第二个前添加v_Min→保存。3.查找还没有选课的学生姓名。
答：查询→设计视图→添加显示表→追加查询到tTemp→双击所需字段→切换SQL视图→第二行语句改为：SELECTTOP 5 tStud.学号, tStud.姓名，tStud.年龄.4.＂班级编号＂数据由统计地图得到，是学号的前6位，运行时提示：＂请输入班级编号：＂ 答：选中三个显示表，在第一列输入＂班级编号：Left（[tStudent]！[学号]，6）＂，在条件行输入：[请输入班级编号：]，保存。
5.创建一个交叉查询，统计各班每门的平均成绩，如图。
答：修改字段“学号”为“班级编号:left([tScore]![学号],8)”；将“成绩”字段改为“round(avg([成绩]))”，并在“总计”中选择“表达式”。分别在“学号”、“课程名”和“成绩”字段的“交叉表”行中选择“行标题”、“列标题”和“值”。
6.在报表页面页脚添加一个计算控件，格式为：××××年××月
答：在工具箱中选择“文本框”控件，在报表页面页脚节区单击，选中“Text”标签，按Del键将其删除，右击“未绑定”文本框，选择“属性”，在“全部”选项卡下的“名称”行输入“tDa”，在“控件来源”行输入“=CStr(Year(Date()))+”年“+CStr(Year(Date()))+”月“" 7.查询，最大教师与最小教师年龄的差值，标题为m_age 答：在字段行输入：m_age：Max([tTeacher]！[年龄]－min([tTeacher]！[年龄])，单击√ 8.设置报表主体节文本框tDept的控件来源为计算控件。根据“所属部门”字段值填写。答：右击tDept的属性”控件来源“输入”＝DLookUp(“名称”，“tGroup”，“所属部门＝部门编号”)“。9.创建一个参数查询，查找“学号”“姓名”“性别”“年龄”，设置年龄为参数，参数值要求引用窗体fTemp上控件tAge的值。
答：在”年龄“字段的”条件“行输入”[Forms]![fTemp]![tAge]“。
10.创建追加查询，姓名字段的第一个字符为姓，和学号组合在一起。
答：在”字段“行的第一列输入”标识: [学号]+Left([姓名],1)“，然后双击”姓名“、”性别“和”年龄“字段。
11.“工作时间”本4月1.“年龄”字段有效性规则。答：”DateSerial(Year(Date()),4,1)“。”is not null“。
12.党员，非党员。”tPa“在”控件来属性“行输入”＝IIf([党员否]＝True，“党员”，“非党员”)“ 13.假设‘学生ID’字段的前四位代表年级统计各个年级不同课程的平均成绩，降序。
答：在”字段“行第一列输入”年级： Left([tStud]！[学生ID]，4)“，在”排序“行下拉列表中选中”降序“。分别双击”课程ID“、”成绩“字段添加到”字段“行。
14.创建一个更新查询，用于计算水费，公式如下水费=3.7*（本月水—上月水）答：双击字段列表中的”水费“字段【更新查询】，在”更新到“行输入”3.7*([本月水]-[上月水])“ 15.“已住天数”“应缴金额”：“姓名”字段条件输入：[请输入姓名：]→下一行输入：已住天数：Day(Date()-[入住日期])下一列输入：应交金额：已住天数：Day(Date()-[入住日期])*[价格] 16.查找“身份证”字段，条件输入“Mid([身份证]，4，3)=102，取消显示。17.楼号：Left([房间]，2).1.输入1时，输入3时，输入＞=3时，答：右键＂输出＂按钮，事件生成器，代码：Case Is＞=3
DoCmd.OpenReport＂rEmp＂
2.F1=1 n=1 F2=1 n=2 Fn=Fn-1+Fn-2 n＞=3 答：f（i）=f（i-1）+f（i-2）
tData=f（19）
3.设置系统当前日期：Form.Caption＝ Date 4.单击命令按钮bList，要求运行宏对象m1.补充完整。答：事件生成器，代码：DoCmd.RunMacro”m1“ 5.在窗体中有“修改”“保存”两个按钮，点击修改，保存可用。答：CmdSave.Enabled＝ True 6.补充窗体fText上bt1的单击事件代码，实现如下功能。。答：右键单击”test1“按钮，【事件生成器】，在空格行输入：bTitle.Caption＝tText 7.窗体功能：打开窗体，单击计算按钮，事件过程使用ADO数据库技术。。答：1）If rs.RecordCount=0 Then 2）tAge=sage 8.窗体有个组合框和文本框，名称分别为CItem和TxtDetail.答：1）Dim aa aa = cItem.Value Ldetail.Caption = aa + ”内容：“ 2）fDetail.Form.RecordSource = ”tStud“ 3）MsgBox ”查询项目和查询内容不能为空“, vbOKOnly, ”注意“ 9.请重新输入口令。
答：MsgBox ”请重新输入口令！“，vbOKquit 10.答：if MsgBox(”报表预览“, vbYesNo+ vbQuestion, ”确认“)=vbYes Then 11.单击刷新按钮，按性别条件动态显示退休职工的信息。答：Form.RecordSource＝ ”qEmp“ 12.在eSalary报表的主体节上添加两个计算控件：工资。
答：右键单击”Text“文本框选择【属性】，在”标题“行输入”应发工资“，关闭属性界面。
右键单击”未绑定“文本框选择【属性】，在”名称“行输入”ySalary“，在”控件来源“行输入”[基本工资]＋[津贴]＋[补贴]“，关闭属性界面。按步骤1～3添加另一个计算控件”Salary“，”控件来源“行输入”[基本工资]＋[津贴]＋[补贴]－[住房基金]－[失业保险]“。
13.在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名为“bt1”“bt2”
答：单击刷新事件生成器，1）Form.RecordSource = ”qemp“
右键单击命令按钮”退出“选择【事件生成器】，空行内输入”代码“ 2）DoCmd.Close 3）'DoCmd.Close
14.计算10000以内素数，个数及最大数两个值。
答：步骤1：选择窗体设计视图中的”输出“按钮，右击选择”属性“。步骤2：单击”事件“右边的”...“按钮。
计算10000以内的素数个数及最大素数两个值的语句为： For i = 2 To 10000 If sushu(i)Then n = n + 1 If i>mn Then mn = i End If End If Next i 步骤3：代码调用宏对象”mEmp“的语句为：DoCmd.RunMacro ”mEmp“。步骤4：最后保存并运行该窗体。
15.修改查询对象，qEmp为参数查询，参数为引用窗体对象“fEmp”上文本框“tSS”输入值。答：双击”改性别“字段，在”性别“条件输入”[forms]！[fEmp]！[tSS]“取消”性别“字段的显示。16.窗体加载时，将考生文件夹下的图片“text.bmp”设置为窗体背景，路径CurrentProject.Path 答：Form.Picture=CurrentProject.Path& ”test.bmp“ 17，等级考试测试。bTitle.Caption = Trim(tText)& ”等级考试测试“ 18.单击窗体“报表输出”按钮，调用事件代码以预览的方式打开。；单击退出。
答：DoCmd.OpenReport ”rEmp“，acViewPreview 19.“学号字段”5，6位代表专业信息：当为“10”时表示信息专业，其他为管理专业。
答：”tSub“选择属性。在”控件来源“行输入”＝IIf(Mid([tNum]，5,2)＝“10”，“信息”，“管理”)“ 20.图书的平均单价
答：”控件来源“行输入”=Round(Avg([单价]))21.报表添控件，判断图书金额合计，答：右键单击【该文本框】|【属性】，单击“全部”选项卡,在“名称”行输入“txtIf”；在“控件来源”行输入“=IIf（txtMoney>30000,”达标“,”不达标“)”，关闭属性界面。22.窗体中“报表输出”和“退出”，退出变红色，答：1）bt2.ForeColor = 255 2）'DoCmd.OpenReport “rEmp”, acViewPreview 23.报表输出：Form.bTitle.Caption = Year(Date)& “报表输出” 24.窗体“显示全部记录”：
答：右键单击命令按钮“显示全部记录”选择【事件生成器】。→在空行内输入代码： Private Sub Command4 Click()BBB.Form.RecordSource＝ “select * from tStudent where 姓名 like '” & Me！[Text2] & “*'” End Sub Private Sub bListClick()'*** 请在下面双引号内添入适当的SELECT语句 ***' BBB.Form.RecordSource＝ “select * from tStudent” *******************' [Text2] ＝ “ ” End Sub Private Sub 命令7 Click()DoCmd.Close End Sub"
第五篇：全国计算机二级VB笔试试题总结
2002年4月二级VB笔试试题
一、选择题1~35题每题2分，共70分。
下列各题A）、B）、C）、D）四个选项中，只有一个选择是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1．下列不能打开属性窗口的操作是（）。
A）执行“视图”菜单中的“属性窗口”命令
B）按F4键
C）按Ctrl+T
D）单击工具栏上的“属性窗口”按钮。
2．下列可以打开立即窗口的操作是（）。
A）Ctrl+D
B）Ctrl+E
C）Ctrl+F
D）Ctrl+G 3．InputBox函数返回值的类型为（）。
A）数值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定）
4．可以同时删除字符串前导和尾部空白的函数是（）。
A）Ltrim
B）Rtrim
C）Trim
D）Mid 5．表达式4+5 6 * 7 / 8 Mod 9 的值是（）。
A）4
B）5
C）6
D）7 6．如果在立即窗口中执行以下操作：
a=8
b=9
print a>b
A）-1
B）0
C）False
D）True 7．以下语句的输出结果是（）。
Print Format $(32548.5,“000,000.00”)
A）32548.5
B）32,548.5 C）032,548.50
D）32,548.50 8．执行以下程序段后，变量c$的值为（）。
a$=“Visual Basic Programing” b$=“Quick”
c$=b$ & UCase(Mid$(a$,7,6))& Right $(a$,11)
A）Visual BASIC Programing B）Quick Basic Programing C）QUICK Basic Programing
D）Quick BASIC Programing
9．为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）。
A）Value
B）Default C）Cancel
D）Enabled 10．为了把焦点移到某个指定的控件，所使用的方法是（）。
A）SetFocus
B）Visible C）Refresh
D）GetFocus 11．设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为（）。
A）5 B）6 C）0
D）-1
12．执行下面的程序段后，x 的值为（）。
x=5
For i=1 To 20 Step 2 x=x+i5 Next i A）21
B）22 C）23
D）24
13．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()For i=1 To 4 x=4
For j =1 To 3 x=3
For k=1 To 2 x=x+6 Next k Next j Next i Print x End Sub
程序运行后，单击命令按钮，输出结果是（）。
A）7 B）15 C）157 D）538
14．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_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
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（）。
A）2 B）3
C）14
D）15
15．在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()a=Text1.Text+Text2.Text Print a End Sub
Private Sub Form_Load()Text1.Text=”“ Text2.Text=”“ End sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）。
A）444 B）321123 C）123
321 D）132231 16．阅读下面的程序段：
For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i
执行上面的三重循环后，a 的值为（）。
A）3 B）9 C）14
D）21
17．在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
Private Sub Form_Load()Text1.Text=”“ Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i
Text1.Text=Sum End Sub
上述程序的运行结果是（）。
A）在文本框Text1中输出55 B）在文本框Text1中输出0 C）出错
D）在文本框Text1中输出不定值
18．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click()x=0
Do While x<50 x=(x+2)*(x+3)n=n+1 Loop
Text1.Text=Str(n)Text2.Text=Str(x)End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）。
A）1和0 B）2和72 C）3和50
D）4和168 19．用下面语句定义的数组的元素个数是（）。
Dim A(-3 To 5)As Integer
A）6 B）7 C）8
D）9 20．以下程序的输出结果是（）。
Option Base 1
Private Sub Command1_Click()Dim a(10),p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i
For i=1 To 3 p(i)=a(i*i)Next i
For i=1 To 3 k=k+p(i)*2 Next i Print k End sub
A）33 B）28 C）35 D）37
21．在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click()Dim a
a = Array(1,2,3,4)j = 1
For i = 4 To Step-1 s = s + a(i)*j j =j*10 Next i Print s End Sub
运行上面的程序，单击命令按钮，其输出结果是（）。
A）4321 B）12 C）3D）1234
22．在窗体上画一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Option Base 1
Private Sub Commandl_Click()Dim a(4,4)For i =1 To 4 For j =1 To 4 a(i,j)=(i-1)*3+j Next j Next i
For i =3 To 4 For j =3 To 4 Print a(j,i);Next j Print Next i End Sub
程序运行后，单击命令按钮，其输出结果为（）。
A）6 9
B）7 10
7&n
bsp;10 11
C）8 11
D）9 12 12
23．假定有如下的Sub过程：
Sub S（x As Single,y As Single）
t = x x =t/y
y =t Mod y End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub
程序运行后，单击命令按钮，输出结果为（）。
A）5 4 B）1 1 C）1.25 4
D）1.25 1 24．阅读程序：
Function F(a As Integer)b = 0 Static c b = b+1 c = c+1 F = a+b+c End Function
Private Sub Commandl_Click()Dim a As Integer a =2
For i =1 To 3 Print F(a)Next i End Sub
运行上面的程序，单击命令按钮，输出结果为（）。
A）4 B）4
C）4
D）4
7
25．阅读程序：
Sub subP(b()As Integer)For i =1 To 4 b(i)=2*i Next i End Sub
Private Sub Commandl_Click()Dim a(1 To 4)As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 subP a()For i =1 To 4 Print a(i)Next i End Sub
运行上面的程序，单击命令按钮，输出结果为（）。
A）2 B）5
C）10 D）出错
26．下列不能打开菜单编辑器的操作是（）。
A）按Ctrl+E B）单击工具栏中的“菜单编辑器”按钮
C）执行“工具”菜单中的“菜单编辑器”命令 D）按Shift + Alt + M
27．假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为（）。
A）MenuItem.Enabled=False B）MenuItem.Enabled=True C）MenuItem.Visible=True
D）MenuItem.Visible=False
28．在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（）。
A）Move B）Change C）Scroll
D）GetFocus
29．假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为（）。
A）Label1.BackStyle=0
Label1.Borderstyle=0
B）Label1.BackStyle=1
Label1.Borderstyle=1
C）Label1.BackStyle=True
Label1.BorderStyle=True
D）Label1.BackStyle=False
Label1.Borderstyle=False
30．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Private Sub Form_Load()List1.AddItem”357“ List1.AddItem”246“ List1.AddItem”123“ Listl.AddItem”456“ Text1.Text=”“ End Sub
Private Sub List1_ DblClick()a =List1.Text
Print a+Text1.Text End Sub
程序运行后，在文本框中输入“789”（见图附录-1），然后双击列表框中的“456”，则输出结果为（）。
图附录-1
A）1245
B）456789
C）789456
D）0
31．为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是（）。
A）Visible
B）Timer
C）Enabled
D）Interval
32．为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为（）。
A）Get文件号，记录号，变量名
B）Get文件号，变量名，记录号
C）Put文件号，变量名，记录号
D）Put文件号，记录号，变量名
33．对窗体编写如下事件过程：
Private Sub Form _MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button =2 Then Print ”AAAAA“ End If End Sub
Private Sub Form _ MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print ”BB BBB“ End Sub
程序运行后，如果右击鼠标，则输出结果为（）。
A）AAAAA B）BBBBB
BBBBB
C）AAAAA D）BBBBB
AAAAA
34．为了在运行时能显示窗体左上角的控制框（系统菜单），必须（）。
A）把窗体的Contro1Box属性设置为False，其他属性任意
B）把窗体的ControlBox属性设置为True，并且把Boder Style属性设置为1-5
C）把窗体的ControlBox属性设置为False，同时把BoderStyle属性调协为非0值
D）把窗体的ControlBox属性设置为True，同时把BoderStyle属性设置为0值
35．对窗体编写如下代码：
Option Base 1 Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1
If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(i)m2 =i End If Next i End If Print m1 Print m2 End Sub
程序运行后，按回车键，输出结果为（）。
A）48
B）237
C）498
D）498
二、填空题（每空２分，共30分）
请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。
1．设有如下的Visual Basic表达式： 5 * x^2 – 3 * x – 2 * Sin(a)/3 它相当于代数式 [1]。
2．执行下面的程序段后，s的值为 [2]。
s = 5
For i = 2.6 To 4.9 Step 0.6 s = s+1 Next i
3．表达式Fix(-32.68)+Int(-23.02)的值为 [3]。
4．为了在运行时把图形文件picfile.jpg装入图片框Picture1，所使用的语句为 [4]。
5．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()a = InputBox(”请输入一个整数“)b = InputBox(”请输入一个整数“)Print a + b End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 [5]。
6．执行下面的程序段后，b的值为 [6]。
a=300 b=20 a=a+b b=a-b a=a-b
7．以下程序段的输出结果是 [7]。num=0 &nb sp;
While num<=2 num=num+1 Print num Wend
8．在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 3)k=5
For i=1 To 10 a(i)=i Next i
For i=1 To 3 p(i)=a(i*i)Next i
For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub
程序运行后，单击命令按钮，输出结果是 [8]。
9．下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在 [9]、处将程序补充完整。
Option Base 1
Private Sub Command1_Click()Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)For i= [9] For j= [10]
If a(i)[11] 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
10．在窗体上画一个命令按钮，然后编写如下过程：
Function fun(ByVal num As Long)As Long
[10]、[11] Dim k As Long k=1
num=Abs(num)Do While num k=k*(num Mod 10)num=num10 Loop fun=k
End Function
Private Sub Command1_Click()Dim n As Long Dim r As Long
n=InputBox(”请输入一个数“)n=CLng(n)r=fun(n)Print r End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为 [12]。
11．如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 [13]。
12．假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在 [14] 和 [15] 处将程序补充完整。
Private Sub Command1_Click();[14] Form1 Form2.[15] End Sub
2002年9月二级VB笔试试题
一、选择题(每题2分，共70分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）。
A)工程资源管理器窗口
B)工具箱窗口
C)代码窗口
D)属性窗口
(2)以下叙述中正确的是（）。
A)窗体的Name属性指定窗体的名称，用来标识一个窗体
B)窗体的Name属性的值是显示在窗体标题栏中的文本
C)可以在运行期间改变对象的Name属性的值
D)对象的Name属性值可以为空
(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。
A)单选按钮
B)图片框
C)通用对话框
D)文本框
(4)设有如下变量声明
Dim TestDate As Date
为变量TestDate正确赋值的表达方式是（）。
A)TextDate=#1/1/200
2# B)TestDate=#“1/1/2002”#
C)TextDate=date(“1/1/2002”)
D)TestDate=Format(“m/d/yy”,“1/1/2002”)
(5)设有如下声明：
Dim X As Integer
如果Sgn(X)的值为-1，则X的值是（）。
A)整数
B)大于0的整数
C)等于0的整数
D)小于0的数
(6)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为（）。
A)15 16
B)15 6
C)15 1D)5 6
(7)设a=3,b=5，则以下表达式值为真的是（）。
A)a>=b And b>10
B)(a>b)Or(b>0)
C)(a<0)Eqv(b>0)
D)(-3+5>a)And(b>0)
(8)设有语句
x=InputBox(“输入数值”，“0”，“示例”)
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（）。
A)变量X的值是数值10
B)在InputBox对话框标题栏中显示的是“示例”
C)0是默认值
D)变量X的值是字符串“10”
(9)从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（）。
A)Left
B)Mid
C)String
D)Instr
(10)设a=“Visual Basic”，下面使b=“Basic”的语句是（）。
A)b=Left(a,8,12)
B)b=Mid(a,8,5)
C)b=Rigth(a,5,5)
D)b=Left(a,8,5)
(11)以下能够触发文本框Change事件的操作是（）。
A)文本框失去焦点
B)文本框获得焦点
C)设置文本框的焦点
D)改变文本框的内容
(12)在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：
Private Sub Timer1_()
TxtTime.text=Time
End Sub
在下划线上应填入的内容是（）。
A)Enabled
B)Visible
C)Interval
D)Timer
(13)在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图)，则能够实现上述要求的语句序列是（）。
A)Option1.value=True
B)Option1.Value=True
Check1.Value=False
Check1.Value=True
C)Option2.Value=False D)Option1.Value=True
Check1.Value=True
Check1.Value=1
(14)为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）。
A)Value
B)Default
C)Cancel
D)Enabled
(15)在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I=1 To 4
For J=0 To 1
Print Chr$(65+I);
Next J
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。
A)BB
B)A
C)B
D)AA
CC
BB
CC
BBB
DDDD
CCC
DDD
CCCC
EEEEE
DDDD
EEEE
DDDDD
(16)图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（）。
A)Autosize
B)Stretch
C)AutoRedraw
D)Appearance
(17)在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是（）。
A)15和1
B)27和C)195和3
D)600和4
(18)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For I=0 To 50
i=i+3
n=n+1
If i>10 Then xit for
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（）。
A)B)3
D)4
D)5
(19)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10,10)As Integer
Dim i,j As Integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next I
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（）。
A)12
B)13
C)1D)15
(20)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Next j
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。
A)123 B)234 C)147 D)123
246
345
258
456
369 456
369
789
(21)设有如下程序：
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1,2,3,4,5,6,7,8,9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是（）。
A)4 3 2 1 B)5 4 3 2 C)6 5 4 3 D)7 6 5 4
(22)下列叙述中正确的是（）。
A)在窗体的Form_Load事件过程中定义的变量是全局变量
B)局部变量的作用域可以超出所定义的过程
C)在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D)在调用过程时，所有局部变量被系统初始化为0或空字符串
(23)在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是（）。
A)Private Sub Command1_Click()
x=InputBox(“请输入整数”)
a=F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
B)Private Sub Command1_Click()
x=InputBox(“请输入整数”)
a=F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
F1=0
Else
F1=1
End If
End Function
C)Private Sub Command1_Click()
x=InputBox(“请输入整数”)
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
F1=1
Else
F1=0
End If
End Function
D)Private Sub Command1_Click()
x=InputBox(“请输入整数”)
F1(Val(x))
Print a
End Sub
Function F1(ByRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
(24)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub Command1_Click()
Dim x,y,z As Integer
x=5
y=7
z=0
Text1.text=“”
Call P1(x,y,z)
Text1.Text=Str(x)
End Sub
Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)
c=a+b
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是（）。
A)0
B)12
C)Str(z)
D)没有显示
(25)以下叙述中错误的是（）。
A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B)Sub过程中不能嵌套定义Sub过程
C)Sub过程中可以嵌套调用Sub过程
D)事件过程可以像通用过程一样由用户定义过程名
(26)以下叙述中错误的是（）。
A)在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)
B)在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)
C)KeyPress事件中不能识别键盘上某个键的按下与释放
D)KeyPress事件中可以识别键盘上某个键的按下与释放
(27)以下叙述中错误的是（）。
A)在同一窗体的菜单项中，不允许出现标题相同的菜单项
B)在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C)程序运行过程中，可以重新设置菜单的Visible属性
D)弹出式菜单也在菜单编辑器中定义
(28)设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是（）。
A)menu1.Enabled=True B)Munu1.Enabled=False
C)Menu1.Visible=True D)Menu1.Visible=False
(29)以下叙述中错误的是（）。
A)在程序运行时，通用对话框控件是不可见的
B)在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用
C)调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件
D)调用通用对话框控件的ShowColor方法，可以打开颜色对话框
(30)在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是（）。
A)“text(.txt)|(*.txt)” B)“文本文件(.txt)|(.txt)”
C)“text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”
(31)以下叙述中错误的是（）。
A)一个工程中只能有一个Sub Main过程
B)窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
C)窗体的Hide方法和Unload方法的作用完全相同
D)若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
(32)以下叙述中错误的是（）。
A)一个工程中可以包含多个窗体文件
B)在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C)在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D)全局变量必须在标准模块中定义
(33)设在工程中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String *10
TelNum As String *20
End Type
在窗体上画一个名为Command1的命令按钮。要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是（）。
A)Private Sub Command1_Click()
Dim B As Books
Open “c:Person.txt”For Output As #1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Write #1,B.Name,B.TelNum
Close #1
End Sub
B)Private Sub Command1_Click()
Dim B As Books
Open “c:Person.txt”For Input As #1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Print #1,B.Name,B.TelNum
Close #1
End Sub
C)Private Sub Command1_Click()
Dim B As Books
Open “c:Person.txt”For Output As #1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
Write #1,B
Close #1
End Sub
D)Private Sub Command1_Click()
Open “c:Person.txt”For Input As #1
Name=InputBox(“输入姓名”)
TelNum=InputBox(“输入电话号码”)
Print #1,Name,TelNum
Close #1
End Sub
(34)以下叙述中正确的是（）。
A)一个记录中所包含的各个元素的数据类型必须相同
B)随机文件中每个记录的长度是固定的
C)Open命令的作用是打开一个已经存在的文件
D)使用Input #语句可以从随机文件中读取数据
(35)目录列表框的Path属性的作用是（）。
A)显示当前驱动器或指定驱动器上的目录结构
B)显示当前驱动器或指定驱动器上的某目录下的文件名
C)显示根目录下的文件名
D)显示该路径下的文件
二、填空题(每空2分，共40分）
请将每空的正确答案写在答题卡(1)至(15)的横线上，答在试卷上不得分。
(1)在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请在 [1] 和 [2] 处填入适当的内容，将程序补充完整。
Private Sub HScroll1_ [1]()
Labl2.Caption=HScroll1.[2]
End Sub
(2)在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在 [3]、[4] 和 [5] 处填入适当的内容，将程序补充完整。
Private Sub Command1_Click()
For i=0 To 3
If [3] =True then
opt=Option1(i).Caption
End If
Next
Select Case [4]
Case”+”
Result=Val(Text1.Text)+Val(Text2.Text)
Case”-”
Result=Val(Text1.Text)-Val(Text2.Text)
Case”*”
Result=Val(Text.Text)*Val(Text2.Text)
Case”/”
Result=Val(Text1.Text)/Val(Text2.Text)
End Select
[5] =Result
End Sub
(3)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ [6]()
Command1.Enabled=True
End Sub
(4)在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。
Form1.[7] Pmenu
(5)以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 [8] 和 [9] 处填入适当的内容，将程序补充完整。
Private Sub Form_Click()
Dim x As Single,amax As Single,amin As Single
x=InputBox(“Enter a score”)
amax=x
amin=x
Do While [8]
If x>amax Then
Amax=x
End If
If [9]Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
(6)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Load()
Text1.Text=”计算机”
End Sub
Private Sub Text1_Change()
Picture1.Print“等级考试”
End Sub
程序运行后，在文本框中显示的内容是 [10]，而在图片框中显示的内容是 [11]。
(7)在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer,y As Integer)As Integer
M=IIf(x>y,x,y)
End Function
Private Sub command1_Click()
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,b)
End Sub
程序运行后，单击命令按钮，输出结果为 [12]。
(8)为了改变计时器控件的时间间隔，应该修改该控件的 [13] 属性。
(9)在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。
Private Sub Form_load()
List1.AddItem”北京”
List1.AddItem”上海”
List1.AddItem”湖北”
End Sub
Private Sub [14]()
Label1.Caption= [15]
End Sub
2003年4月二级VB笔试试题
一、选择题((1)一(20)每小题2分，(21)一(30)每小题3分，共30题，70分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡的相应位置上，答在试卷上不得分。
(1)以下不能在”工程资源管理器“窗口中列出的文件类型是（）。
A)．bas
B)．res
C)．fnn
D)．ocx
(2)以下关于窗体的描述中，错误的是（）。
A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中
B)窗体的Ioad事件在加载窗体时发生
C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D)窗体的Height、width属性用于设置窗体的高和宽
(3)下列可作为V2sualBasic变量名的是（）。
A)A#A
B)4A
C)?xY
D)constA(4)设有如下的记录类型
Type Student
numberAs string
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是（）。
A)Student．name=”张红“
B)Dim As Student
s．name＝”张红“ C)Dim s As Type Student
D)Dim s As Type
S．name=”张红“
s.Dame＝”张红“
(5)函数String(n，”str“)的功能是（）。
A)把数值型数据转换为字符串 B)返回由n个字符组成的字符串
C)从字符串中取出n个字符
D)从字符串中第n个字符的位置开始取子字符串
(6)将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是（）。
A)Cos(a+b)A2十5。exp(2)
B)Cos^2(a+b)+5*exp(2)C)Cos(a+b)^2十5*ln(2)
D)Cos^2(a+b)+5*ln(2)
(7)在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过程：
PrlVate Sub Commandl_C1ick（）
a$=”software and hardware“
b$＝Right(a$,8)
c$=Mid(a$,1，8)
Msgbox a$，b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是（）。
A)softWare and hardware
B)software
C)hardwafe
D)1
(8)执行如下语句：
a＝inutBox(”Today“，”TomorroW，“Yesterday”，,“Day before yesterday”，5)
将显示一个输入对话框，在对话框的输入区中显示的信息是（）。
A)Today
B)Tomorrow
C)Yesterday
D)Day before yesterday
(9)表示滚动条控件取值范围最大值的属性是（）。
A)Max
B)LargeChange
C)Value
D)Max-Min
(10)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
A)Private Sub listl_Click()B)Private Sub Listl_C1ick()
Labell．Caption＝list1.listlndex Labell．Nanle＝Listl．listindex
End Sub ．End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。A)空白
B)错误提示
C)北京
D)上海
(15)假定有以下函数过程：
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1＝UCase(Mid(S，i，1))十s1
Next i
Fun＝s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Prlvate Sub Commmldl_Click()
Dim Str1 As String，Str2 As String
Strl＝inputbox(“请输入一个字符串”)
Str2=Fun(Strl)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（）。
A)abcdefg
B)ABCDEFG
C)gfedcba
D)GFEDCBA
(16)设有语句
open “c：Test．Dat” For OutPut As#1
则以下错误的叙述是（）。
A)该语句打开C盘根目录下一个己存在的文件Test．Dat B)该语句在C盘根目录下建立一个名为Test．Dat的文件
C)该语句建立的文件的文件号为1 D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息
(17)以下叙述中错误的是（）。
A)用Shell函数可以调用能够在Windows下运行的应用程序
B)用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数
C)调用Shell函数的格式应为：<变量名>＝Shell(……)
D)用Shell函数不能执行DoS命令
(18)以下关于过程及过程参数的描述中，错误的是（）。
A)过程的参数可以是控件名称 B)用数组作为过程的参数时，使用的是“传地址”方式
C)只有函数过程能够将过程中处理的信息传回到调用的程序中
D)窗体可以作为过程的参数
(19)在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub Txta_KeyPress(keyascii as integer)
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是（）。
A)单击鼠标
B)双击文本框
C)鼠标滑过文本框
D)按下键盘上的某个键
(20)目录列表框的Path属性的作用是（）。
A)显示当前驱动器或指定驱动器上的路径
B)显示当前驱动器或指定驱动器上的某目录下的文件名
D)显示根目录下的文件名
D)只显示当前路径下的文件
(21)假定有如下事件过程：
PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y As
Single)
If Button＝2 then
PopupMenu popForm
End if
End Sub
则以下描述中错误的是（）。
A)该过程的功能是弹出一个菜单
B)popForm 是在菜单编辑器中定义的弹出式菜单的名称
C)参数X、Y指明鼠标的当前位置
D)Button=2 表示按下的是鼠标左键
(22)以下能够正确计算n!的程序是（）。
A)Private Sub Commandl_ClicK()
n＝5:x＝1
Do
X=x*1
i＝i十1
Loop While i＜n
Print x
End Sub B)Private Sub Commandl_Click()
n＝5: x＝1：i=1
Do
X＝X*1
i＝i十1
Loop While i＜n
Print x
End Sub C)Private Sub Commandl_Click()
n=5：x＝1：i＝1
Do
X=X*1
i＝i十1
Loop while i<=n
Print x
End Sub D)Private Sub Commandl_C1ick()
n＝5：x＝1：i=1
Do
X=X*l
i=i十1
loop While i＞n
Print x
End Sub
(23)在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：
Private x As Integer
Private Sub Commandl-Click()
X＝5：Y＝3
Call proc(x,Y)
Labell．Caption＝X
Label2．Caption＝Y
End Sub
Private Sub proc(ByVal a As Integer，ByVal b As hteger)
x＝a* a
Y=b十b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）。
A)5和3
B)25和3
C)25和6
D)5和6
(24)在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程：
Private Sub Commandl_C1ick()
S＝0
For i＝1 T0 15
x＝2*i一1
1f x Mod 3＝0 Then s＝s十1
Nexti
Labell．Caption=s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是（）。
A)1
B)5
C)27
D)45
(25)在窗体上画一个名称为Commandl的命令按钮和三个名称分别为Labell、Label2、Label3的标签，然后编写如下代码：
Private x As Integer
Private Sub Command1_C1ick()
Static y As Integer
Dimz As Integer
n＝10
z=n十z
y＝y十z
X＝X十Z
Labell.Caption＝x
Label2．Caption=y
Label3．Caption＝z
End Sub
运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（）。
A)10 10 10
B)30 30 30
C)30 30 10
D)10 30 30(26)设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程：
PriVate Sub Commandl_C1ick()
Static b As Variant
b＝Array(1,3,5,7,9)
End Sub
此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是（）。
A)For i＝0 To 5-1＼2
tmp＝b(i)
b(i)＝b(5-i-1)
b(5-i-1)＝tmp
Next B)for i＝0 To 5
tmp=b(i)
b(i)＝b(5-i-1)
b(5-i-1)=tmp
Next C)For i＝0 T0 5＼2
tmp＝b(i)
b(i)＝b(5-i-1)
b(5-i-1)；tmp
Next D)For i＝1 T0 5＼2
tmp=b(i)
b(i)＝b(5一i一1)
b(5-i-1)＝tmp
Next
(27)在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，两个名称分别为Labell、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器打开一个保存文件的通用对话框。该窗口的标题为“Save”，缺省文件名为“SaveFile”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是（）。
A)Private Sub Command_C1ick()
Commondialogl．FileName=“Savefile”
Commondialogl.filter＝“All Files|*.*|(*.txt)|*.txt|(*.doc)．|*.doc”
CommonDialogl．Filterindex=2
CommonDialogl．Dial0g．title＝“Save”
CommonDialogl．Action＝2
End Sub B)Private Sub Commandl-Click()
CommonDialogl．FileName＝“SaveFile”
CommonDiaLogl．Filter＝“A11 Files|*.*|(*.txt)|*.txt|*．doc|*．doc”
C0mmonDialogl．FilterIndex＝1
CommonDialogl．DialogTitle＝“Save”
CommonDialogl．Action＝2
End Sub C)Private Sub Cmmandl_C1ick()
COmmonDialogl．FileName＝“Save”
CommonDialogl．FiLter＝“A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc”
CommonDialogl．Filterindex＝2
C0mmonDialogl．DialogTitle＝“SaveFile”
CommonDialogl．Action＝2
End Sub D)Private Sub Commandl_C1ick()
CommonDialogl．FileName＝“SaveFile”
CommonDialogl．Filter＝“All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc”
CommonDialogl．FilterIndex=1
CommonDialogl．DialogTitle=“Save”
CommonDialogl．Action＝1
End Sub
二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡[1]一[15序号的横线上，答在试卷上不得分。
(1)visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是________
(2)Visual Basic提供的对数据文件的三种访问方式为随机访问方式_____和二进制访问方式。
(3)执行下面的程序段后，变量S的值为_______。
S＝5
For i ＝2.6 To 4.9 Step 0.6
S=S十1
Next i
(4)为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picturel，所使用的语句为_______。
(5)计时器控件能有规律的以一定时间间隔触发_______事件，并执行该事件过程中的程序代码。
(6)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的 数并求出它们的和。请填空。
Private Sub Commandl_C1ick()
Fori＝1To 20
x＝Int(____________*200+100)
If_______[7] ＝0 Then
Print x
S＝S十 _________ [83
End If
Next i
Print “Sum＝”：S
End Sub
(7)设有如下程序
Private Sub Form_Click()
Dim a AS Integer，b As integer
a＝20：b=50R>
p2a，b
p3a,b
Print“a＝”；a,“b＝”；b
End Sub
Sub pl(x As Integer，ByVal y As Integer)
x=x十10．
v＝v十20
End Sub
Sub p2(byVal x As Integer, y As Integer)
x＝x十10
y＝y十20
End Sub
Sub p3(ByValx As Integer, ByVal y As Integer)
x＝x十10
y=y十20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a＝______和b=______。
(8)在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程
Private Sub Commandl_C1icK()
Dim As String
a=_____[11]
For i ＝1 To 5
Print Space(6-i)；Mid$3(a，6-i，2*i-1)
Nexti
End Sub
程序运行后，单击命令按钮，要求窗体上显示的输出结果为
456
34567
2345678
123456789
请填空。
(9)在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示； 如果存在，则在Label2中给出提示“输入项已在组合框中”。请在[12>、[13]和[14]处将程序补充完整。
Private Sub Combol_________<12>(KeyAscii As integer)
1f KeyAscii＝13 Then
Fori＝0 To Combo1．listCount-1
1f Combo1．Text＝______ [13] Ihen
Label2．Caption＝“输入项己在组合框中”
ExIt Sub
End lf
Next i
Label2．Caption＝“已成功添加输入项”
Combo1．______ [14] CombO1．Text
End lf
End Sub
(10)设有如下程序
Private sub search(a()As variant，ByVal key As Variant，index%)
Dim I％
ForI＝LBound(a)To UBound(a)
If key＝a(I)Then
index＝I
Exit Sub
End If
Next I
Index＝-1
End Sub
Private Sub Form_Load()
Show
Dtm b()As Variant
Dim n As Integer
b＝Array(1，3，5，7，9，11，13，15)
Call search(b，11，n)
Printt n
End Sub
程序运行后，输出结果是________。
2003年9月二级VB笔试试题
（考试时间90分钟，满分100分）
一、选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）
（1）以下叙述中错误的是（）。
A）Visual Basic 是事件驱动型可视化编程工具
B）Visual Basic应用程序不具有明显的开始和结束语句
C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）Visual Basic中控件的某些属性只能在运行时设置
（2）以下叙述中错误的是（）。
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B）以.BAS为扩展名的文件是标准模块文件
C）窗体文件包含该窗体及其控件的属性
D）一个工程中可以含有多个标准模块文件
（3）以下叙述中错误的是（）。
A）双击鼠标可以触发DblClick事件
B）窗体或控件的事件的名称可以由编程人员确定
C）移动鼠标时，会触发MouseMove事件
D）控件的名称可以由编程人员设定
（4）以下不属于Visual Basic系统的文件类型是（）。
A）.frm
B）.bat
C）.vbg
D）.vbp
（5）以下叙述中错误的是（）。
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B）保存Visual Basic程序时，应分别保存窗体文件及工程文件
C）Visual Basic应用程序只能以解释方式执行
D）事件可以由用户引发，也可以由系统引发
（6）以下能正确定义数据类型TelBook的代码是（）。
A）Type TelBook
B）Type TelBook
Name As String*10
Name As String*10
TelNum As Integer
TelNum As Integer
End Type
End TelBook
C）Type TelBook
D）Typedef TelBook
Name String*10
Name String*10
TelNum Integer
TelNum Integer
End Type TelBook
End Type
（7）以下声明语句中错误的是（）。
A）Const var1=123
B）Dim var2 = 'ABC'
C）DefInt a-z
D）Static var3 As Integer
（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是（）。
A）List1.List
B）List1.ListIndex
C）List1.Index
D）List1.Text
（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（）。
A）MouseDown B）MouseUp
C）Load
D）Click
（10）设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是（）。
A）True
B）False
C）
1D）出错信息
（11）如果要改变窗体的标题，则需要设置的属性是（）。
A）Caption
B）Name
C）BackColor D）BorderStyle
（12）以下能判断是否到达文件尾的函数是（）。
A）BOF
B）LOC
C）LOF
D）EOF
（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（）。
A）如果工程中含有Sub Main过程，则程序一定首先执行该过程
B）不能把标准模块设置为启动模块
C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D）任何时刻最多只有一个窗体是活动窗体
（14）窗体的MouseDown事件过程
Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
有4个参数，关于这些参数，正确的描述是（）。
A）通过Button参数判定当前按下的是哪一个鼠标键
B）Shift参数只能用来确定是否按下Shift键
C）Shift参数只能用来确定是否按下Alt和Ctrl键
D）参数x,y用来设置鼠标当前位置的坐标
（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（）。
A）Combo1.RemoveItem Text
B）Combo1.RemoveItem 2
C）Combo1.RemoveItem 3
D）Combo1.RemoveItem Combo1.Listcount
（16）以下关于焦点的叙述中，错误的是（）。
A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B）当文本框失去焦点时，触发LostFocus事件
C）当文本框的Enabled属性为False时，其Tab顺序不起作用
D）可以用TabIndex属性改变Tab顺序
（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为（）。
A）=
B）*
C）&
D）-
（18）执行语句Open “Tel.dat” For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是（）。
A）只能写，不能读
B）只能读，不能写
C）既可以读，也可以写
D）不能读，不能写
（19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（）。
A）10
B）20
C）30
D）40
（20）设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是（）。
A）若“条件”是一个为0的常数，则一次也不执行循环体
B）“条件”可以是关系表达式、逻辑表达式或常数
C）循环体中可以使用Exit Do语句
D）如果“条件”总是为True，则不停地执行循环体
（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num = 1
Do Until num > 6
Print num;
num = num + 2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A）1 3.4 5.8
B）1 3 5
C）1 4 7
D）无数据输出
（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a－1
Loop While a <= 0
Print s;a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（）。
A）7 9
B）34 0
C）9 7
D）死循环
（23）设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x = 10
y=5
y = f(x)
Print x;y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。
A）10 5
B）20 5
C）20 40
D）10 40
（24）设有如下通用过程：
Public Sub Fun(a(), ByVal x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：
Private Sub Command1_Click()
Dim arr(5)As Variant
For i = 1 To 5
arr(i)= i
Next
n = 10
Call Fun(arr(), n)
Text1.Text = n
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是（）。
A）10
B）1C）25
D）24
（25）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i)> c Then
d = d + x(i)
c = x(i)
Else
d = d－c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为（）。
A）89
B）99
C）2D）77
（26）在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是（）。
A）Private Sub Command1_Click()
Label3.Caption = Str(Val(Label1.Caption)*Val(Label2.Caption))
End Sub
B）Private Sub Command1_Click()
Label3.Caption = HScroll1.Value * HScroll2.Value
End Sub
C）Private Sub Command1_Click()
Label3.Caption = HScroll1 * HScroll2
End Sub
D）Private Sub Command1_Click()
Label3.Caption = HScroll1.Text * HScroll2.Text
End Sub
（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n = 1 To 20
If n Mod 3 <> 0 Then m = m + n 3
Next n
Print n
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是（）。
A）15
B）18
C）D）24
（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form_Load()Show Text1.Text = “" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print ”程序设计“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print ”Visual Basic“;End Sub 程序运行后，如果按”A“键，然后单击窗体，则在窗体上显示的内容是（A）Visual Basic
B）程序设计
C）A程序设计
D）Visual Basic程序设计
（29）设有如下程序：
Private Sub Command1_Click()Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是（）。
A）1+1/2+ 2/3+3/4+4/5
B）1+1/2+2/3+3/4 C）1/2+2/3+3/4+4/
5D）1+1/2+1/3+1/4+1/5
（30）以下有关数组定义的语句序列中，错误的是（）。
A）Static arr1(3)
arr1(1)= 100
arr1(2)= ”Hello“
arr1(3)= 123.45 B）Dim arr2()As Integer
Dim size As Integer
Private Sub Command2_Click()
size = InputBox(”输入：“)
ReDim arr2(size)．．．．．．
End Sub。）
C）Option Base 1
Private Sub Command3_Click()
Dim arr3(3)As Integer
．．．．．．
End Sub
D）Dim n As Integer
Private Sub Command4_Click()
Dim arr4(n)As Integer
．．．．．．
End Sub
二、填空题（每空2分，共30分）
（1）执行下面的程序段后，i的值为 〖1〗，s的值为 〖2〗。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
（2）把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序运行后，如果直接按键盘上的”A“键（即不按住Shift键），则在窗体上输出的字符分别是 〖3〗 和 〖4〗。
（3）在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 〖5〗
End Sub
Private Sub Form_Click()
Timer1.Enabled = 〖6〗
End Sub
Private Sub Timer1_Timer()
Label1.Caption = 〖7〗
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。
——————————————————————
14：54：41
——————————————————————
（4）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click()
S$ = InputBox(”请输入一个字符串“)
Text1.Text = S$
End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串”VisualBasic“，则在标签中显示的内容是 〖8〗。
（5）在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：”第一个项目“、”第二个项目“、”第三个项目“、”第四个项目“。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择”第三个项目“的情况)。下面是实现上述功能的程序，请填空。
Private Sub Command1_Click()
If List1.ListIndex >= 〖9〗 Then
List1.RemoveItem 〖10〗
Label1.Caption = 〖11〗
Else
MsgBox ”请选择要删除的项目“
End If
End Sub
—————————————————————
第一个项目
第二个项目 COMMAND1
第三个项目 3
—————————————————————
（6）设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
（资料来源：东方教育网 http://www.xiexiebang.com)
〖12〗 = arr1(1)
For i = 1 To 8
If arr1(i)> Max Then 〖13〗
Next i
Print ”最大值是: “;Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
（7）以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ”“
Open ”.smtext1.txt“ 〖14〗 As #1
Do While 〖15〗
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
04年4月全国计算机等级考试二级VB笔试试卷
一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）
下列各题 A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Move 500，500
End Sub
程序运行后，单击命令按钮，执行的操作为（）。
A)命令按钮移动到距窗体左边界、上边界各500的位置
B)窗体移动到距屏幕左边界、上边界各500的位置
C)命令按钮向左、上方向各移动500
D)窗体向左、上方向各移动500
(2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（）。
A)TabStop
B)Enabled
C)Visible
D)TabIndex
(3)以下定义数组或给数组元素赋值的语句中，正确的是（）。
(4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（）。
A)For i=0 To List1.ListCount-1
„„
Next
B)For i=0 To ListCount-1
„„
Next
C)For i=1 To List1.listCount
„„
Next
D)For i=1 To ListCount
„„
Next
(5)以下Case语句中错误的是（）。
A)Case 0 To 10
B)Case Is>10
C)Case Is>10 And Is<50
D)Case 3,5,Is>10
(6)以下关于图片框控件的说法中，错误的是（）。
A)可以通过Print方法在图片框中输出文本
B)清空图片框控件中图形的方法之一是加载一个空图形
C)图片框控件可以作为容器使用
D)用Stretch属性可以自动调整图片框中图形的大小
(7)执行语句s=Len(Mid(”VisualBasic“,1,6))后，s的值是（）。
A)Visual
B)Basic
C)6
D)11
(8)以下叙述中错误的是（）。
A)下拉式菜单和弹出式菜单都用菜单编辑器建立
B)在多窗体程序中，每个窗体都可以建立自己的菜单系统
C)除分隔线外，所有菜单项都能接收Click事件
D)如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见
(9)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, ”000.00“)
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。
A)123.45
B)12345.00
C)12345
D)00123.45
(10)以下叙述中错误的是（）。
A)一个工程可以包括多种类型的文件
B)Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
C)程序运行后，在内存中只能驻留一个窗体
D)对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
(11)以下关于函数过程的叙述中，正确的是（）。
A)函数过程形参的类型与函数返回值的类型没有关系
B)在函数过程中，过程的返回值可以有多个
C)当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D)如果不指明函数过程参数的类型，则该参数没有数据类型
(12)以下关于变量作用域的叙述中，正确的是（）。
A)窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B)全局变量必须在标准模块中声明
C)模块级变量只能用Private关键字声明
D)Static类型变量的作用域是它所在的窗体或模块文件
(13)确定一个控件在窗体上的位置的属性是（）。
A)Width和Height
B)Width或Height
C)Top和Left
D)Top或Left
(14)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
Text1.Text = ”Visual“
Me.Text1 = ”Basic“
Text1 = ”Program“
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是（）。
A)Visual
B)Basic
C)Program
D)出错
(15)以下关系表达式中，其值为False的是（）。
A)”ABC“>”AbC“
B)”the“<>”they“
C)”VISUAL“=UCase(”Visual“)
D)”Integer“>”Int“
(16)语句Print 5/4*65 Mod 2的输出结果是（）。
A)0
B)1
C)2
D)3
(17)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1Label1和Command1，然后编写如下两个事件过程：（）。
Private Sub Command1_Click()
strText = InputBox(”请输入“)
Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub A)空
B)abcdef C)abc D)def
(18)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x =-5
If Sgn(x)Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。A)-5 B)25 C)1 D)-1
(19)一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是（）。A)变量X、Y的作用域相同
B)Y的作用域是Model1 C)在Form1中可以直接使用X D)在Form2中可以直接使用X和Y
(20)在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。A）Drive1_Change B)Drive1_Click C)Dir1_Click D)Dir1_Change
(21)在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
s = 0
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step-1
s = s + a(i)* j
j = j * 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是（）。A)4321 B)1234 C)34 D)12
(22)在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是（）。
A)Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then
MsgBox ”请输入大写字母“
KeyAscii = 0
End If
End Sub
B)Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode < 65 Or KeyCode > 90 Then
MsgBox ”请输入大写字母“
KeyCode = 0
End If
End Sub
C)Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Asc(Text1.Text)< 65 Or Asc(Text1.Text)> 90 Then
MsgBox ”请输入大写字母“
End If
End Sub
D)Private Sub Text1_Change()
If Asc(Text1.Text)> 64 And Asc(Text1.Text)< 91 Then
MsgBox ”请输入大写字母“
End If
End Sub
(23)假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：
Private Type animal
AnimalName As String*20
AColor As String*10
End Type
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
Dim rec As animal
Open ”c:vbTest.dat“ For Random As #1 Len = Len(rec)
rec.animalName = ”Cat“
rec.aColor = ”White“
Put #1, , rec
Close #1
End Sub
则以下叙述中正确的是（）。
A)记录类型animal不能在Form1中定义，必须在标准模块中定义 B)如果文件c:vbTest.dat不存在，则Open命令执行失败
C)由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 D)语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
(24)在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
If n2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f;n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是（）。A)72 36 B)108 36 C)72 6 D)108 6
(25)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
c = 1234
c1 = Trim(Str(c))
For i = 1 To 4
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
123
1234
则在下划线处应填入的内容为（）。A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,i)
(26)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i)Then Print i
Next i
End Sub
该事件过程的功能是（）。A)输出n以内的奇数 B)输出n以内的偶数 C)输出n以内的素数
D)输出n以内能被j整除的数
(27)在以下描述中正确的是（）。
A)标准模块中的任何过程都可以在整个工程范围内被调用
B)在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程 C)如果工程中包含Sub Main过程，则程序将首先执行该过程
D)如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
(28)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是（）。A)11 B)10 C)9 D)8
(29)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10)As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j)= i + j
Next j
Next i
Text1.Text = array1(2, 3)+ array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（）。A)15 B)14 C)13 D)12
(30)在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)= Text1(i).Index
i = i + 1
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为（）。A)0 1 2 3 B)1 2 3 4 C)0 1 3 2 D)出错信息
二、填空题(每空2分，共30分)
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
(1)Visual Basic应用程序中标准模块文件的扩展名是【1】。
(2)在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击
窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form 【2】(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【3】 mnuEdit
End If
End Sub
(3)为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【4】属性设置为【5】。
(4)与数学表达式 对应的Visual Basic表达式是【6】。
(5)将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【7】。
(6)在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为
Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。
Private Sub Option1_Click(Index As Integer)
Select Case 【8】
Case 0
a = ”宋体“
Case 1
a = ”黑体“
Case 2
a = ”楷体＿GB2312“
End Select
text1.【9】 =a
End Sub
(7)在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，如图所示，程
序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。
Private Sub Combo1_Click()
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【10】.Caption =【11】.Text
End Sub
（8）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n = 5
f = 1
s = 0
For i = 1 To n
f = f【12】
s = s + f
Next
Print s
End Sub
该事件过程的功能是计算的值。请填空。
（9）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a(10)As Integer
For i = 1 To 10
a(i)= i
Next
Call swap（【13】）
For i = 1 To 10
Print a(i);
Next
End Sub
Sub swap(b()As Integer)
n = 【14】
For i = 1 To n / 2
t = b(i)
b(i)= b(n)
b(n)= t
【15】
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，„„，a(5)与a(6)的值互换。请填空。
04年9月全国计算机等级考试二级VB笔试试卷
一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）
(1)设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：（）。A)text1.maxlength=0 B)text1.enabled=flase C)text1.visible=flase D)text1.width=0
(2)以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是（）。A)Form1.Name=“VisualBasic窗体” B)Form1.Title=“VisualBasic窗体” C)Form1.Caption=“VisualBasic窗体” D)Form1.Text=“VisualBasic窗体”
(3)在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：
以下能实现上述操作的程序段是（）。A)Private Sub HScroll_Change()Text1.Text=HScroll1.value End Sub B)Private Sub HScroll_Click()Text1.Text=HScroll1.value End Sub C)Private Sub HScroll_Change()Text1.Text=HScroll.Caption D)Private Sub HScroll_Click()Text1.Text=HScroll.Caption End Sub
(4)设菜单中有一个菜单项为”Open“。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行”Open“命令，则在菜单编辑器中设置“Open”命令的方式是（）。A)把Caption属性设置为&Open B)把Caption属性设置为O&pen C)把Name属性设置为&Open D)把Name属性设置为O&pen
(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()x=InputBox(“Input”)Select Case x Case 1,3 Print “分支 1” Case Is >4 Print “分支 2” Case Else Print “Else 分支 ” End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）。A）分支1 B）分支2 C）Else分支
D)程序出错
(6)以下关于MsgBox的叙述中，错误的是（）。A）MsgBox函数返回一个整数
点击咨询 