VisualBasic教材考试有答案习题

1、一、第一章1下列不属于对象的基本特征的是 D 。A、属性 B、方法 C、事件 D、函数2在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C）。A）工程资源管理器窗口 B）工具箱窗口 C）代码窗口 D）属性窗口3. 以下不属于Visual Basic系统的文件类型是(C)A）.frm B）.bat C）.vbg D）.vbp4工程文件的扩展名为(C)A、.frx B、.bas C、.vbp D、.frm5窗体模块的扩展名为(D)A、.exe B、.bas C、.frx D、.frm6将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件 (D) A、.doc与.txt B、.

2、com与.exe C、.bat与.frm D、.vbp与.frm7假定一个Visual Basic应用程序由一个窗体模块、一个标准模块构成。为了保存该应用程序，以下正确的操作是(B) 30 / 30文档可自由编辑打印 A）只保存窗体模块文件 B）分别保存窗体模块、标准模块和工程文件 C）只保存窗体模块和标准模块文件 D）只保存工程文件 8为了清除窗体上的一个控件，下列正确的操作是(C) A）按回车键 B）按Esc键 C）选择（单击）要清除的控件，然后按Del键 D）选择（单击）要清除的控件，然后按回车键9以下叙述中错误的是(C)A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等

3、文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发二、第二章1在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500,500End Sub程序运行后，单击命令按钮，执行的操作为(B)（A）命令按钮移动到距窗体左边界、上边界各500的位置（B）窗体移动到距屏幕左边界、上边界各500的位置（C）命令按钮向左、上方向各移动500（D）窗体向左、上方向各移动5002为了使命令按钮（名称为Command

4、1）右移200，应使用的语句是(C)A) Command1.Move -200 B) Command1.Move 200C) Command1.Left = Command1.Left + 200D) Command1.Left = Command1.Left - 2003在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是(C) A)Private Sub Command1_Click() Text1.Left=100 End Sub B) Private Sub Co

5、mmand1_Click() Text1.Left= Text1.Left-100 End SubC)Private Sub Command1_Click()Text1.Move Text1.Left+100 End Sub D) Private Sub Command1_Click() Text1.Move Text1.Left End Sub 3为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True然后再把Scrollbars属性设置为(D)） B） C）D）4要使一个文本框可以显示多行文本，应设置为True的属性是(B)A）Enabled B）MultiLine

6、 C）MasLenfth D）Width 4若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是 (A)A)8个”$” B)1个”$” C)8个”*” D)无任何内容 5.能够触发文本框Chang事件的操作是（D）A）文本框失去焦点B）文本框获得焦点C）设置文本框的焦点D）改变文本框的内容6在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是(A)A) P

7、rivate Sub Text1_Change() Command1.Caption = "计算机等级考试“ End Sub B) Private Sub Command1_ Click () Caption = "计算机等级考试" End Sub C) Private Sub Form1_ Click () Text1.Caption = "计算机等级考试" End Sub D) Private Sub Command1_ Click () Text1.Text = "计算机等级考试" End Sub 7在窗体上画一个文本

8、框 Textl和一个标签Labell，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下实现上述操作的事件过程是 (B)APrivate Sub Textl_Click() Labell.Caption=Textl.Text End Sub BPrivate Sub Text1_Change() Labell.Caption=Textl.Text End Sub CPrivate Sub Labell_Change() Labell. Caption=Textl.Text End Sub DPrivate Sub Labell_Click() Labell.Capti

9、on=Textl.Text End Sub 9在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) End Sub 假定焦点已经位与文本框中，则能够触发 KeyPress 事件的操作是：(D) A单击鼠标 B双击文本框 C鼠标滑过文本框 D按下键盘上的能产生Ascii码的键 10设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是(C)A）Private Sub Command1_Clic

10、k() Text1.GotFocus End Sub B）Private Sub Command1_Click() Command1.GotFocus EndSub C）Private Sub Command1_Click() Text1.SetFocus End SubD）Private Sub Command1_Click() Command1.SetFocus End Sub 11刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是(C)A）单选按钮 B）图片框 C）代码窗口 D）文本框12. 以下叙述中错误的是（B ）。A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的

11、名称可以由编程人员确定C）移动鼠标时，会触发MouseMove事件D）控件的名称可以由编程人员设定13. 以下叙述中错误的是（ C）A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发14：设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是（B ）。A）Text1.MaxLength=0 B)Text1.Enabled=False C) Text1

12、.Visible=False D)Text1.Width=015以下能在窗体Form1的标题栏中显示“Visual Basic 窗体”的语句是（ C ）（A）Form1.Name=“Visual Basic 窗体” (B) Form1.Title=“Visual Basic 窗体”（C）Form1.Caption=“Visual Basic 窗体”（D） Form1.Text=“Visual Basic 窗体”三、第三章1整型变量有Byte、Integer、Long类型3种 对2Byte类型的数据，其数值范围在-255255之间 错3货币类型数据小数点后面的有效位数最多只有(D) A、1位 B

13、、6位 C、16位 D、4位4下列可作为VisualBasic变量名的是（ D ）A)A#A B)4A C)?xY D)constA5以下选项中，不合法的Visual Basic变量名是(B）A）a5b B）_xyz C）a_b D)andif6、设有如下语句：关于这段代码的叙述中，错误的是(A)Dim a，b As Integerc=“VisualBasic”d=#7202005#Aa被定义为Integer类型变量 Bb被定义为Integer类型变量Cc中的数据是字符串 Dd中的数据是日期类型 7下面可以正确定义2个整形变量和1个字符串变量的语句的是(D)A)Dim n,m As Inter

14、ger,s As String B)Dim a%,b$,c As String C)Dim a As Integer,b,c As String D)Dim x%,y As Integer,z As String 8（判断）：用Dim定义数值变量时，该数值变量自动赋初值为0 对9、在Visual Basic中，表达式3* 25 Mod 3的值是(A)） B） C） D）出现错误提示10：以下关系表达式中，其值为False的是(C)A） “ABC”> “AbC” B) “the”<> “they”C) “VISUAL”=Ucase(“Visual”) D) “Integer”&

15、gt; “Int”11运算符“”两边的操作数若类型不同，则先 C 再运算A、取整为Byte类型 B、取整为Integer类型C、四舍五入为整型D、四舍五入为Byte类型例表达式2 * 43 + 4 * 6 / 3 + 32的值是 145例表达式16 / 2 - 2 3 * 7 Mod 9的值是 6例表达式81 7 Mod 2 2的值是 313.VB算术运算符乘或除、整除、求余的优先级，从高到低依次为(B)A、乘或除、求余、整除 B、乘或除、整除、求余C、整除、求余、乘或除D、整除、乘或除、求余14：将数学表达式2×(a+b)+5÷2写成V B的表达式(A)A) 2*(a+b

16、)十5/2 B) 2(a+b)+52 C)(a+b)2十5*2 D) 2(a+b)+5*2 判断：一个表达式中若有多种运算，在同一层括号内，计算机按逻辑运算关系运算算术运算的顺序对表达式求值 错15： 设a=3，b=5，则以下表达式值为真的是(B) A) a=b And b10 B)(ab)Or(b0) C) (a0) Eqv (b0) D)(-3+5a) And b0) 16：设a=10，b=5，c=1，则判断a > b > c的真假(B)A、True B、False17：“x是小于105的非负数”，用VB的表达式表示(C)a)0<=x<105 b)0<x<

17、;105 c) 0<=x And x<105 d) 0<=x Or x<10518设x=4,y=8,z=7,以下表达式的值是(B)x<y And (Not y>z) Or z<xA）Ture B)False19：设a=2, b=3, c=4, d=5, 下列表达式的值是(B) Not a<=c Or 4*c=b2 And b<>a+c A）True B）False 20：设a=5，b=4，c=3，d=2下列表达式的值是(B)3 > 2 * b Or a = c And b <> c Or c > d A)1 B

18、)True C) False D)221：设a = 5，b = 10，则执行c = Int(b - a) * Rnd + a) + 1 后，c值的范围为(C) A）510 B）69 C）610 D）59 22：Int( Rnd * 100 ) 表示的是哪个范围内的整数。(C)A、0，100 B、1，99 C、0，99 D、1，10023：以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是(B)A)Left B)MidC)String D)Instr 24：函数String(n，“str”)的功能是(B)A)把数值型数据转换为字符串B)返回由“str”中首字母组成的

19、n个相同字符组成的字符串C)从字符串中取出n个字符 D)从字符串中第n个字符的位置开始取子字符串25：返回删除字符串前导和尾随空格符后的字符串用函数(A)A、Trim B、Ltrim C、Rtrim D、Mid 26：键盘上输入两个字符串，分别保存在变量Str1、Str2中。确定第二个字符串在第一个字符串起始位置的函数(D) A)Left B)Mid C)String D)Instr27. 设a=”VisualoBasic”,下面使b=”Basic”的语句是(B)A）b=left(a,8,12) B)b=mid(a,8,5) C) b=right(a,5,5) D)b=left(a,8,5)2

20、8. 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1， 然后编写如下两个事件过程：Private Sub Command1_Click() s= InputBox("请输入一个字符串") Text1.Text = sEnd SubPrivate Sub Text1_Change() Label1.Caption = UCase(Mid(Text1.Text, 7)End Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是 BASIC 。29.

21、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()StrText=InputBox(“请输入”)Text1.Text=StrTextEnd SubPrivate Sub Text1_Change()Label1.Caption=Right(Trim(Text1.Text),3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)A）空 B) abcdef C)abc D)def30：执行以下程序段a$=“Vis

22、ual Basic Programming”b$=“c+”c$=Ucase(left$(a$,7)&b$&Right$(a$,12)后，变量c$的值为(B)A）Visual BASIC Programming B)VISUAL c+ ProgrammingC)Visual c+ Programming D)VISUAL BASIC Programming31：执行以下程序后输出的是(C)Private Sub Command1_Click() Ch$=”AABCDEFGH” Print Mid(Right(ch$,6),Len(left(ch$,4),2) End Sub A)

23、CDEFGH B)ABCD C)FG D)AB 四、第四章1：执行语句s=Len(Mid(“VisualBasic”,1,6)后，s的值(C)A）Visual B)Basic C)6 D)112：设a = “MicrosoftVisualBasic” ，则以下使变量b的值为“VisualBasic”的语句是(B) A) b = Left(a, 10) B) b = Mid(a, 10) C) b = Right(a, 10) D) b = Mid(a, 11, 10)3：执行下面的程序段后，a、b的值为a=300 b=20 a=a+b b=a-b a=a-b 20 3004：在窗体上画一个文本

24、框，然后编写如下事件过程Private Sub Form_Click()x = InputBox(“请输入一个整数”)Text1.Text = x + Text1.TextEnd Sub程序运行时在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后在窗体上显示的内容为(D)A) 123 B)456 C) 479 D) 1234565：在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(“Enter a

25、n integer”) b = InputBox(“Enter an integer”) Text1.Text = b + a End Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是(A) A）108 B）18 C）810 D）出错 6：设有语句 x=inputbox (“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（D）A）变量x的值是数值10 B）在inputbox对话框标题栏中显示的是“示例”C）0是默认值 D）变量x的值是字符串“10”7：a = InputBox("Today&

26、quot;, "Tomorrow", "Yesterday", , , "Day before yesterday", 5)显示一个输入对话框在对话框的输入区中显示的信息是(C)A）Today B）TomorrowC）Yesterday D）Day before yesterday8以下关于MsgBox的叙述中，错误的是(D)A)MsgBox函数返回一个整数B)通过MsgBox函数可以设置信息框中图标和按钮的类型C)MsgBox语句没有返回值D)MsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量9：假定有如下

27、的窗体事件过程：Private Sub Form_Click() a= "Microsoft Visual Basic“ b= Right(a, 5) c= Mid(a, 1, 9) MsgBox a, 34, b, c, 5End Sub程序运行后单击窗体弹出的信息框标题栏中显示的信息是(C)A) Microsoft Visual B) Microsoft C) Basic D)5 10：在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()a= "software and hardware“ b=

28、 Right(a, 8) c= Mid(a, 1, 8) MsgBox a , , b, c, 1 End Sub 运行程序单击按钮在弹出的信息框标题栏中显示的是(C)A）software and hardware B）software C）hardware D）1 11：假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox(“输入：”，“输入整数”)MsgBox“输入的数据是：”， “输入数据：”+xEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是(A)Ax的值是数值10B输

29、入对话框的标题是“输入整数”C信息框的标题是“输入数据：10”D信息框中显示的是“输入的数据是：” 12、窗体上有一个名称为Command1的命令按钮，其事件过程如下：Private Sub Command1_Click()x=“VisualBasicProgramming”a=Right(x,11)b=Mid(x,7,5)C=Msgbox(a, , b)End Sub运行程序后单击命令按钮，以下叙述中错误的是(D)）信息框的标题是Basic B) 信息框中的提示信息是ProgrammingC) C的值是函数的返回值D）MsgBox的使用格式有错13：语句“Form1.Print Tab(10

30、);”#“”的作用是在窗体当前输出行 (A)A、第10列输出字符“#” B、第9列输出字符“#”C、第11列输出字符“#” D、输出10个字符“#”14Print语句的一个输出表达式为 D ，则输出包括日期、时间信息A、Date B、Month C、Time D、Now15. 语句Print "5*5" 的显示结果是(C)A、25 B、"5*5" C、5*5 D、出现错误提示16下列程序段的输出结果是 (B) a=10: b=10000: x=log(b)/log(a): Print "lg(10000)="x A、lg(10000)

31、=5 B、lg(10000)=4 C、4 D、5 17下面程序运行的结果为：( C)Dim aa As integeraa=3.8Print aa A、3.8 B、aa=4 C、4 D、318在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：(A)Private Sub Command1_Click()a= “Visual Basic”Print String(3,a)End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是A）VVV B）Vis C)sic D)1119：设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是(A)APrint A=x+yBP

32、rint"A="x+yCPrint "A="+Str(x+y) DPrint"A="&x+y20、写出运行结果a = 100b = 50c = 30If a < b Or b < c Then b = cIf b = c And a < c Then a = a 100Print a, b, c下列程序的执行结果为 A A)100 50 30 B)-100 30 30 C)-100 50 30 D)100 30 5021、下列程序运行的结果是(C) Dim k as integer k=1If k<=1

33、 then a=2*kIf k<=2 then a=2*k+2If k<=4 then a=kPrint k;aA) 1 2 B) 1 4 C) 1 1 D) 2 422:Private Sub Command1_Click() Textl.Text=“Visual Basic”                       End Sub Private Sub T

34、ext1_LostFocus() If Text1.Text <>“BASIC”Then Text1.Text=” Text1.SetFocus End If End Sub程序运行时，在Text1文件框中输入“Basic然后单击Command1按钮，则产生的结果是(A)）文本框中无内容，焦点在文本框中 B）文本框中为“Basic”,焦点在文本框中 C）文本框中为“Basic”,焦点的按钮上 D）文本框中为“Visual Basic”,焦点的按钮上23：在窗体上画一个Text1的文本框，要求文本框只能接收大写字母的输入。能实现操作的事件过程是(A)A)Private Sub Tex

35、t1_KeyPress(KeyAscii As Integer) If KeyAscii<65 Or KeyAscii>90 Then MsgBox “请输入大写字母” KeyAscii=0 End If End SubB)Private Sub Text1_KeyDown(KeyCode As Integer,Shift AsInteger) If KeyCode<65 Or KeyCode>90 Then MsgBox “请输入大写字母” KeyCode=0 End If End Sub24： 以下Case语句中错误的是(C)A) Case 0 To 10 B)Ca

36、se Is>10 C) Case Is>10 And Is<50 D)Case 3,5, Is>1 25下列关于Select Case的叙述中，错误的是(D)A）Case 10 To 100 表示判断值是否介于10与100之间B）Case “abc”,“ABC” 表示判断值是否和“abc”、“ABC”两个字符串中的一个相同C）Case "X" 表示判断值是否为大写字母XD）Case -7,0,100 表示判断值是否等于字符串"-7，0，100"26. 在窗体上画一个Command1命令按钮和两个Text1、Text2的文本框，然后

37、编写如下事件过程 Private Sub Command1_Click() n = Val(Text1.Text) Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = xEnd Sub程序运行后，在文本框Text1中输入10，然后单击命令按钮则在Text2中显示的内容是(A)A）10 B）20 C）30 D）4027在窗体上画一个Command1的命令按钮，Private Sub Command1_Click()x=

38、Val(InputBox(“Input”)Select Case x Case 1,3 Print “分支1” Case Is>4 Print “分支2” Case Else Print “Else 分支”End SelectEnd Sub程序运行，在输入对话框中输入2，则窗体上显示的是(C)A)分支1 B）分支2 C）Else分支 D）程序出错28、设a=6，则执行x=IIf（a>5，-1，0）后，x的值为(D) A、5 B、6 C、0 D、-129：设a = “a”，b = “b”，执行语句 x=IIf(a>b),”A”,”B”)后，x的值为(C) A)”a” B)”b”

39、 C)”B” D)”A”30：命令按钮Command1的单击（Click）输入-5，Text2结果为(C)Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) y = IIf(x >= 0, 1 + x, 1-2 * x) Text2.Text = yEnd Sub A) -4 B) 10 C) 11 D)-5 31：在窗体上画一个命令按钮和一个文本框，分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox(

40、"请输入日期（131）")t =”旅游景点：” _& IIf ( a > 0 And a <= 10, "长城", "") _& IIf ( a >10 And a <= 20, "故宫", "") _& IIf ( a > 20 And a <= 31, "颐和园", "") Text1.Text = tEnd Sub程序运行，从键盘上输入16，则在文本框显示的内容(D)A) 旅游景点：长城故宫

41、 B) 旅游景点：长城颐和园C) 旅游景点：颐和园 D) 旅游景点：故宫32由“For i=1 To 16 Step 3”决定的循环结构被执行几次(C)A、4 B、5 C、6 D、733由“For i=1 To 9 Step -3”决定的循环结构被执行几次(D)A、4 B、5 C、6 D、034：在窗体上画Command1命令按钮，Label1标签Private Sub Command1_Click() s = 0 For i = 1 To 15 x = 2 * i 1 If x Mod 3 = 0 Then s = s + 1 Next i Label1.Caption = sEnd Sub

42、程序运行后，单击命令按钮，则标签中显示的内容是(B)A）1 B）5 C）27 D）4535： Private Sub Command1_Click() x=0 For i= 1 To 5 x = x +1 Next i Label1.Caption= x End Sub程序运行后,单击命令按钮Command1,则Label1显示(C)A) 3 B) 4 C) 5 D) 636执行下面的程序段后，变量S的值为_9_ S5 For i 2.6 To 4.9 Step 0.6 S=S+1 Next i37. 执行下面的程序段后，i的值为 5.6 ，s的值为 5 。 s = 2 For i = 3.2

43、 To 4.9 Step 0.8 s = s + 1 Next i38设有如下程序段：x=2For i=1 to 10 Step 2x=x+iNext i运行以上程序后，x的值是(B)A）26 B）27 C）38 D）5739： 在窗体上画名称为Text1的文本框和名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, n As Integer n=0For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next iText1.Text=Str(n)End

44、 Sub程序运行后，单击命令按钮，在文本框中显示的值是(B)A) 2 B) 3 D) 4 D) 540. Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next i End Sub通过For循环计算一个表达式的值，这个表达式是(C)A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4 C）1/2+2/3+3/4+4/5 D）1/2+1/3+1/4+1/541：在窗体上画一个Co

45、mmand1的命令按钮，Private Sub Command1_Click()c=1234c1=Trim(Str(c)For i=1 To 4Print _NextEnd Sub程序运行后，单击命令按钮，在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)A)Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i) 42:在窗体上画两个分别为Text1、Texte2的文本框和一个Command1的命令按钮Private Sub Command1_Click()Dim x As Integer,n As Integerx

46、=1n=0Do While x<20 x=x*3 n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后单击命令按钮在两个文本框中显示的值分别是(B)A) 15和1 B) 27和3 C) 195和3 D) 600和443. 在窗体上画一个Command1的命令按钮Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num； num = num + 2.4 LoopEnd Sub程序运行后，单击命令按钮，窗体上显示的内容是(

47、B)A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出44若i的初值为8，则下列循环语句的循环次数为几次(C) Do While i<=17 i=i+2 LoopA、3次 B、4次 C、5次 D、6次45. 请写出单击窗体后，窗体上的显示结果Private Sub Form_Click() Dim a As Integer, s As Integer a = 5: s = 0 Do While a< = 0 s = s + a: a = a 1 Loop Print s; aEnd Sub0 5 46. 请写出输入8、9、3、0后窗体上的显示结果。 Privat

48、e Sub Form_Click() Dim sum As Integer, m As Integer Do m = Val(InputBox("请输入m", "累加和等于" & sum) If m = 0 Then Exit Do sum = sum + m LoopPrint sumEnd Sub2047. 设有以下循环结构 Do 循环体 Loop While <条件>则以下叙述中错误的是（ A）A）若"条件"是一个为0的常数，则一次也不执行循环体B）"条件"可以是关系表达式、逻辑表达式或常

49、数C）循环体中可以使用Exit Do语句 D）如果"条件"总是为True，则不停地执行循环体48. 在窗体上画一个Command1的命令按钮Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a 1 Loop While a <= 0 Print s; aEnd Sub程序运行后单击命令按钮则窗体上显示的内容是(C)A） 7 9 B） 34 0 C） 9 7 D）死循环 48：在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = 0n =val( InputBox(“”)For i = 1 To n For j = 1 To i x = x + 1 Next jNext iPrint xEnd Sub程序运行后单击命令按钮若输入3，则在窗体上显示(D)A）3 B）4 C）5 D）649 在窗体上画一个命令按钮，名称为Command1Private Sub Command1_Click() For I=1 To 4 For J=0 To I Print Chr