大学08-09VB期末试卷及答案.doc

东莞理工学院（本科）试卷（A卷）20082009 学年第二学期高级语言程序设计试卷开课单位：计算机学院， 考试形式：闭卷，允许带 入场注意：所有答案均写在答题卡上，做在试卷上无效！一、单项选择题（每小题2分，共60分）1.VB6.0是一种面向_的编程环境。（A）对象 （B）过程 （C）机器 （D）应用2在程序代码text1.text=Visual Basic中，text1、text和Visual Basic分别代表_。（A）对象、值、属性 （B）对象、方法、属性（C）对象、属性、值 （D）属性、对象、值3要判断在文本框中是否按下Enter键，应在文本框的_事件中判断。（A）Click （B）LostFocus （C）KeyPress （D）GotFocus4.下面_是合法的双精度变量。（A）num! （B）sum% （C）ABC （D）mm#5.在一个语句行内写多条语句或将一个语句分成多行书写，需要使用语句分隔符和续行符，它们分别使用 符号。（A） ：和， （B） ：和_ （C） _和： （D） _和，6.已知A$=“12345678”，则表达式Val(Left$(A$,4)+Mid$(A$,4,2)的值是_ _。（A）123456 （B）123445 （C）1279 （D）1235467.表达式16/4-25*8/4 MOD 5 2的值为_ _。（A）14 （B）4 （C）20 （D）28语句If x=1 Then y=1,下列说法正确的是_。（A）x=1和y=1均为赋值语句（B）x=1和y=1均为关系表达式（C）x=1为关系表达式，y=1为赋值语句（D）x=1为赋值语句，y=1为关系表达式9执行如下程序，输出的结果是_。 Dim x%, y%, s%x = -5 : s = int(rnd)+5Select Case s Case Is 5 y = x + 1 Case Is =5 y = x + 2 Case Else y = x + 3 End Select Print x, y（A）-5 -3 （B）-5 -4 （C）-5 -2 （D）-5 -510下列程序段运行结果为_。Private Sub Form_Click() For i=1 to 5 step 2 Print Tab(10-i); Print String(i,right(Str(i),1) Next iEnd Sub（A） 1 （B）1 （C） 1 （D）55555333 333 333 33355555 55555 55555 111在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub Command1_Click()Doa=val(InputBox(A的值)b=val(InputBox(B的值)x=val(InputBox(x的值)a=a+b+xLoop while x=0Print a,b,x End Sub运行程序，单击命令按钮，依次输入20、10、5、20、10、-10，则输出结果为_。（A）20 10 -10 （B）35 10 -10 （C）30 10 -10 （D）55 10 -1012下面程序计算的数学式是_。T=1 : S=0For I=1 to 19 step 2 T=T*IS=S+T Next I Print S（A）1+3+5+.+19 （B）1!+3!+5!+.+19!（C）1*3*5*.*19 （D）1+1*3+1*3*5+.+1*3*5*.1913如下数组声明语句中，数组a包含元素的个数为_。Option Base 1Dim a(3,4,5) As Integer（A）120（B）75（C）60（D）1314执行下列程序的结果是_。Private Sub Command1_Click()Dim aA=array(1,2,3,4,5,6,7)For i=Lbound(a) To Ubound(a) a(i)=a(i)*a(i)Next iPrint a(i)End Sub（A）49 （B）10 （C）100 （D）数组下标越界15下面程序段运行后输出的结果为_。Dim x(),k%,m%x=Array(1, 2, 3, 4, 5) : m=x(1)For k = 1 To 4If x(k) m Then m = x(k)Next kx(2)= mFor k = 0 To 4Print x(k);Next k （A）1 2 3 4 5 （B）5 4 3 2 1 （C）1 2 5 4 5 （D）1 2 1 4 516在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用_关键字在过程中定义局部变量。（A）Dim（B）Private（C）Public（D）Static17要想从子过程调用后返回两个参数的值，下面子过程语句满足要求的是_。 （A）Sub f(a%,Byval b%) （B）Sub f(ByVal a%,Byval b%)（C）Sub f(a%,b%) （D）Sub f(Byval a%,b%) 18.下列过程运行后显示的结果是_。Public Sub F1(n%,ByVal m%) Private Sub Command1_Click() n=n Mod 10 Dim x%,y% m=m 10 x=12 : y=34End Sub Call F1(x,y) Print x,y End Sub（A）2 34（B）12 34（C）2 3（D）12 319复选框Value属性为1时，表示 。（A）复选框未被选中（B）复选框被选中（C）复选框内有灰色的勾（D）复选框操作有错误20引用列表框（List1）最后一个数据项应使用_。（A）List1. List(List1. ListCount)（B）List1. List(List1. ListCount-1)（C）List1. List(ListCount)（D）List1. List( ListCount-1)21假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 。Dim x As IntegerSub Timer1_Timer() For i=1 to 10 x=x+1 Next iEnd Sub（A）1000（B）10000（C）10（D）以上都不对22在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub Form_Load () Private Sub List1_ DblClick ( )List1.AddItem357 a =List1.TextList1.AddItem246 Print a+Text1.TextList1.AddItem123 End SubList1.AddItem456 Text1.Text= End Sub 运行程序，在文本框中输入789，然后双击列表框中的456，则输出结果为_。（A）456789 （B）789456 （C）1245 （D）023菜单系统中的每一个菜单项相当于一个控件，能触发的事件有_。（A）MouseDown和Click （B）Click和DblClick （C）MouseDown （D）Click24下列关于通用对话框的操作语句中，正确的是_。（A）CommonDialog1.Filter=All Files|*.*|Picture(*.Bmp)|*.Bmp（B）CommonDialog1.Filter=“All Files”|“”*.*”|“Picture(*.Bmp)”|“*.Bmp”（C）CommonDialog1.Filter=“All Files|*.*|Picture(*.Bmp)|*.Bmp”（D）CommonDialog1.Filter=All Files|*.*|Picture(*.Bmp)|*.Bmp25工程中含有两个窗体Form1、Form2，如果Forml是启动窗体，并且Forml的Load事件过程中有语句Form2.Show，则程序启动后_。（A）发生一个运行时的错误。 （B）发生一个编译错误。（C）在所有的初始化代码运行后Form1是活动窗体。（D）在所有的初始化代码运行后Form2是活动窗体。26在程序代码中将图片文件pic.jpg装入图片框Picture1的语句是_。（A）Picture1.picture=pic.jpg （B）Picture1.picture=LoadPicture(pic.jpg)（C）Picture1.image=pic.jpg （D）LoadPicture(pic.jpg)27要使时钟控件每隔一定时间触发Timer事件，必须对时钟控件做 的设置。（A）Interval为非零，Enablerd为True （B）Interval为非零，Enablerd为False（C）Interval为零，Enablerd为True （D）Interval为零，Enablerd为False28下列语句中（假定变量n有值），能正确声明可调数组的是_。（A）Dim a() As Integer（B）Dim a() As Integer ReDim a(n) ReDim a(n) As String（C）Dim a() As String（D）Dim a(10) As Integer ReDim a(n) As Integer ReDim a(n+10)29要从磁盘上读入一个文件名为“c:t1.txt”的顺序文件，下列_是正确。（A）F=“c:t1.txt” （B）F=“c:t1.txt” Open F For Output As #1 Open “F” For Output As #1（C）F=“c:t1.txt” （D）F=“c:t1.txt” Open F For Input As #1 Open “F” For Input As #130设有如下类型声明：Type Person Name As String * 8 Major As String * 20 End Type 要将该类型的某个变量p的值写入一个随机文件D:Test4.dat中，能正确把数据写入该随机文件的程序段是_。 （A）Open D:Test4.dat For Random As #1 : Put #1, 1, p : Close #1 （B）Open D:Test4.dat For Random As #1 : Get #1, 1, p : Close #1（C）Open D:Test4.dat For Random As #1 Len=Len(p) : Get #1, 1, p : Close #1（D）Open D:Test4.dat For Random As #1 Len=Len(p) : Put #1, 1, p : Close #1 二、填空题（每空2分，共20分）1在Visual Basic中，算术运算符、/、Mod和*中优先级别最低的是_。2VB表达式Len(“123程序设计ABC”)的值是_。3将任意一个两位正整数x的个位数与十位数对换的表达式是_。4要在过程体内对形参数组进行操作，需要确定数组的下界和上界，应使用_函数确定数组的下界。5如果要使计时器控件每隔10秒钟触发一次Timer事件，则应将计时器控件的Interval属性设置为_。6下面程序运行后输出的结果是_。Private Sub Command1_Click()Dim x As Integer, y As Integerx=int(Rnd)+3if x28 then y=x2+1if x2=9 then y=x2-2if x28 then y=x3print yEnd Sub7下列程序的功能是找出被3、5除，余数均为1的最小的5个正整数。Private Sub Command1_Click()Dim CountN%, n%CountN=0 : n=1Do n=n+1if n Mod 3=1 And n Mod 5=1 then print n CountN=CountN+1 End ifLoop while _End Sub8随机产生位学生成绩（范围0,100间的随机整数）并存放在数组a中，以每分输出一个“*”，并在“*”后面显示学生的分数。Private Sub Command1_Click()Dim a(1 To 6) As Integer, i As IntegerFor i = 1 To 6a(i) =int(rnd*101)Print _, a(i)Next iEnd Sub9下列程序的功能是利用辗转相减法求两个正整数m和n的最大公约数和最小公倍数，阅读程序并填空。Public Function f(ByVal m%, ByVal n%)Do While mnif mn then m=m-nElse n=n-mend ifLoop_End FunctionPrivate Sub Command1_Click( )Dim x%, y%, a%, b%x=val(InputBox(“请输入第一个正整数”)y= val(InputBox(“请输入第二个正整数”)a=f(x,y)b=_Print “最大公约数=”;a, “最小公倍数=”;bEnd Sub三、编程题（每小题5分，共20分）1编写Command1_Click事件过程，从键盘输入三角形三条边的值，判断能否构成三角形。若能构成三角形，则显示输出三角形的性质：直角三角形和非直角三角形。若不能构成三角形，则显示输出“不能构成三角形”。2编写Command1_Click事件过程，求Sn=a+aa+aaa+aaaa+aaaaa（n个a），其中a是闭区间1，9内的一个随机整数，n是闭区间5，10内的一个随机整数。3在文本框（Text1）中输入一串字符，单击“统计”命令按钮（Command1），统计各字母出现的次数（不区分大小写字母），并在图形框Picture1中显示统计结果，运行效果如下图。试编写Command1_Click事件过程。4编写函数过程IsH(n)，对于已知正整数n，判定该数是否是回文数，函数的返回值类型为布尔型。主调程序调用IsH(n)函数过程求出所有的五位回文数并显示出来。所谓“回文数”是指该数的顺序和逆序是同一个数。例如：12321就是一个回文数。东莞理工学院（本科）试卷（A卷）20082009 学年第二学期高级语言程序设计参考答案开课单位：计算机学院，考试形式：闭卷，允许带 入场一、单项选择题（每小题2分，共60分）110ACCDBBBCAA1120ADCDCDCABB2130DADCCBAACD二、填空题（每空2分，共20分）1Mod2103(x Mod 10)*10+x104Lbound510000677CountN c And b + c a And a + c b Then If a2+b2=c2 Or a2+c2=b2 Or b2+c2=a2 Then Print a,b,c,构成直角三角形！ Else Print a,b,c,构成非直角三角形！ End If Else Print a,b,c,不能构成三角形！