搜索
第1页共13页南华大学大学计算机与程序设计（VB）1一、选择题：（每题1分，共20分）请用2B铅笔填涂在答题卡对应的1~20题．号上。1.VisualBasic6.0环境中工程文件的扩展名是()。（A）.exe（B）.vbp（C）.vbw（D）.frm2.在VisualBasic集成环境中，可以列出工程中所有模块名称的窗口是（）。（A）工程资源管理器窗口（B）窗体设计窗口（C）属性窗口（D）代码窗口3.以下叙述中错误的是（）。（A）在VisualBasic的窗体中，一个命令按钮是一个对象（B）事件是能够被对象识别的状态变化或动作（C）事件都是由用户的键盘操作或鼠标操作触发的（D）不同的对象可以具有相同的方法4.在窗体Form1的单击事件编码如下：PrivateSubForm_Click()Form1.BackColor=vbRedEndSub则Form1、BackColor和vbRed分别代表()。（A）对象，方法，属性（B）对象，属性，值（C）对象，方法，值（D）属性，对象，值5.以下关于窗体的叙述中，错误的是（）。（A）窗体最小化时的图标可以通过Icon属性设置（B）窗体的背景图形通过其Picture属性设置（C）窗体的Enabled属性为False时，不能响应单击窗体的事件（D）窗体的名称（Name属性）可以在运行时修改6.用来设置窗体上的文字字体颜色的属性是()。（A）FontName（B）FontBold（C）FontColor（D）ForeColor7.要使窗体上的命令按钮Command1在任何情况下，按回车键都相当于单击该按钮，可以设置按钮（）属性为True。（A）Cancel（B）Enabled（C）Default（D）Visible8.以下合法的变量名是（）。（A）12A（B）Max（C）Min-1（D）x*y9.VisualBasic表达式Abs(1)+Sgn(-1)+Int(0.9)的值是()。（A）0（B）1（C）2（D）310.若要获得滚动条的当前值，可访问的属性是()。（A）Text（B）Change（C）Value（D）Scroll11.要使一个文本框可以显示多行文本，应设置为True的属性是()。（A）Enabled（B）MultiLine（C）MaxLenfth（D）Width12.为了使标签能够自动调整大小以显示所有的内容，需要设置的属性是（）。第2页共13页（A）Caption（B）Alignment（C）AutoSize（D）Stretch13.以下不能输出″Program″的语句是()。（A）PrintMid(″VBProgram″，3，7)（B）PrintMid(″VBProgram″，3)（C）PrintLeft(″VBProgram″，7)（D）PrintRight(″VBProgram″，7)14.如果一个直线控件在窗体上呈现为一条水平线，则可以确定的是（）。（A）它的X1、X2、Y1、Y2属性的值相等（B）它的Y1、Y2属性的值相等（C）它的X1、Y1属性的值分别与X2、Y2属性的值相等（D）它的X1、X2属性的值分别与Y1、Y2属性的值相等15.以下声明语句错误的是（）。（A）Constvar1AsSingle=123（B）Dimvar2$（C）Constvar3=123（D）Dimvar4AsInteger=12316.设a=″a″，b=″b″，c=″c″，d=″d″，执行语句x=IIf((ab)Or(cd)，″A″，″B″)后，x的值为()。（A）″A″（B）″B″（C）″a″（D）″b″17.下面哪个属性不是框架控件的属性()。（A）Caption（B）Left（C）Text（D）Enabled18.在窗体上画一个图像框，名称为Img1，在D盘根目录下有一幅图片11.jpg，将该图片添加到图像框，下面做法错误的是（）。（A）在属性窗口手工设置Img1的picture属性为D盘的11.JPG（B）编写代码Img1.picture=″D:\11.jpg″（C）编写代码Img1.picture=LoadPicture（″D:\11.jpg″）（D）打开D盘的11.jpg文件，将该图片复制到剪贴板，然后粘贴到Img1中19.设在名称为Myform的窗体上只有1个名称为C1的命令按钮，下面叙述中正确的是()。（A）窗体的Click事件过程的过程名是Myform_Click（B）命令按钮的Click事件过程名是C1_Click（C）命令按钮的Click事件过程的过程名是Command1_Click（D）上述3种过程名称都是错误的20.对于某对象的SetFocus和GotFocus描述正确的是()。（A）SetFocus是方法，GotFocus事件（B）SetFocus是事件，GotFocus是事件（C）SetFocus是方法，GotFocus是方法（D）SetFocus是事件，GotFocus是方法二、程序选择题：（每题2分，共50分）请用2B铅笔填涂在答题卡对应的21~45题．号上。21.设窗体上有名称为Option1的单选按钮，且程序中有语句：IfOption1.Value=TrueThen，下面语句中与该语句不等价的是()。（A）IfOption1.ValueThen（B）IfOption1=TrueThen得分阅卷人第3页共13页（C）IfValue=TrueThen（D）IfOption1Then22.窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：PrivateSubCommand1_Click()x=InputBox(″输入x：″，，0)y=InputBox(″输入y：″，，0)Label1.Caption=x+yEndSub运行程序，单击命令按钮，在输入对话框中分别输入123、456，运行的结果是()。（A）程序运行有错误，数据类型不匹配（B）程序运行有错误，InputBox函数的格式不对（C）在Label1中显示579（D）在Label1中显示12345623.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()MsgBoxstr(123＋321)EndSub程序运行后，单击命令按钮，则在信息框中显示的提示信息为()。（A）字符串“123＋321”（B）字符串“444”（C）数值“444”（D）空白24.下面程序段执行后，a的值为()。a=1Ifa0Thena=a＋1Ifa1Thena=0（A）0（B）1（C）2（D）325.根据X的取值给Y赋值，如果X大于5，则Y被赋值为True，否则被赋值为False。下列不能实现上述功能的语句为（）。（A）Ifx5ThenY=True（B）Ifx5ThenElsey=TrueY=FalseElseEndIfy=FalseEndIf（C）y=IIf(x5,True,False)（D）Ifx5Theny=TrueElsey=False26.下面程序的功能完成a、b两数的交换并在窗体上输出，横线处正确的语句为（）。PrivateSubCommand1_Click()a=300:b=20a=a+bb=a-bPrinta,b第4页共13页EndSub（A）a=a+b（B）a=b-a（C）a=a-b（D）a=b27.在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为Text1)，然后编写下列事件过程：PrivateSubCommand1_Click()x=Val(Text1.Text)SelectCasexCase1，3y=x*xCaseIs=10，Is=-10y=xCase-10To10y=-xEndSelectEndSub程序运行后，在文本框中输入3，然后单击命令按钮，则下列叙述中正确的是()。（A）执行y=x*x（B）执行y=－x（C）先执行y=x*x，再执行y=－x（D）程序出错28.下列程序的输出结果为()。S1=1:S2=2S1=Val(S1)+Val(S2)S2=Val(12)IfS1S2ThenPrintS1-S2ElsePrintS2-S1（A）-9（B）9（C）-12（D）029.在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是()。（A）PrivateSubCommand1_Click()（B）PrivateSubCommand1_Click()Text1.Left=100Text1.Left=Text1.Left-100EndSubEndSub（C）PrivateSubCommand1_Click()（D）PrivateSubCommand1_Click()Text1.MoveText1.Left＋100Text1.Move.Text1.LeftEndSubEndSub30.现有以下程序：PrivateSubCommand1_Click()c1=0:c2=0Fori=1To100Ifimod5=0Thenc1=c1+1ElseIfiMod7=0Then第5页共13页c2=c2+1EndIfNextPrintc1+c2EndSub此程序运行后输出的是在1~100范围内（）。（A）同时能被5和7整除的整数个数（B）能被5或7整除的整数个数（同时被5和7整除的数只记一次）（C）能被5整除，而不能被7整除的整数个数（D）能被7整除，而不能被5整除的整数个数31.下列程序段的执行结果为（）。a=6Fork=1To0a=a+kNextkPrintk；a（A）-16（B）07（C）16（D）0832.窗体上有一个名称为Command1的命令按钮，并有如下程序：PrivateSubCommand1_Click()Fori=1To4a=4Forj=1To3Fork=1To2a=a+1NextkNextjNextiPrintaEndSub程序运行后，单击命令按钮Command1，输出结果为（）。（A）4（B）10（C）6（D）2833.对于下列语句：IfScore60ThenIfScore80ThenIfScore90ThenPrint″A″；ElsePrint″B″；EndIfElse第6页共13页Print″C″；EndIfElsePrint″D″；EndIf如果Score分别为58，92，80，则输出结果为()。（A）ABC（B）DAC（C）DAB（D）CAD34.有以下程序段，单击Command1按钮后，屏幕上的输出结果是()。PrivateSubCommand1_Click()Fori=6To9PrintTab(2*i);iNextiEndSub（A）6789（B）67（C）6897（D）68798935.执行下面语句：a=InputBox（″Today″，″Tomorrow″，″Yesterday″，，，″Daybeforeyesterday″，5）将显示一个对话框，在该对话框的输入区中显示的信息是（）。（A）Today（B）Tomorrow（C）Yesterday（D）Daybeforeyesterday36.在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：PrivateSubCommand1_Click()Dima$,b$,c$A=″SoftwareAndHardware″B=Right(a，8)C=Mid(a，1，8)MsgBoxa，，b，c，1EndSub则在弹出的信息框标题栏中显示的标题是()。（A）SoftwareAndHardware（B）Hardware（C）Software（D）137.在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：PrivateSubCommand1_Click()A=Text1.textB=Te