《Visual Basic程序设计》考试试卷和答案.pdf

Visual Basic程序设计考试试卷一适用班级：计算机系网络04401班 答题时间：100分钟班级 学号 姓名一、选择题(1分/题，共6分)(1)以下不能在”工程资源管理器”窗口中列出的文件类型是A).basB).res C).frmD).ocx(2)下列可作为Visual Basic变量名的是A)A#AB)4AC)?xyD)constA(3)在窗体上画一个名称为Listl的列表框，一个名称为Label 1的标签。列表框中 显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A)Private Sub Listl_Click()Label 1.Caption=Listl.ListindexEnd SubC)Private Sub Listl_Click()Label 1.Name=Listl.TextEnd SubB)Private Sub Listl_Click()Label 1.Name=Listl.Listindex End SubD)Private Sub Listl_Click()Label 1.Caption=Listl.TextEnd Sub(4)在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各 个控件数组元素的参数是A)Tag B)Index C)Listindex D)Name(5)在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程：Option Base 0Private Sub Command 1 _Click()Dim city As Variantcity=Array(北京“，”上海，”天津，“重庆”)Print city(l)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A)空白 B)错误提示 C)北京 D)上海(6)设有语句Open c:Test.Dat F or Output As#1 则以下错误的叙述是A)该语句打开C盘根目录下一个已存在的文件Test.Dat B)该语句在C盘根目录下建立一个名为TestQat的文件 C)该语句建立的文件的文件号为1第1页共15页D)执行该语句后，就可以通过Print#语句从文件Test.Dat中读出信息二、填空题(每空2分，共28分)请将每空的正确答案写在答题卡1】【14】序号的横线上，答在试卷上不得分。(1)Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是1。(2)Visual Basic提供的对数据文件的三种访问方式为随机访问方式、【2】和二 进制访问方式。(3)执行下面的程序段后，变量S的值为【3】oS=5F or i=2.6 To 4.9 Step 0.6S=S+1Next i(4)为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Picture 1,所使 用的语句为【4】o(5)计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程 中的程序代码。(6)以下程序的功能是：生成20个大写的英文字母(A的Ascii码为65)。请填 空。Private Sub Command 1 _C1 ick()6F or i=1 To 20a=Int(Rnd*【7】26+8)Print 9Next iEnd Sub(7)设有如下程序Private Sub F orm_Click()Dim a As Integer,b As Integer a=20:b=50 pl a,bPrint a=;a,b=;bEnd SubSub pl(x As Integer,byval y As Integer)x=x*10 y=y+20End Sub该程序运行后，单击窗体，则在窗体上显示的内容是：a=10和6=11。第2页共15页(9)在窗体上画一个名称为Combo 1的组合框，画两个名称分别为Label 1和 Label2及Caption属性分别为城市名称和空白的标签。程序运行后，当在组合框 中输入一个新项后按回车键(ASCII码为13)时-，如果输入的项在组合框的列表中 不存在，则自动添加到组合框的列表中，并在Label2中给出提示”已成功添加输入 项如图所示；如果存在，则在Label2中给出提示输入项已在组合框中。请在【12、13和【14】处将程序补充完整。Private Sub Combo 1_ 112(KeyAscii As Integer)If KeyAscii=13 ThenF or i=0 To Combo 1.ListCount-1If Combo 1.Text=【13】ThenLabel2.Caption=输入项已在组合框中 Exit SubEnd IfNext iLabel2.Caption=已成功添加输入项Combo 1.14 Combo 1.Text End IfEnd Sub三、读程填程题(共24分)1.求100以内的素数之和，(每空2分，共10分)Private Sub Command 1 _C1 ick()Dim flag As Booleans=0F or i=2 To 100flag=F alseF or j=2 To i-1If ThenEnd IfNext jIf flag=Then 第3页共15页Next iMsgBox()End Sub2.在控件数组Picture(O)、Picture(l)中移动图片，要求图片可以在这两个图片框中 移动，按向右移动，按向左移动，和的keycode分别为 39和37,请补全程序。(其他每空2分，共14分)Dim you(l)As BooleanPrivate Sub F orm_Load()Picture l(O).Picture=LoadPicture(e:a.bmp)you(O)=_you(l)=_End SubPrivate Sub Picture l_KeyDown(Index As Integer,KeyCode As Integer,Shift As Integer)If Index=0 ThenIf KeyCode=39 And ThenPicturel(l).Picture=Picture l(O).Picture=you(O)=:you(1)=End IfEnd IfIfIndex=1 Then此处省略多行语句，不要求考生完成End IfEnd Sub四、编程题(42分)第4页共15页1.从键盘输入二维数组a（4,5）（共30个元素），编写程序求这30个数 的最大数，以及这个数的数组下标。（10分）2.在窗体上随机打印100个小写的英文字母（a的ascii码为97）。（10分）3.编写程序，在文本框中任意输入一个字符，在窗体上输出该字符的Ascii码。（10 分）4.用递归的方法打印如下图形。（12分）11 2 11 2 3 2 11234543211 234.9.43 2 1考试课目：Visual Basic程序设计答题纸班级 学号 姓名选择题（6x1=6分）题号-、二三四总分分数题号123456答案Cddbdd二、填空题（14x2=28分）第5页共15页1.组合框 2 顺序方式 3.94.Picture 1.picture=loadpicture(a.jpg)5.timer 6.s=0_7.md 8.65 9.char(a)10.200 11.50 bol.list(i)14.additem三、读程填程题(2x12共24分)1.I mod j=0 flag=fhlse s=s+i true s2.true fhlse you(l)=fhlse picture(O).picture loadpicture()fhlse true四、编程题(10+10+10+12=42分 做在答题纸上，另发)1.Private Sub Command l_Click()Dim a(4,5)As IntegerDim x As Integer,y As Integer,zuida As IntegerF or i=0 To 4F or j=0 To 5a(i,j)=Vhl(InputBox(输入数据)Next j,izuida=a(0,0)x=0:y=0F or i=0 To 4F or j=0 To 5If a(i,j)zuida Then zuida=a(i,j):x=i:y=jNext j,iPrint zuida,x,y第6页共15页End Sub2.Private Sub Commandl_Click()RandomizeF or i=1 To 100c=Int(Rnd*26)+65Print Chr(c)Next iEnd Sub3.Private Sub Text 1 _KeyPress(KeyAscii As Integer)Print KeyAsciiEnd Sub4.Sub prin(n)If n=1 ThenPrint nElseprin(n-1)PrintF or i=1 To nPrint i;Next iF or i=n-1 To 1 Step-1Print i;Next i第7页共15页PrintEnd IfEnd SubPrivate Sub Command l_Click()n=Val(InputBox(输入 n)prin(n)End SubVisual Basic程序设计考试试卷二适用班级：计算机系网络04401班 答题时间：100分钟班级 学号 姓名四、选择题(2分/题，共20分)(1)以下不能在工程资源管理器”窗口中列出的文件类型是A).bas B).res C).frm D).ocx(2)以下关于窗体的描述中，错误的是A)执行Unload F orml语句后，窗体F orml消失，但仍在内存中B)窗体的Load事件在加载窗体时发生C)当窗体的Enabled属性为F alse时，通过鼠标和键盘对窗体的操作都被 禁止D)窗体的Height、Width属性用于设置窗体的高和宽(3)下列可作为Visual Basic变量名的是A)A#AB)4AC)?xyD)constA(4)设有如下的记录类型Type Studentnumber As Stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是A)Student.name=张红 B)Dims As Students.name=张红第8页共15页C)Dim s As Type Student D)Dim s As Type s.name=张红 s.name=张红(5)执行如下语句：a=InputBox(Today,Tomorrow,Yesterday)将显示一个输入对话框，在对话框的输入区中显示的信息是A)Today B)Tomorrow C)Yesterday D)Day before yesterday(6)在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签。列表框中 显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的 名称。下列能正确实现上述功能的程序是A)Private Sub Listl Click()B)Private Sub Listl Click()Labell.Caption=Listl.Listindex End SubC)Private Sub List l_Click()Labell.Name=Listl.TextEnd SubLabell.Name=Listl.Listindex End SubD)Private Sub Listl_Click()Labell.Caption=Listl.TextEnd Sub(7)在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各 个控件数组元素的参数是A)Tag B)Index C)Listindex D)Name(8)在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程:Option Base 0Private Sub Command 1 _Click()Dim city As Variantcity=Array(北京上海，天津，重庆)Print city(l)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A)空白 B)错误提示 C)北京 D)上海(9)假定有以下函数过程：F unction F un(S As String)As StringDim si As StringF or i=1 To Len(S)si=UCase(Mid(S,i,1)+siNext iF un=siEnd F unction在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub Command l_Click()第9页共15页Dim Strl As String,Str2 As StringStrl=InputBox(请输入一个字符串”)Str2=F un(Strl)Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg,则单 击”确定”按钮后在窗体上的输出结果为A)abcdefg B)ABCDEF G C)gfedcba D)GF EDCBA(10)设有语句Open c:Test.Dat F or Output As#1则以下错误的叙述是A)该语句打开C盘根目录下一个已存在的文件Test.DatB)该语句在C盘根目录下建立一个名为TestQat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句从文件Test.Dat中读出信息五、填空题(每空2分，共26分)请将每空的正确答案写在答题卡【1】【13】序号的横线上，答在试卷上不得分。(1)Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是1。(2)Visual Basic提供的对数据文件的三种访问方式为随机访问方式、【2】和二 进制访问方式。(3)执行下面的程序段后，变量S的值为【3】oS=5F or i=2.6 To 4.9 Step 0.6S=S+1Next i(4)为了在运行时把d:pic文件夹下的图形文件a.jpg装入图片框Pictured所使 用的语句为【4】o(5)计时器控件能有规律的以一定时间间隔触发【5】事件，并执行该事件过程 中的程序代码。(6)以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5 整除的数并求出它们的和。请填空。Private Sub Command 1 _C1 ick()F or i=1 To 20 x=Int(6*101+200)If 7=0ThenPrint xS=S+8第10页共15页End IfNext iPrint Sum=SEnd Sub(7)设有如下程序Private Sub F orm_Click()Dim a As Integer,b As Integer a=20:b=50 pl a,bPrint a=;a,b=;bEnd SubSub pl(x As Integer,ByVai y As Integer)x=x+10y=y+20End Sub该程序运行后，单击窗体，则在窗体上显示的内容是：a=9和b=10 o(9)在窗体上画一个名称为Combo 1的组合框，画两个名称分别为Label 1和Label2 及Caption属性分别为城市名称和空白的标签。程序运行后，当在组合框中输入 一个新项后按回车键(ASCH码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示已成功添加输入项如图所 示；如果存在，则在Label2中给出提示输入项已在组合框中”。请在【11】、【12】和【13】处将程序补充完整。Private Sub Combo 1_ 11(KeyAscii As Integer)If KeyAscii=13 ThenF or i=0 To Combo 1.ListCount-1If Combo 1.Text=12 ThenLabel2.Caption=输入项已在组合框中Exit SubEnd IfNext iLabel2.Caption=已成功添加输入项Combo 1.13 Combo 1.Text End IfEnd Sub六、读程填程题(共22分)1.求100以内的素数之和，(每空2分，共10分)第11页共15页Private Sub Commandl_Click()Dim flag As Boolean s=0F or i=2 To 100flag=_F or j=2 To i-1If ThenEnd IfNext jIf flag=Then Next iMsgBox(s)End Sub2.在控件数组 Picture(O)、Picture(l)Picture(2)和 Picture)中移动图片，要求图 片可以在任意两个图片框中拖放，请补全程序。(1到4共4分，其他每空2分，共12分)Dim you(3)As BooleanPrivate Sub F orm_Load()Picture 1(0).Picture=LoadPicture(d:a.bmp)you(0)=：you(1)=you(2)=：you(3)=End SubPrivate Sub Picture l_DragDrop(Index As Integer,Source As Control,X AsSingle,Y As Single)If you(Index)=F alse Then第12页共15页Picture 1(Index).Picture=Source.PictureSource.Picture=_you(Index)=Trueyou()=F alseEnd IfEnd SubPrivate Sub Picture l_MouseDown(Index As Integer,Button As Integer,ShiftAs Integer,X As Single,Y As Single)If you(Index)=ThenPicture 1(Index)._End IfEnd Sub四、编程题(32分)1.从键盘输入5个数到数组s(5)中，并求s(5)中最大元素的值和它的下标(10 分)2.以1,2,3,4,5为边长可以形成多少个三角形，不考虑相同情况，请输出这 些三角形的三个边长。(10分)3.用递归的方法求两个正整数a,b的最大公约数，已知a和b的公约数于b和a mod b的公约数相同。请写出相应的F unction。(12分)20052006学年度第一学期考试试卷A第13页共15页考试课目：Visual Basic程序设计答题纸班级 学号 姓名题号.二三四总分分数五、选择题（10 x2=20分）题号12345678910答案badbcdbdbd六、填空题(13x2=26分)2.组合框 2 顺序方式 3.94.Picture 1.picture=kadpicture()5 timer 6.md7.X mod 5 8.9.3010.50 11.keypress 12.additem13.七、读程填程题(5x2=10 4x1=4 4x2=8共22分)1.true I mod i=0 flag=fhlse s=s+i2.ture fhlse fhlse fhlse loadpicture。source,index false drag八、编程题(10+10+12=32分 做在答题纸上，另发)1.Private Sub Command 1 _C lick()Dim a(5)As IntegerF or i=1 To 5a(i)=Val(InputBox(输入数据)Next ima=a(l):xb=1F or i=2 To 5第14页共15页If a(i)ma Then ma=a(i):xb=iNext iPrint ma,xbEnd Sub2.Private Sub Command l_Click()s=0F or a=1 To 5F or b=1 To aF or c=1 To bIf b+c a Then s=s+1:Print a,b,cNext c,b,aPrint sEnd Sub3.F unction gys(m As Integer,n As Integer)As IntegerIf n=0 Thengys=mElsegys=gys(n,m Mod n)End IfEnd F unction第15页共15页