2007上海市计算机VB考试题目

2007年上海市高等学校计算机等级考试测试卷二级（VisualBasic程序设计）(A卷)一、选择题1.VisualBasic是一种面向对象的程序设计语言，______不是面向对象系统所包含的三要素。A.变量B.事件C.属性D.方法2.要求改变窗体的标题内容，应当通过窗体的______属性来实现。A.CaptionB.NameC.TextD.Label3.为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为______。A.0B.1C.2D.34.要使Print方法在Form_Load事件中起作用，要对窗体的_____属性进行设置。A.ForeColorB.CaptionC.BackColorD.AutoRedraw5.下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是________。A.Drive1.DriveB.Text1.VisibleC.Dir1.PathD.List1.Sorted6.下列控件中无法响应Click事件的是________。A.驱动器列表框B.文本框C.标签D.时钟7.在VisualBasic代码中，将多个语句合并在一行上的并行符是________。A.撇号（'）B.冒号（：）C.感叹号（！）D.问号（?）8.语句Ifx=1Theny=1，下列说法正确的是____________。A.x=1和y=1为赋值语句B.x=1和y=1均为关系表达式C.x=1为关系表达式，y=1为赋值语句D.x=1为赋值语句，y=1为关系表达式9.在默认状态下，若有数组声明：Dimc(3,4To5)AsInteger,下面数组元素引用中正确的是________。A.c(1,2)B.c(0,5)C.c(4)D.c(4,4)10.在过程A中定义了静态变量y。当调用过程A后，在退出过程A时，y的值为5。请问，下次再进入过程A时，y的值为_______。A.不定值B.5C.0D.无定义出错11.根据变量的作用域，可以将变量分为三类，它们是__________A.局部变量、窗体/模块级变量和标准变量B.局部变量、窗体/模块级变量和全局变量C.局部变量、模块变量和标准变量D.局部变量、窗体变量和全局变量12.复选框对象是否被选中，是由其_______属性决定的。A.CaptionB.NameC.ValueD.Enabled13.要使图像框可以自动调整图形的大小，则需设置_________属性。A.StretchB.AppearanceC.AutosizeD.AutoRedraw14.执行命令Circle（600，600），500，，，，3将绘制_______。A.圆B.圆弧C.椭圆D.扇形15.结构化程序由三种基本结构组成，下面属于三种基本结构之一的是______。A.递归结构B.循环结构C.过程结构D.输入输出结构二、填充题1.下面的程序段实现的功能是：当在文本框中输入整数n时，在窗体上输出n+1行图形。PrivateSubCommand1_Click()Clsn=Val(Text1)Fori=(1)Step-1PrintTab(9-i);#;Spc(i-1);#;Spc(i-1);#NextiPrint(2)EndSub2.在程序设计中，将文本框控件Text1用作输入密码，当键盘上按任一键时，都显示*，需要设置________属性。3.表达式20/4-3^2*6\2mod7\2的值是________。4.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima%(10,10)Dimi%,j%Fori=1To3Forj=2To4a(i,j)=i+jNextjNextiText1.Text=a(2,3)+a(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是______。5.ReDim语句用于确定________数组的大小。6.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5:y=7:z=0Text1.Text=x&y&zEndSub程序运行后，如果单击命令按钮，则在文本框中显示的内容是________。7.菜单项只有一个事件，即________事件。8.VisualBasic提供了三种对数据文件的访问方式，它们是顺序访问方式、二进制访问方式和__________访问方式。9.已知窗体Form1的CurrentX=1000，执行了命令PSetStep(200,200)后，CurrentX的值为_____________。三、程序填充1.用循环显示如图所示结果。每项数据前交替出现正负号。OptionExplicitPrivateSubCommand1_Click()DimsAsLong,i%,j%,n%,fh%,str1AsStringn=Val(Text1)Fori=___(1)___s=0fh=IIf(iMod2=0,1,-1)'控制i行第一项数据的正负号Forj=1Toifh=__(2)'控制j列上数据的正负号s=____(3)____'产生j列上的数据str1=Trim(Str(s))Iffh=-1Then'输出j列上的数据______(4)______ElsePicture1.Print+;str1;EndIfNextj_____(5)____NextiEndSub2.本程序的功能是用于判断通过输入对话框输入的正整数是否为降序数。判断结果显示在标签框Lable1中。设正整数n=d1d2......dm，如果di+1≤di（i=1,2,……,m-1），则n是一个降序数（即左边的数字大于等于右边的数字），如：321，8844是降序数，而2435不是降序数。OptionExplicitPrivateSubCommand1_Click()Dimi%,nAsString,flagAsBooleann=____(1)___'通过对话框输入数据flag=FalseFori=Len(n)____(2)____'Len(n)测试字符串长度If___(3)__Mid(n,i-1,1)Then'判断flag=___(4)__'设置判断标记ExitForEndIfNextiIf____(5)___ThenLabel1.Caption=n&不是降序数ElseLabel1.Caption=n&是降序数EndIfEndSub四、设计操作1.编写一个完整的程序，要求如下：1.参见样例在Form1窗体上放置1个文本框，1个标签和1个命令按钮。文本框设置为多行和有滚动条；按钮的Caption为查找，初始状态为不可用；窗体的标题设置为考生真实的准考证号。建立如下菜单：菜单项菜单名备注数据Menu1一级菜单…产生Menu11二级菜单窗体2Menu2一级菜单退出(X)Menu3一级菜单在Form2上放置2个命令按钮，按钮的标题分别是绘图和返回，窗体的标题为考生真实的姓名。2.在Form1中单击产生菜单项后，在文本框内内随机产生10个四位正整数，每个数占一行，此时查找按钮变为有效；单击查找按钮，在标签内显示文本框内内出现的最大随机数。3.选择窗体2菜单项，显示Form2窗体，选择退出菜单项，结束程序运行。在Form2窗体中单击返回按钮，显示Form1窗体。4.在Form2窗体中单击绘图按钮，重新定义窗体的坐标系为(-4,4)-(6,-6)。在窗体上用Line方法绘制阿基米德螺线，其中直线的颜色是随机的，直线的一端为坐标(0,0)，另一端坐标用阿基米德方程计算：x=αCosαy=αSinα；α在0~2π,步长为0.1。5．在C:\VB4目录下将工程保存为v4.vbp、Form1窗体为v41.frm、Form2窗体为v42.frm（文件名中符号1是数字1，不是字母L）2007年上海市高等学校计算机等级考试测试卷二级（VisualBasic程序设计）(B卷)一、选择题1.结构化程序由三种基本结构组成，下面属于三种基本结构之一的是______。A.递归结构B.循环结构C.过程结构D.输入输出结构2.下列控件中可自动设置滚动条是__________。A.复选框B.框架C.文本框D.标签框3.为了使标签覆盖背景，应把BackStyle属性设置为______。A.0B.1C.TrueD.False4.下列关于控体属性的说法正确的是__________。A.单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值。B.所有对象都具有同样的属性C.控件的属性只能在设计时设置，不能在运行时修改D.控件的每一个属性都具有同样的默认值5.从随机文件中读取数据的命令是________。A.InputB.PrintC.GetD.Put6.VB中利用Circle方法可以画________。A.点B.直线C.直角矩形D.圆角矩形7.下列_____________组语句可实现将变量x、y互换。A.x=y:y=xB.y=y+2*x:x=y-2*x:y=(y-x)/2C.x=x+y:x=x-y:y=x-yD.y=y+2x:x=y-2x:y=(y-x)/28.为了给x,y,z三个变量赋初值1，下面的赋值语句正确的是___________。A.x=1：y=1：z=1B.x=1，y=1，z=1C.x=y=z=1D.xyz=19.如果列表框List1中已有10项数据，应使用语句______将数据Mydata插入到列表框的第3项。A.List1.AddItemMydata,3B.List1.InsertMydata,3C.List1.AddItemMydata,2D.List1.InsertMydata,210.下面数组声明语句错误的是__________。A.Dima%(-5to-3)B.Dima%(-1to2,3)C.Dimn%,a%(n)D.Dima(-1to0)asInteger11.从函数过程退出，并返回到主调过程，可使用语句______。A.ExitB.ReturnC.ExitSubD.ExitFunction12.触发滚动条Scroll事件的操作是：__________。A.单击滚动条箭头B.单击滚动条箭头与滚动块之间的空白区C.拖曳滑块D.其他的3个说法均可13.设置复选框或单选按钮标题对齐方式的属性是______。A.AlignB.AlignmentC.SortedD.Value14.当文件指针到达文件尾部时，_______函数的值为真。A.LOF()B.EOF()C.LOC()D.LEN()15.为了让加载的图片能随图像框控件Image1的大小自动缩放，需要设置Image1的_______。A.Stretch属性设置为TrueB.Stretch属性设置为FalseC.AutoSize属性设置为TrueD.AutoSize属性设置为False二、填充题1.若VB的执行程序在C:\VB文件夹内，App.Path可返回_____________。2.下面的程序段实现的功能是：当在文本框中输入整数n时，在窗体上输出n+1行图形。PrivateSubForm_Click()Clsn=Val(Text1)PrintTab(9);#Fori=1To(1)PrintTab(9-i);#;Spc(i-1);#;Spc(i-1);#NextiEndSub3.表达式Mid(abcdefgh,3,4)的值是___________。4.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()Dimi%,j%,s%Fori=1To2Forj=1To2s=s+(i-1)*2+jNextjNextiPrintsEndSub程序运行后，单击命令按钮，窗体上显示的是_______。5