第二次考试及答案.doc

Visual Basic程序设计（2015.4.28） 姓名： 一、单项选择题（2分/每题，共40分）1.以下可以构成语句的一项是（ ）: A) 对象名.属性B) 对象名.方法名C) 对象名.事件名D) 对象名 2.对象可以识别和响应的某些（ ） A) 属性B) 方法C) 继承D) 事件 3.下列续行写法正确的是（ ）： A) C=-A+BB) C= -A+BC) C =-A+BD) C=-此处换行A+B 4.任何控件都具有（ ）属性： A) TextB) CaptionC) NameD) Forecolor 5.关于货币型数据，下列说法正确的是（ ）： A) 货币型数据有时可以表示成整形数据B) 货币型数据与浮点型数据完全一样C) 货币型数据是由数字和小数点组成的字符串D) 货币型数据是小数点位置固定的实型数 6.下列变量名中，不合法的变量名是（ ）： A) Print_Num1B) AbeC) ConstD) X1_y2_z3 7.下列既可用于输入数据又可用于输出数据的控件是（ ）控件。A) LabelB) TextBoxC) ListBoxD) OptionButton 8已执行语句x=123456.789，输出x的值时要求加千位分隔符，小数点后取2位有效数字。下列格式输出语句正确的是（ ）： A) Print format$(x,#,#.#)B) Print format$(x,”#,#,#.#”)C) Print format$(x,”,#.#”)D) Print format(x,”#,.#”)9.下列程序段的执行结果为（ ）：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!10.运行下面程序段可以显示（ ）中的图形：Form1.clsFor k=1 to 5Print tab(10-k)For m=1 to 2 * k - 1Print “%”;Next mPrintNext k11.有如下程序：Const c$=”Beijing”C$=”Shanghai”C$=”Hebei”Print c$运行后输出的结果是（ ）：A) Beijing B) ShanghaiC) HebeiD)显示信息出错12.在窗体上画一个命令按钮，名称为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)AABBBCCCCDDDDD13.在窗体上画两个名称分别为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) 515.下列各种形式的循环中，输出“*”个数最少的循环是（ ）：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 517.下列多行结构条件语句正确的是（ ）：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 if18.下列程序的运行结果是（ ）：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 319.下列程序段的执行结果为（ ）：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 120.下列程序的输出结果是（ ）：x=0For i=0 to 1x=x+1For j=1 to 5If j Mod 2=0 then x=x+1Next jNext iPrint “x=”;x A)x=12B)x=10C)x=8D)x=6 二、填空题。请在程序的空白处填写适当的语句（一个空白处只能填写一条语句），使程序完成相应的操作或计算。（4分/每小题，共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 cout=b and abs(a)c_.4、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是_357_。Dim a As Integer,b As Integera=InputBox(请输入第一个整数, )b=InputBox(请输入第二个整数, )print a+b5.程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，请完善下面程序。Option ExplicitPrivate Sub Command1_Click( )Dim s As String,k As IntegerDim r As String,i As Integer,t As Strings=“aa11bb22Cc33”For i=1 To Len(s)t=_mid(s,I,1)If t=“a”And t=“A”And t=3）是否为素数。（需要判断的数是从键盘输入的）Private Sub Form1_Click() Dim n As Integer n = InputBox(请输入一个正整数（=3）) k = Int(Sqr(n) i = 2 Swit = 0 While i = k And Swit = 0 If n Mod i = 0 Then Swit = 1 Else i = i + 1 End If Wend If Swit = 0 Then Print n; 是一个素数 Else Print n; 不是一个素数 End IfEnd Sub2. 找出100999三位数中的“水仙花”数，计算其个数。所谓水仙花数，是指各位数字立方和等于该数本身，如153是一个水仙花数，因为153=13 + 53 + 33。 程序中采用计数方法n=n+1（或称“计数器”）来记录有多少个“水仙花”数。Private Sub Form_load() Dim k As Integer, a As Integer, b As Integer Dim c As Integer, n As Intege Show n = 0 Print 三位数的水仙花数是： For