《VisualBasic程序设计》试题及其答案

一、填空题每题1分,共10分1.把数学式子：写成VB的数值表达式为Sqr1+3.14159/2Sin253.14159/180;2．设A=5,B=6,C=7,D=8,表达式3>2BORA=CANDB<>CORC>D的值是True;3．若Case子句中的表达式表列具有形式：<表达式1>To<表达式2>,则它的含义是：当测试表达式的值等于指定范围内的值时,执行该Case子句相应的语句块;4．执行下面的程序段后,x的值为12;x=0Fori=1To8Step3x=x+iNexti5．在图片框上放置的控件称为图片框的子对象,而窗体是图片框的父对象;6．将命令按钮Command1的Caption属性值赋给文本框Text1的Text属性使用的语句为Text1.Text=Command1.Caption7．复选框的Value属性为1时,表示复选框被选中;8.使用滚动条可以获取某一范围内的数值输入;为使垂直滚动条的Value属性值从下往上递增变化,应设置滚动条Min属性值大于Max属性值;9．语句：DimA-3to4asInteger定义的一维数组A的元素个数是8;10．给定如下子过程：FunctionfunByValnumAsLongAsLongDimkAsLong,iAsIntegerk=1Fori=1Tonum k=kiNextiEndFunction执行语句Printfun5后在窗体上显示的结果为0;二、单项选择题每题1.5分,共30分1.装载窗体是窗体的C;A对象B属性C事件D方法2.设a="VisualBasic",下面使b的值为"Basic"的赋值语句正确的是B;Ab=Lefta,8,12Bb=Mida,8,5Cb=Righta,5,5Db=Lefta,8,53．设X为整型变量,不能正确表达1<X<5的逻辑表达式是A;A1<X<5BX=2orX=3orX=4C1<XAndX<5DNotX<=1AndNotX>=54．InputBox函数返回值的类型为B;A数值型B字符串型C逻辑型D货币型5．执行语句：Print4+5\68/8Mod9输出的值是A;A4B5C6D76.下列循环语句能正常结束循环的是C;Ai=5Bi=1DoDoi=i+1i=i+2LoopUntili<0LoopUntili=10Ci=10Di=6DoDoi=i+1i=i-2LoopUntili>0LoopUntili=17．以下叙述中正确的是A;A窗体的Name属性指定窗体的名称,用来标识一个窗体B窗体的Name属性的值是显示在窗体标题栏中的文本C可以在运行期间改变窗体的Name属性的值D窗体的Name属性值可以为空8．VB为命令按钮提供的Cancel属性A;A用来指定命令按钮是否为窗体的“取消”按钮B用来指定命令按钮的功能是停止一个程序的运行C用来指定命令按钮的功能是关闭一个运行程序D用来指定命令按钮的功能是中断一个程序的运行9．若使命令按钮失效,要对A属性设置为False;AEnabled BVisible CBackColor DCaption10．在窗体中添加两个文本框其Name属性分别为Text1和Text2和一个命令按钮Name属性为Command1,然后编写如下两个事件过程：PrivateSubCommand1_Clicka=UCaseText1.Text+LeftText2.Text,3PrintaEndSubPrivateSubForm_LoadText1.Text="abcDEF"Text2.Text="123456"EndSub程序启动后,单击命令按钮,输出结果为CAabcDEF123456BabcDEF123CABCDEF123Dab12345611．在运行程序时,要使文本框获得焦点,则需使用B方法;AChange BSetFocus CGotFocus DMove12．下列语句中不能把图片框Picture1中的图形清除的是A;APicture1.DelBPicture1.Picture=LoadPicture""CPicture1.Picture=LoadPictureDPicture1.Picture=Nothing13．要删除列表框中的某一个项目,需要使用D方法;AClear BReMove CMove DReMoveItem14．在组合框中选择某一项目内容,在程序中可以通过D属性获得;AList BListIndex CListCount DText15．若有数组说明语句：DimaASInteger,则a被定义为B;A定长数组B可调数组C静态数组D可变类型数组16．有如下语句：TypeStudentNameAsStringAgeAsIntegerSexAsStringEndTypeDimStuAsStudentWithStu.Name="李强".Age=21.Sex="男"EndWith执行语句PrintStu.Age后在窗体上显示的结果是B;A李强B21C“男17.要使子过程f1调用后能用形式参数返回两个结果,下面子过程定义正确的是C;ASubf1ByValn%,ByValm%BSubf1n%,ByValm%<子过程体><子过程体>EndSubEndSubCSubf1n%,m%DSubf1ByValn%,m%<子过程体><子过程体>EndSubEndSub18.以下叙述中错误的是D;A一个工程中可以包含多个窗体文件B在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调用C在设计VB程序时,窗体模块和标准模块需要分别保存为不同类型的文件D全局变量必须在标准模块中定义19．从磁盘上打开顺序文件"c:\t1.txt"为读入数据做好准备,如下语句A是正确的;AF="c:\t1.txt"BF="c:\t1.txt"OpenFForInputAs1Open"F"ForInputAs2COpen"c:\t1.txt"ForOutputAs1DOpenc:\t1.txtForInputAs220.以下叙述中正确的是B;A一个记录中所包含的各个元素的数据类型必须相同B随机文件中每个记录的长度是固定的COpen命令的作用是打开一个已经存在的文件D使用Input语句可以从随机文件中读取数据三、程序阅读题第1题3分,第2题5分,其余题各4分,共24分1．当x的输入值分别为4、8和12时,写出执行下列事件过程的输出结果;PrivateSubCommand1_ClickDimx%,y%x=InputBox"请输入x的值："SelectCasexCase1,3,5,7y=x+10Case8To10y=x+2Case2,4,6y=5xCaseIs>10y=xx+1EndSelectPrint"x=";x,"y=";yEndSubx=4y=20x=8y=10x=12y=1452.写出执行下列事件过程的输出结果;PrivateSubCommand1_ClickConstn=3DimiAsInteger,kAsIntegerFori=1TonPrintTabn-i2+1;Fork=1ToiPrintStrk;NextkFork=i-1To1Step-1PrintStrk;NextkPrintNextiEndSub1121123213.设在一个窗体如图所示中已设置了一个组合框Combo1和文本框Text1,且有下列程序,试写出事件过程Combo1_Click的功能;DimstrAsStringPrivateSubForm_Loadstr=""Combo1.AddItem"北京"Combo1.AddItem"天津"Combo1.AddItem"西安"Combo1.AddItem"上海"Combo1.AddItem"武汉"Combo1.AddItem"广州"Combo1.AddItem"海口"Combo1.Text="北京"EndSubPrivateSubCombo1_Clickstr=str&Combo1.Text&","Text1.Text=strEndSub在文本框中显示单击组合框列表项目时该项目的内容,而且以后来添加的方式在文本框中显示所有选择项目的内容;4.写出执行下列事件过程的输出结果;PrivateSubForm_ClickDima1To2,1To2AsIntegerDimiAsInteger,jAsIntegerFori=1To2Forj=1To2ai,j=2i-14+jNextjNextiFori=1To2Printai,3-i,a3-i,iNextiEndSub6131365．写出执行下列事件过程的输出结果;PrivateSubCommand1_ClickDimaAsInteger,bAsIntegera=3:b=2Callf8,aPrint"a=";a,"b=";bCallfa,bPrint"a=";a,"b=";bEndSubPrivateSubfByValxAsInteger,yAsIntegerx=x+1y=y-1EndSuba=2b=2a=2b=16．若有如下窗体模块：DimaAsIntegerPrivateSubtestDimbAsIntegera=a+1:b=b+1Print"Sub:";a,bEndSubPrivateSubCommand1_Clicka=2:b=3CalltestCalltestEndSub写出当程序启动并单击命令按钮后,在窗体中显示的结果;Sub：31 Sub：41四、程序填空题每空2分,共22分1.下面事件过程的功能是：输入某个学生某门课程的百分制成绩,并根据成绩输出评语,若0≤成绩＜60时,评语为“差”；若60≤成绩＜70时,评语为“通过”；若70≤成绩＜80时,评语为“中等”；若80≤成绩＜90时,评语为“良好”；若90≤成绩≤100时,评语为“优秀”,在横线上填上适当内容;PrivateSubCommand1_ClickDimss=InputBox"请输入学生的成绩："If0<=sAnds<=100ThenSelectCase1sCaseIs>=90Print"优秀"CaseIs>=80Print"良好"CaseIs>=70Print"中等"CaseIs>=60Print"通过"2CaseElse或Is>=0Print"差"EndSelectEndIfEndSub2.下面程序的功能是：计算f=1-1/2×3+1/3×4-1/4×5+…+1/19×20的值,在横线上填上适当内容;PrivateSubForm_ClickDimfAsSingle,iAsInteger,signAsInteger3sign=-1f=14fori=2to19f=f+sign/ii+15sign=sign-1NextiPrint"f=";fEndSub3.下面窗体模块的功能是：从键盘上输入x,y和z的值,按如下公式求fx,y,z的值的程序,在横线上填上适当内容;fx,y,z=sinx/sinx-ysinx-z+siny/siny-zsiny-x+sinz/sinz-xsinz-y其中x、y和z互不相等;FunctionfByValaAsSingle,ByValbAsSingle,ByValcAsSingle6AsSingle7f=Sina/SinbSincEndFunctionPrivateSubCommand1_ClickDimx,y,z,sx=InputBox"x="y=InputBox"y="z=InputBox"z="Ifx<>yAndy<>zAndz<>xThens=fx,x-y,x-z+fy,y-z,y-x+8fz,z-x,z-yPrint"s=";sElsePrint"数据输入错误"EndIfEndSub4.下面事件过程的功能是从学生分数顺序文件D:\file1.dat中读取各个学生的分数,并求该班的平均成绩,在横线上填上适当内容;PrivateSubcommand1_ClickDimn%,score,sOpen"D:\file1.dat"9As3ForInputn=0:s=0While10