《VisualBasic程序设计》考试试卷和答案

《VisualBasic程序设计》考试试卷一适用班级：计算机系网络04401班答时间：100分钟班级学号姓名一、选择题（1分/题，共6分）（1）以下不能在"工程资源管理器"窗口中列出的文件类型是A）.basB）.resC）.frmD）.ocx（2）下列可作为VisualBasic变量名的是A）A#AB）4AC）?xyD）constA(3)在窗体上画一个名称为List1的列框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A）PrivateSubList1_Click()B）PrivateSubList1_Click()Label1.Caption=List1.ListIndexLabel1.Name=List1.ListIndexEndSubEndSubC）PrivateSubList1_Click()D）PrivateSubList1_Click()Label1.Name=List1.TextLabel1.Caption=List1.TextEndSubEndSub(4)在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是A）TagB）IndexC）ListIndexD）Name(5)在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：OptionBase0PrivateSubCommand1_Click()DimcityAsVariantcity=Array("北京","上海","天津","重庆")Printcity(1)EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白B）错误提示C）北京D）上海（6）设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是A）该语句打开C盘根目录下一个已存在的文件Test.DatB）该语句在C盘根目录下建立一个名为Test.Dat的文件C）该语句建立的文件的文件号为1第1页共15页D）执行该语句后，就可以通过Print#语句从文件Test.Dat中读出信息二、填空题（每空2分，共28分）请将每空的正确写在答题卡【1】～【14】序号的横线上，答在试卷上不得分。（1）VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是【1】。（2）VisualBasic提供的对数据文件的三种访问方式为随机访问方式、【2】和二进制访问方式。（3）执行下面的程序段后，变量S的值为【3】。S=5Fori=2.6To4.9Step0.6S=S+1Nexti（4）为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为【4】。（5）计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程中的程序代码。（6）以下程序的功能是：生成20个大写的英文字母（A的Ascii码为65）。请填空。PrivateSubCommand1_Click()【6】Fori=1To20a=Int(Rnd*【7】26+【8】)Print【9】NextiEndSub（7）设有如下程序PrivateSubForm_Click()DimaAsInteger,bAsIntegera=20:b=50p1a,bPrint"a=";a,"b=";bEndSubSubp1(xAsInteger,byvalyAsInteger)x=x*10y=y+20EndSub该程序运行后，单击窗体，则在窗体上显示的内容是：a=【10】和b=【11】。第2页共15页（9）在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"如图所示；如果存在，则在Label2中给出提示"输入项已在组合框中"。请在【12】、【13】和【14】处将程序补充完整。PrivateSubCombo1_【12】(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=【13】ThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combo1.【14】Combo1.TextEndIfEndSub三、读程填程题（共24分）1．求100以内的素数之和，（每空2分，共10分）PrivateSubCommand1_Click()DimflagAsBooleans=0Fori=2To100flag=FalseForj=2Toi–1If____________Then__________________EndIfNextjIfflag=_________Then______________第3页共15页NextiMsgBox(___________)EndSub2．在控件数组Picture(0)、Picture(1)中移动图片，要求图片可以在这两个图片框中移动，按“->”向右移动，按“<-”向左移动，“->”和“<-”的keycode分别为39和37，请补全程序。（其他每空2分，共14分）Dimyou(1)AsBooleanPrivateSubForm_Load()Picture1(0).Picture=LoadPicture("e:\a.bmp")you(0)=________you(1)=________EndSubPrivateSubPicture1_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)IfIndex=0ThenIfKeyCode=39And__________ThenPicture1(1).Picture=___________Picture1(0).Picture=___________you(0)=_______:you(1)=________EndIfEndIfIfIndex=1Then‘此处省略多行语句，不要求考生完成EndIfEndSub四、编程题（42分）第4页共15页1．从键盘输入二维数组a(4,5)（共30个元素），编写程序求这30个数的最大数，以及这个数的数组下标。(10分)2．在窗体上随机打印100个小写的英文字母（a的ascii码为97）。（10分）3．编写程序，在文本框中任意输入一个字符，在窗体上输出该字符的Ascii码。（10分）4．用递归的方法打印如下图形。（12分）1121123211234543211234…9…4321考试课目：《VisualBasic程序设计》答题纸班级学号姓名题号一二三四总分分数一、选择题（61=6分）╳题号123456答案cddbdd二、填空题（142=28分）╳第5页共15页1．组合框2顺序方式3.94．Picture1.picture=loadpicture(“a.jpg”)5.timer6.s=07．rnd8.659．char(a)10.20011.5012．press13.combo1.list(i)14.additem三、读程填程题（212共24分）╳1．Imodj=0flag=falses=s+itrues2．truefalseyou(1)=falsepicture(0).pictureloadpicture()falsetrue四、编程题（10+10+10+12=42分做在答题纸上，另发）1.PrivateSubCommand1_Click()Dima(4,5)AsIntegerDimxAsInteger,yAsInteger,zuidaAsIntegerFori=0To4Forj=0To5a(i,j)=Val(InputBox("输入数据"))Nextj,izuida=a(0,0)x=0:y=0Fori=0To4Forj=0To5Ifa(i,j)>zuidaThenzuida=a(i,j):x=i:y=jNextj,iPrintzuida,x,y第6页共15页EndSub2.PrivateSubCommand1_Click()RandomizeFori=1To100c=Int(Rnd*26)+65PrintChr(c)NextiEndSub3.PrivateSubText1_KeyPress(KeyAsciiAsInteger)PrintKeyAsciiEndSub4.Subprin(n)Ifn=1ThenPrintnElseprin(n-1)PrintFori=1TonPrinti;NextiFori=n-1To1Step-1Printi;Nexti第7页共15页PrintEndIfEndSubPrivateSubCommand1_Click()n=Val(InputBox("输入n"))prin(n)EndSub《VisualBasic程序设计》考试试卷二适用班级：计算机系网络04401班答题时间：100分钟班级学号姓名四、选择题（2分/题，共20分）（1）以下不能在"工程资源管理器"窗口中列出的文件类型是A）.basB）.resC）.frmD）.ocx（2）以下关于窗体的描述中，错误的是A）执行UnloadForm1语句后，窗体Form1消失，但仍在内存中B）窗体的Load事件在加载窗体时发生C）当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D）窗体的Height、Width属性用于设置窗体的高和宽（3）下列可作为VisualBasic变量名的是A）A#AB）4AC）?xyD）constA（4）设有如下的类型TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是A）Student.name="张红"B）DimsAsStudents.name="张红"第8页共15页C）DimsAsTypeStudentD）DimsAsTypes.name="张红"s.name="张红"(5)执行如下语句：a=InputBox("Today","Tomorrow","Yesterday")将显示一个输入对话框，在对话框的输入区中显示的信息是A）TodayB）TomorrowC）YesterdayD）Daybeforeyesterday(6)在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A）PrivateSubList1_Click()B）PrivateSubList1_Click()Label1.Caption=List1.ListIndexLabel1.Name=List1.ListIndexEndSubEndSubC）PrivateSubList1_Click()D）PrivateSubList1_Click()Label1.Name=List1.TextLabel1.Caption=List1.TextEndSubEndSub(7)在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是A）TagB）IndexC）ListIndexD）Name(8)在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：OptionBase0PrivateSubCommand1_Click()DimcityAsVariantcity=Array("北京","上海","天津","重庆")Printcity(1)EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白B）错误提示C）北京D）上海(9)假定有以下函数过程：FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()第9页共15页DimStr1AsString,Str2AsStringStr1=InputBox("请输入一个字符串")Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为A）abcdefgB）ABCDEFGC）gfedcbaD）GFEDCBA（10）设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是A）该语句打开C盘根目录下一个已存在的文件Test.DatB）该语句在C盘根目录下建立一个名为Test.Dat的文件C）该语句建立的文件的文件号为1D）执行该语句后，就可以通过Print#语句从文件Test.Dat中读出信息五、填空题（每空2分，共26分）请将每空的正确答案写在答题卡【1】～【13】序号的横线上，答在试卷上不得分。（1）VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是【1】。（2）VisualBasic提供的对数据文件的三种访问方式为随机访问方式、【2】和二进制访问方式。（3）执行下面的程序段后，变量S的值为【3】。S=5Fori=2.6To4.9Step0.6S=S+1Nexti（4）为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为【4】。（5）计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程中的程序代码。（6）以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。PrivateSubCommand1_Click()Fori=1To20x=Int(【6】*101+200)If【7】=0ThenPrintxS=S+【8】第10页共15页EndIfNextiPrint"Sum=";SEndSub（7）设有如下程序PrivateSubForm_Click()DimaAsInteger,bAsIntegera=20:b=50p1a,bPrint"a=";a,"b=";bEndSubSubp1(xAsInteger,ByValyAsInteger)x=x+10y=y+20EndSub该程序运行后，单击窗体，则在窗体上显示的内容是：a=【9】和b=【10】。（9）在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"如图所示；如果存在，则在Label2中给出提示"输入项已在组合框中"。请在【11】、【12】和【13】处将程序补充完整。PrivateSubCombo1_【11】(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=【12】ThenLabel2.Caption="输入项已在组合框中"ExitSubEndIfNextiLabel2.Caption="已成功添加输入项"Combo1.【13】Combo1.TextEndIfEndSub六、读程填程题（共22分）1．求100以内的素数之和，（每空2分，共10分）第11页共15页PrivateSubCommand1_Click()DimflagAsBooleans=0Fori=2To100flag=_________________Forj=2Toi–1If____________Then__________________EndIfNextjIfflag=_________Then______________NextiMsgBox(s)EndSub2．在控件数组Picture(0)、Picture(1)、Picture(2)和Picture(3)中移动图片，要求图片可以在任意两个图片框中拖放，请补全程序。（1到4共4分，其他每空2分，共12分）Dimyou(3)AsBooleanPrivateSubForm_Load()Picture1(0).Picture=LoadPicture("d:\a.bmp")you(0)=_________：you(1)=________you(2)=_________：you(3)=________EndSubPrivateSubPicture1_DragDrop(IndexAsInteger,SourceAsControl,XAsSingle,YAsSingle)Ifyou(Index)=FalseThen第12页共15页Picture1(Index).Picture=Source.PictureSource.Picture=________________________you(Index)=Trueyou(________________________)=FalseEndIfEndSubPrivateSubPicture1_MouseDown(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Ifyou(Index)=________________ThenPicture1(Index).________________EndIfEndSub四、编程题（32分）1．从键盘输入5个数到数组s（5）中，并求s(5)中最大元素的值和它的下标（10分）2．以1，2，3，4，5为边长可以形成多少个三角形，不考虑相同情况，请输出这些三角形的三个边长。（10分）3．用递归的方法求两个正整数a,b的最大公约数，已知a和b的公约数于b和amodb的公约数相同。请写出相应的Function。（12分）2005~2006学年度第一学期考试试卷[A]第13页共15页考试课目：《VisualBasic程序设计》答题纸班级学号姓名题号一二三四总分分数五、选择题（102=20分）╳题号12345678910答案badbcdbdbd六、填空题（132=26分）╳2．组合框2顺序方式3.94．Picture1.picture=loadpicture()5timer6.rnd7．Xmod58.x9．3010.5011.keypress12．additem13.七、读程填程题（52=1041=442=8共22分）╳╳╳1．trueImodj=0flag=falses=s+i2．turefalsefalsefalseloadpicture()source.indexfalsedrag八、编程题（10+10+12=32分做在答题纸上，另发）1.PrivateSubCommand1_Click()Dima(5)AsIntegerFori=1To5a(i)=Val(InputBox("输入数据"))Nextima=a(1):xb=1Fori=2To5第14页共15页Ifa(i)>maThenma=a(i):xb=iNextiPrintma,xbEndSub2.PrivateSubCommand1_Click()s=0Fora=1To5Forb=1ToaForc=1TobIfb+c>aThens=s+1:Printa,b,cNextc,b,aPrintsEndSub3.Functiongys(mAsInteger,nAsInteger)AsIntegerIfn=0Thengys=mElsegys=gys(n,mModn)EndIfEndFunction第15页共15页