上海计算机二级vb试卷

《上海计算机二级vb试卷》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2010年上海市高等学校计算机等级考试试卷二级VisualBasic程序设计（考试时间120分钟----A卷）一、单选题(共15分，每题1分)1.是合法的变量名。【A】A.X_yzB.123abcC.IntegerD.X-Y2.Rnd函数不可能的返回值是。【A】A.1B.0C.0.0001D.0.99993.要将一个值传递给子过程A的m参数，并通过n参数返回一个结果，子过程定义中正确的是。【B】A.SubA(ByValm!,ByValn!)B.SubA(ByValm!,ByRefn!)C.SubA(ByValm!,ByRef(n+1)!)D.SubA(By

2、Valm+1,ByValn+2)4.能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是____________。【C】A.Form1.Name="VisualBasic窗体"B.Form1.Title="VisualBasic窗体"C.Form1.Caption="VisualBasic窗体"D.Form1.Text="VisualBasic窗体"5.在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示jpg图像类型的文件，则Filter属性的正确设置是。【D】A.Picture(.jpg)

3、

4、*.jpgB.Picture(

5、.jpg)(*.jpg)C.图片文件

6、(.jpg)D.图片(.jpg)

7、*.jpg6.关于多重窗体程序的叙述中，错误的是____________。【C】A.用Hide方法隐藏窗体，用Show方法显示窗体B.可以根据需要指定启动窗体C.若各窗体都建立了一个文本框控件（TextBox），它们的Name不能相同D.若各窗体都有菜单，则各菜单是彼此独立的7.按照结构化程序设计的要求，语句是非结构化程序设计语句。【C】A.If语句B.For语句C.GoTo语句D.SelectCase语句8.同一个窗体中，各个对象的____________属性值是不同的，它用于唯一识

8、别对象。A.LocationB.Name【B】C.SizeTextD.SelectCase语句9.有一个名为Menu1菜单项,为了在运行时使该菜单项失效（变灰），应使用的语句为____________。A.Menu1.Enabled=FalseB.Menu1.Enabled=TrueC.Menu1.Visible=TrueD.Menu1.Visible=False【A】10.要暂时关闭定时器，应把定时器的_________属性设置为False。A.VisibleB.TimerC.EnabledD.Interval【C】11.在VB中，属于方法的是。【A】A

9、.SetFocusB.LostFocusC.KeyPressD.SelectedText12.使用DimA(100)AsSingle语句声明了数组A，A数组的下标取值范围是_________。【B】A.0～99B.0～100C.1～99D.1～10013.列表框List1中已有5个列表项，要删除列表框List1最后一项，__________语句是正确的。【A】A.List1.RemoveItemList1.ListCount-1B.List1.RemoveItem5C.List1.RemoveList1.ListCount-1D.List1.Remove5

10、14.要向D盘根目录下的名为data.txt的顺序文件中添加内容，应先使用_________语句打开文件。【B】A.Open"data.txt"ForAppendAs#1B.Open"D:data.txt"ForAppendAs#1C.Open"data.txt"ForOutputAs#1D.Open"D:data.txt"ForOutputAs#115.要使文本框输入的字符均显示为*，则设置___________。【D】A.Visible属性为*B.Name属性为*C.Text属性为*D.PassWordChar属性为*二、程序调试题(共20分，每错

11、2.5分，第1题有2处错，第2题3处错，第3题3处错)启动工程文件C:kscxts1.vbp，程序存在8处错误，请调试改正，并按原文件名和位置保存。正确结果见样例cxts1.exe。改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记'***********。调试改错题1,程序中有2个错误。以下程序的功能是在文本框中输入百分制成绩，单击按钮后，在标签上显示成绩等第，分优秀、合格和不合格，规定：成绩≥80为"优秀"；60≤成绩<80为"合格"；成绩<60为"不合格"。PrivateSubCommand

12、1_Click()Dimd%,s$d=Val(Text1.Text