第二次考试及答案

Visual Basic 程序设计（程序设计（2015.4.28） 姓名： 一、单项选择题（2 分/每题，共 40 分） 1.以下可以构成语句的一项是（ ）: A) 对象名.属性 B) 对象名.方法名 C) 对象名.事件名 D) 对象名 2.对象可以识别和响应的某些（ ） A) 属性 B) 方法 C) 继承 D) 事件 3.下列续行写法正确的是（ ）： A) C=- A+B B) C= - A+B C) C =- A+B D) C=-此处换行 A+B 4.任何控件都具有（ ）属性： A) Text B) Caption C) Name D) Forecolor 5.关于货币型数据，下列说法正确的是（ ）： A) 货币型数据有时可以表示成整形数据 B) 货币型数据与浮点型数据完全一样 C) 货币型数据是由数字和小数点组成的字符串 D) 货币型数据是小数点位置固定的实型数 6.下列变量名中，不合法的变量名是（ ）： A) Print_Num1 B) Abe C) Const D) X1_y2_z3 7.下列既可用于输入数据又可用于输出数据的控件是（ ）控件。 A) Label B) TextBox C) ListBox D) 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+” “+F Print H+” “+G A) HELLO! CHANG! GOOD MORNING! B) HELLO! WANG! GOODMORNING! C) HELLO! LI! GOODMORNING! D) HELLO! CHANG! GOOD!MORNING! 10.运行下面程序段可以显示（ ）中的图形： Form1.cls For k=1 to 5 Print tab(10-k) For m=1 to 2 * k - 1 Print “%”; Next m Print Next k 11.有如下程序： Const c$=”Beijing” C$=”Shanghai” C$=”Hebei” Print c$ 运行后输出的结果是（ ）： A) Beijing B) Shanghai C) Hebei D)显示信息出错 12.在窗体上画一个命令按钮，名称为 Command1，然后编写如下程序： Private sub command1_click() For i=1 to 4 For j=0 to i Print chr$(65+i); Next j Print Next i End sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）： A)BB CCC DDDD EEEEE B)A BB CCC DDDD C)B CC DDD EEEE D)AA BBB CCCC DDDDD 13.在窗体上画两个名称分别为 text1，text2 的文本框和一个名称为 Command1 的命令按 钮，然后编写如下事件过程： Private sub command1_click() Dim x as Integer, n as Integer x=1 n=0 do while x10 then exit for next text1.text=str(n) End sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）： A) 2 B) 3 C) 4 D) 5 15.下列各种形式的循环中，输出“*”个数最少的循环是（ ）： A) a=5:b=8 Do Print “ * “ a=a+1 Loop While a5 n=n-1 print n; Wend End Sub A) 8 7 6 B) 7 6 5 C) 7 6 5 4 D) 8 7 6 5 17.下列多行结构条件语句正确的是（ ）： A) If xa then print “xa” ElseIf xb then print “xb” Else print “xa Print “xa” ElseIf xb then Print “xb” End if C) If xa then Print “xa” Else If xb then Print “xb” End if D) If xa then Print “xa” ElseIf xb then Print “xb” End if 18.下列程序的运行结果是（ ）： s=0:t=0:u=0 For x=1 to 3 For y=1 to x For z=y to 3 s=s+2 Next z t=t+2 Next y u=u+2 Next x Print s; t; u A) 20 14 6 B)26 12 6 C) 28 12 6 D) 16 4 3 19.下列程序段的执行结果为（ ）： n=0 For i=1 to 3 For j=5 to 1 step -1 n=n+1 Next j,i Print n;j;i A) 12 0 4 B) 15 0 4 C) 12 3 1 D) 15 3 1 20.下列程序的输出结果是（ ）： x=0 For i=0 to 1 x=x+1 For j=1 to 5 If j Mod 2=0 then x=x+1 Next j Next i Print “x=”;x A)x=12 B)x=10 C)x=8 D)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 Integer Dim Sn as Long,Tn as Long Cout=0:Sn=0：Tn=0 A=InputBox(“请输入 a 的值：”) n=InputBox(“请输入 n 的值：”) Do Tn=Tn+a*10cout Sn=Sn+Tn Cout=Cout+1 Loop while cout=b and abs(a)c_. 4、下列程序执行时，从键盘上依次输入 123 和 234，则程序的输出结果是_357_。 Dim a As Integer,b As Integer a=InputBox(“请输入第一个整数“,“ “) b=InputBox(“请输入第二个整数“,“ “) print a+b 5.程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打 印出来，请完善下面程序。 Option Explicit Private Sub Command1_Click( ) Dim s As String,k As Integer Dim r As String,i As Integer,t As String s=“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 If End Sub 2. 找出 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 Pri