第二次考试及答案

1、文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .Visual Basic 程序设计（姓名：一、单项选择题（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+B4.任何控件都具有（）属性：A) TextB) CaptionC) NameD) Forecolor5.关于货币型数据，下列说法正确的是（）：A

2、) 货币型数据有时可以表示成整形数据B) 货币型数据与浮点型数据完全一样C) 货币型数据是由数字和小数点组成的字符串D) 货币型数据是小数点位置固定的实型数6.下列变量名中，不合法的变量名是（）：A) Print_Num1B) AbeC) ConstD) X1_y2_z37.下列既可用于输入数据又可用于输出数据的控件是（）控件。1文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .A) LabelB) TextBoxC) ListBoxD) OptionButton8 已执行语句 x=123456.789

3、，输出字。下列格式输出语句正确的是（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

4、Print 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$运行后输出的结果

5、是（）：2文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .A) BeijingB) 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

6、)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=8 DoPrint

7、 “* “a=a+1Loop While abB) a=5:b=8 DoPrint : ”* ” a=a+1Loop Until a5n=n-1print n;WendEnd SubA) 876B) 765C) 7654D) 876517.下列多行结构条件语句正确的是（）：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)

8、If xa thenPrint “xa”ElseIf xb thenPrint “xb”5文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .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) 20146 B)26 12 6C) 28126D)164319.下列程序段的执行结果为（）：n=0For i=1 to 3For j=

9、5 to 1 step -1n=n+1Next j,iPrint n;j;iA) 1204B) 1504C) 1231D) 153120.下列程序的输出结果是（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=10）：6文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .C) x=8D) x=6二、填空题。 请在程序的空白处填写适当的语句 （一个空白处只能填写一条语句） ，使程

10、序完成相应的操作或计算。 （4 分 /每小题，共 20 分）1.下面的程序计算 Sn 的值， Sn=a+aa+aaa+ +aaa a，其中最后一项为 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=

11、Cout+1Loop while cout=band abs(a)c_.4、下列程序执行时，从键盘上依次输入123 和 234，则程序的输出结果是_357_。Dim a As Integer,b As Integera=InputBox(b=InputBox(请输入第一个整数请输入第二个整数, ), )printa+b5.程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，请完善下面程序。Option ExplicitPrivate Sub Command1_Click( )Dim s As String,k As IntegerDim r As String,

12、i As Integer,t As Strings= “ aa11bb22Cc33 ”For i=1 To Len(s)t=_mid(s,I,1)Ift= “ a” And t=“ A” AndThent=3 ）是否为素数。 （需要判断的数是从键盘输入的）Private SubForm1_Click()Dim n As Integern = InputBox( 请输入一个正整数（=3 ）)k = Int(Sqr(n)i = 2Swit = 0While i = k And Swit = 0If n Mod i = 0 ThenSwit = 1Elsei = i + 1End IfWendIf

13、Swit = 0 ThenPrint n; 是一个素数 ElsePrint n; 不是一个素数8文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .文档来源为 :从网络收集整理.word 版本可编辑 .欢迎下载支持 .End IfEnd Sub2. 找出 100 999 三位数中的“水仙花”数，计算其个数。所谓水仙花数，是指各位数字立方和等于该数本身，如153 是一个水仙花数，因为153=13 + 53 + 33 。程序中采用计数方法n=n+1（或称“计数器” ）来记录有多少个“水仙花”数。Private Sub Form_load()Dim k As Integer, a As Integer, b As IntegerDim c As Integer, n As IntegeShown = 0Print 三位数