2009年春VB期中考试试题(答案版)[1].doc

试卷代号：钦州学院2009年春季学期物电系期中考试试卷学号 姓名 系别 班别 试室 ( 密 封 线 内 不 答 题 )密封线课程：Visual Basic程序设计注意事项：1. 考前请将密封线内的内容填写清楚。 2. 所有答案请直接答在答题卡上。 3考试形式：闭卷。 4. 本试卷共三大题，满分100分，考试时间120分钟。题 号一二三总分得 分评卷人一、单项选择题（2分/每题，共60分）1.以下可以构成语句的一项是（ B ）:A) 对象名.属性B) 对象名.方法名C) 对象名.事件名D) 对象名.函数名2.MOVE方法的一般形式是对象名.Move A,B,C,D,其中B指的是（B）：A) LeftB) TopC) WidthD) Height3.对象可以识别和响应的某些行为称为（ ）：A) 属性B) 方法C) 继承D) 事件4.下列续行写法正确的是（ ）：A) C=-A+BB) C= -A+BC) C =-A+BD) C=-此处换行A+B5.任何控件都具有（ ）属性：A) TextB) CaptionC) NameD) Forecolor6.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条的事件是（ ）：A) MoveB) ChangeC) ScrollD) Setfocus7.能够获得一个文本框中被选取文本的内容的属性是（ ）：A) TextB) LengthC) SeltextD) Selstart8.要使一个命令按钮成为图形命令按钮，则应设置其（ ）属性值。A) PictureB) StyleC) DownPictureD) DisablePicture9.关于货币型数据，下列说法正确的是（ ）：A) 货币型数据有时可以表示成整形数据B) 货币型数据与浮点型数据完全一样C) 货币型数据是由数字和小数点组成的字符串D) 货币型数据是小数点位置固定的实型数10.下列变量名中，不合法的变量名是（ ）：A) Print_Num1B) AbeC) ConstD) X1_y2_z311.表达式Int*(5*Rnd+1)*Int(5*Rnd-1)值的范围是（ ）：A) 0,15B) -1,15C) -4,15D) -5,1512.设a$=”12”，下列语句错误的是（ ）：A) Label.visible=text1.visible or text2.visibleB) Text1.text=+Chr(13)+a$C) B=text2.textD) Label1.fontsize=a$13.设a，b为整型变量，且均不为0，下列关系表达式中恒成立的是（ ）：A) a*b/a*b=1B) a*bb*a=1C) ab*b+a Mod b=aD) ab*b=a14.下列既可用于输入数据又可用于输出数据的控件是（ ）控件。A) LabelB) TextBoxC) ListBoxD) OptionButton15.执行x$=InputBox(“请输入x的值”)时，在弹出的对话框中输入123，在列表框list1选中第1个列表项（数据为456），则下列使y的值是123456的语句是（ ）：A) Y=x$+list1.list(0)B) Y=x$+list1.list(1)C) Y=Val(x$)+Val(list1.list(0)D) Y=Val(x$)+Val(list1.list(1)16.已执行语句x=123456.789，输出x的值时要求加千位分隔符，小数点后取2位有效数字。下列格式输出语句正确的是（ ）：A) Print format$(x,#,#.#)B) Print format$(x,”#,#,#.#”)C) Print format$(x,”,#.#”)D) Print format(x,”#,.#”)17.下列程序段的执行结果为（ ）：A=”HELLOGOOD MORNING”B=”WANGCHANGLI”C=Left(A,5)+”!”D=Right(A,7)E=Mid(A,6,4)F=Mid(B,Len(B)-6,5)+”!”G=E+” “+D+”!”H=C+” “+FPrint H+” “+GA) HELLO! CHANG! GOOD MORNING!B) HELLO! WANG! GOODMORNING!C) HELLO! LI! GOODMORNING!D) HELLO! CHANG! GOOD!MORNING!18.如下程序：Private sub form_click()a=20:b=20:c=120:d=120Form.line(a,b)-(c,d),BFEnd sub单击窗体后，窗体上显示的是（ ）：A) 一条直线B) 一个矩形空框C)一个填充了颜色的矩形D)无任何图形19.运行下面程序段可以显示（ ）中的图形：Form1.clsFor k=1 to 5Print tab(10-k)For m=1 to 2 * k - 1Print “%”;Next mPrintNext k20.有如下程序：Const c$=”Beijing”C$=”Shanghai”C$=”Hebei”Print c$运行后输出的结果是（ ）：A) Beijing B) ShanghaiC) HebeiD)显示信息出错21.在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private sub command1_click()For i=1 to 4For j=0 to iPrint chr$(65+i);Next jPrintNext iEnd sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）：A)BBCCCDDDDEEEEEB)ABBCCCDDDDC)BCCDDDEEEED)AABBBCCCCDDDDD22.在窗体上画两个名称分别为text1，text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private sub command1_click()Dim x as Integer, n as Integerx=1n=0do while x10 then exit fornexttext1.text=str(n)End sub程序运行后，单击命令按钮，在文本框中显示的值是（ ）：A) 2B) 3C) 4D) 524.下列各种形式的循环中，输出“*”个数最少的循环是（ ）：A) a=5:b=8DoPrint “ * “a=a+1Loop While abB) a=5:b=8DoPrint :” *”a=a+1Loop Until a5n=n-1print n;WendEnd SubA) 8 7 6B) 7 6 5C) 7 6 5 4D) 8 7 6 526.下列多行结构条件语句正确的是（ ）：A) If xa then print “xa”ElseIf xb then print “xb”Else print “x=a,xaPrint “xa”ElseIf xb thenPrint “xb”End ifC) If xa thenPrint “xa”Else If xb thenPrint “xb”End ifD) If xa thenPrint “xa”ElseIf xb thenPrint “xb”End if27.下列程序段的功能是：给列表框list1加载如下项目：星期一、星期二、星期三、星期四、星期五、星期六和星期日。给以下程序的空白行选择适当的语句。( )For i=1 to 7_Next iA) List1.text=choose(I, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”, “星期日”,)B) List1.AddItem= choose(I, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”, “星期日”,)C) List1. AddItem choose(I, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”, “星期日”,)D) List1.RemoveItem choose(I, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”, “星期日”,)28.下列程序的运行结果是（ ）：s=0:t=0:u=0For x=1 to 3For y=1 to xFor z=y to 3s=s+2Next zt=t+2Next yu=u+2Next xPrint s; t; uA) 20 14 6B)26 12 6C) 28 12 6D) 16 4 329.下列程序段的执行结果为（ ）：n=0For i=1 to 3For j=5 to 1 step -1n=n+1Next j,iPrint n;j;iA) 12 0 4B) 15 0 4C) 12 3 1D) 15 3 130.下列程序的输出结果是（ ）：x=0For i=0 to 1x=x+1For j=1 to 5If j Mod 2=0 then x=x+1Next jNext iPrint “x=”;xA) x=12B) x=10C) x=8D) x=6二、填空题。请在程序的空白处填写适当的语句（一个空白处只能填写一条语句），使程序完成相应的操作或计算。（2分/每空，共20分）1.下面的程序计算Sn的值，Sn=a+aa+aaa+aaaa，其中最后一项为n个a。例如，a=5，n=4时，则：Sn=5+55+555+5555.（a和n的值通过键盘输入）Dim a as Integer, n as Integer, Cout as IntegerDim Sn as Long,Tn as LongCout=0:Sn=0：Tn=0A=InputBox(“请输入a的值：”)n=InputBox(“请输入n的值：”)DoTn=Tn+a*10coutSn=Sn+TnCout=Cout+1Loop while cout0 【5】 List1.additem list2.list(0)List2.removeitem 0Loop4.在窗体上画一个列表，然后编写如下两个事件过程：Private sub form_click()List1.RemoveItem 1List1.RemoveItem 2End subPrivate sub form_load()List1.AddItem “ItemA”List1.AddItem “ItemB”List1.AddItem “ItemC”List1.AddItem “ItemD”List1.AddItem “ItemE”End Sub运行上面的程序，然后单击窗体，列表框中显示的项目是 ItemA ItemC ItemE 。5. 请在横线上写出该行代码的功能。Dim h, mPrivate Sub Form_Load()Timer1.Interval = 1000 【7】 End SubPrivate Sub Command1_Click() h = Format(Text1.Text, 00) m = Format(Text2.Text, 00) End SubPrivate Sub Timer1_Timer()Label3.Caption = Time$ 【8】 If Mid(Time$, 1, 5) = h & : & m Then 【9】 For i = 1 To 3 Beep 【10】 Next iEnd IfEnd Sub三、编程题。(共20分)1.利用随机函数产生20个100200范围内的随机整数，输出它们的平均值和最大值、最小值以及它们的所在位置。（8分）Private Sub Command1_Click()Dim sum As Integer, max As Integer, maxpos As Integer, min As Integer, minpos As Integer, ave As SingleDim b(0 To 19) As IntegerRandomize TimerFor i = 0 To 19 b(i) = Int(101 * Rnd) + 100 Print b(i); sum = sum + b(i)Next iave = sum / 20Print ave=; avemax = b(0): maxpos = 0min = b(0): minpos = 0For i = 1 To 19 If b(i) max Then max = b(i)maxpos = iElseIf b(i) 0 thena(1)=a(1)+1elseif b=0 thena(2)=a(2)+1elsea(3)=a(3)+1end ifnext iprint “正数的个数为”;a(1);”个”print “负数的个数为”;a(3);”个”print “0的个数为”;a(2);”个”end sub3. 设计时窗体如图所示。要求在程序运行时，如果单击 “开始”按钮（名称为C1），则窗体上的螃蟹图标每0.1秒向右移动20（初始状态下不移动）；如果单击“停止”按钮（名称为C2）