VB项目3习题答案
习题
一、单选题
1．从循环体Do While Loop中退出，继续执行循环体后面的命令，应使用______。
A．Exit Loop B．Exit Do C．Exit D．Exit Do While
2．从循环体Do…Loop中退出并继续执行程序，可使用语句______。
A．Exit Sub B．Exit Loop C．Exit D．Exit Do
3．假设Text1文本框中输入了学生的成绩，以A、B、C、D、E字符表示不同的等级，下列语句中，__________可用于判断输入数据是否正确。
A．If "A"<= Text1 <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"
B．If "A" <= Text1 Or Text1 <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"
C．If A <= Text1 And Text1 <= E Then MsgBox "输入正确" Else MsgBox "输入错误"
D．If "A"<= Text1 And Text1 <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"
4．下面程序段的功能是求两个数中的大数，__________是不正确的。
A．Max = IIf(x > y, x, y) B．If x > y Then Max = x Else Max = y
C．Max = x: If y >= x Then Max = y D．If y >= x Then Max = y: Max = x
5．下面程序段的功能是求两个数中的小数，__________是不正确的。
A．Min = IIf(x > y, y, x) B．If x < y Then Min = x Else Min = y
C．If y <= x Then Min = y: Min = x D．If y <= x Then Min= y : If y> x Then Min= x
6．__________组语句可实现将变量x、y互换。
A．x = y：y = x B．x = x + y ：y = x - y ：x = x – y
C．x = x + y：x = x - y ：y = x – y D．x = (x + y) / 2 ：y = (x - y) / 2
7．__________组语句可实现将变量x、y互换。
A．x = y : y = x B．t = y : x = y : y = t
C．x = t : t = y : y = x D．t = x : x = y : y = t
8．在使用MsgBox()时，必须设置的参数是__________。
A．提示B．按钮C．标题D．无
9．在使用InputBox()时，必须设置的参数是__________。
A．缺省B．提示C．标题D．无
10．关于结构化程序设计的描述，下述的说法中正确的是__________。
A．面向对象、顺序执行B．面向过程、事件驱动
C．面向过程、顺序驱动D．面向对象、事件驱动
11．对于选择结构语句If x = 10 Then y = 100，下列说法正确的是_________。
A．x=10 和y=100 均为赋值语句。
B．x=10 和y=100 均为关系表达式。
C．x=10 为关系表达式，y=100为赋值语句。
D．x=10为赋值语句y=100 为关系表达式。
12．在VB集成环境中调试程序可以设置跟踪点。如果设置了跟踪点，那么当程序运行至该跟踪点时，会出现一条黄色的光条。请问，此时已经执行完毕的最后一句语句在___________。
A．当前黄色光条的上一句语句B．当前黄色光条的上一行语句
C．当前语句D．当前行语句
13．以下关于多重循环语句的使用的描述中，错误的是____________。
A．内循环变量和外循环变量不能同名。
B．外循环必须完全包含内循环，不能交叉。
C．在外循环中可以使用GoTo语句转向内循环中的任何语句。
D．在内循环中可以使用GoTo语句转向外循环中的任何语句。
14．下列程序段执行的结果是____________。
x=10
y=20
If x>20 Then
If y>20 Then
x=x*3
Else
x = x \ 2
Print x ‘Print应该是MsgBox
A．10 B．20 C．5 D．30
15．在窗体上画一个命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
a = InputBox("Enter the First integer")
b = InputBox("Enter the Second integer")
Print b + a ‘Print应该改为MsgBox
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是________。
A．579 B．123 C．456 D．123456
16．假定有以下循环结构
Do
循环体
Loop Until 0 条件
则正确的描述是________。
A．如果“条件”是一个为0的常数，则一次循环体也不执行。
B．如果“条件”是一个为0的常数，则无限次执行循环体。‘条件为True时，退出循环，否则执行循环C．如果“条件”是一个不为0的常数，则至少执行一次循环体。
D．不论“条件”是否为真，至少要执行一次循环体。
17．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=val(InputBox("Input"))
Select Case x
Case 1,3
Print "分支 1" ‘Print应该是MsgBox
Case Is >4
Print "分支 2" ‘Print应该是MsgBox
CaseElse
Print "Else 分支" ‘Print应该是MsgBox
EndSelect
EndSub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是________。
A．分支1 B．分支2 C．Else分支D．程序出错
18．设有如下程序段：
x=3
For i=1 To 10 Step 3
x=x+i
Next
运行以上程序后，x的值是________。
A．25B．27 C．38 D．57
19．执行以下程序段：
Dim x As Integer, i As Integer
x=1
For i = 20 To 1 Step -4
x = x + i \ 5
Next i
后，x的值为________。
A．10B．11C．12D．13 20．设有以下循环结构：
Do
循环体
Loop While <条件>
则以下叙述中错误的是________。
A．若“条件”是一个为0的常数，则一次也不执行循环体。
B．“条件”可以是关系表达式、逻辑表达式或常数。
C．循环体中可以使用Exit Do语句。
D．如果“条件”总是为True，则不停地执行循环体。
21．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
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是________。
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+1/2+1/3+1/4+1/5
22．ACD
二、填空题
1．若TestMe的值为1500，则函数IIf(TestMe > 1000, "Large", "Small") 返回_Large_。2．命令按钮Commandl_Click事件中的程序为：
Private Sub Command1_Click()
Static a As Integer, b As Integer
a = 1
a = a + 5
b = 5 + b
Print a, b ‘Print应该是MsgBox
End Sub
程序运行时，单击命令按钮两次后，窗体上显示的结果为__6__和_10_。
3．命令按钮Command1_Click事件过程如下：
Private Sub Command1_Click()
Dim a As Integer, n As Integer
a = 1: n = 0
Do While a < 20
a = a * 3
n = n + 1
Loop
Text1.Text = a
Text2.Text = n
End Sub
程序运行时，单击命令按钮后，文本框1和文本框2上显示的结果分别为_27_和_3__。
4．正确地显示一个标题为ERROR、提示信息为“Input”的对话框的代码是k = InputBox (“Input”，“ERROR”)。
5．命令按钮Command1_Click事件过程如下：
Private Sub Command1_Click()
Dim a As Integer, j As Integer
For i = 1 To 10 Step 3
j = i
Next i
Text1.Text = j
Print i ‘Print应该是MsgBox
End Sub
程序运行时，单击命令按钮，文本框内显示的结果为__10__，窗体上显示的结果为___13____。6．对For i = 11 To -5 Step -2 语句，共循环___9_____次。
7．命令按钮Command1_Click事件过程如下：
Private Sub Command1_Click()
Dim a(5, 4) As Integer, i, j As Integer
For i = 2 To 3
For j = 2 To 4
a(i, j) = i + j
Next j
Next i
Text1.Text = a(2, 3)
Print a(3, 4) ‘Print应该是MsgBox
End Sub
程序运行时，单击命令按钮，文本框内显示的结果为____5____，窗体上显示的结果为_7_____。8．设a = 6，则执行x = IIf(a > 5, 1, 0)后，x 的值为____1_____。
9．以下程序的功能是：输入一个3位正整数，将之逆序输出。例如，输入345，则输出543。请在空格处填入适当的内容，构成完整程序。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a%, b%, c%, m%
m = InputBox("请输入一个正整数：")
a = ___________①__ m \ 100_____
b = ______________②___(m - a * 100) \ 10____
c = m Mo
d 10
MsgBox "结果=" +_________________③__ Str(c * 100 + b * 10 + a)__
End Sub
10以下程序的功能是：在窗体中每次单击窗体时，窗体均向右移动100缇。请在空格处填入适当的内容，构成完整程序。
Public Class Form1
Dim x!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
x = x + ______①___100_
Me._______ ②_ Left__ = x
End Sub
End Class
VB循环结构测试题及答案
循环结构测试题(四) 一：选择题 1：以下（）是正确的for….next结构。 （A）for x=1 to step 10 (B) for x=3 to –3 step -3….. ….. next x next x (C ) for x=1 to 10 (D) for x=3 to step 3 re: …. …… Next x next y If I=10 then goto re 2:下列循环语句能正常结束循环的是（） （A）I=5 (B) I=1 do do I=I+1 I=I+2 Loop until I<0 loop until I=10 (C) I=10 (D) I=6 do do
I=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（ ） for I=3 to 1 step –1 print spc(5-I); for j=1 to 2*I-1 print “*”; next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print ; end sub (A) ABCD (B) ( C ) AABABCABCD * * * * (B) * * * * * * * * (C) * * * * * * * * (D) * * * * * * * * A B C (D) A AB ABC
5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） 二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*” 。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I 3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。 30 for j=1 to 12 step 3 40 for k=6 to 2 step –2 41 print j,k 42 next k （A ） for I=1 to 4 n=1 for j=1 to I （B ） for I=1 to 4 for j=1 to I n=1 (C) N=1 for j=1 to 4 (D) N=1 J=1 Do while j<=4
VB程序设计课后习题答案(科学出版社)
同步练习1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1．可视 2．LEFT、TOP、WIDTH、HEIGHT 3．按字母顺序 4．查看代码 5．工具、编辑器 6．FORM窗体、FONT 7．MULTILINE 8．在运行时设计是无效的 9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0 同步练习3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1．整型、长整型、单精度型、双精度型 2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19 4．FALSE 5．-4、3、-3、3、-4、4 6．CDEF 7．(X MOD 10)*10+X\10 8．(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9．X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习4 一、选择题 01——05 DBCAD 06——10 CBBAB
11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 3 3．X>=7 4．X VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。 实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5 （3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③ vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23 25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb 北京语言大学网络教育学院 《VB》模拟试卷一 注意： 1.试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。请监考老师负责监督。 2.请各位考生注意考试纪律，考试作弊全部成绩以零分计算。 3.本试卷满分100分，答题时间为90分钟。 4.本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。 一、【单项选择题】(本大题共20小题，每小题2分，共40分)在每小题列出的四个选项中只有一个选项是符合题目要求的，请将正确选项前的字母填在答题卷相应题号处。 1、关于VB的特点描述错误的是（）。 [A] VB编程是可视化编程[B] 是面向对象的程序设计 [C]不可以访问数据库[D]采用事件驱动编程机制 2、下面关于鼠标的指针设置说法不正确的是（）。 [A] 可以使用MouseIcon设置鼠标的形状 [B] 可以使用MousePointer设置鼠标的形状 [C] MousePointer设为99时，可用MouseIcon设置鼠标的形状 [D] MouseIcon只能通过属性窗口选择鼠标形状 3、Dim Snow（1 to 12 ，1），As Integer 是大小为（）的二维数组。 [A]13*2 [B] 13*1 [C] 12*2 [D] 12*1 4、在工具箱里的都是（）。 [A] 标准控件[B] 外部控件 [C] ActiveX控件[D] 可插入对象（OLE） 5、一个窗体大小改变时被触发的事件是（）。 [A] Click事件[B] Resize事件 [C] Initialize事件[D] Unload事件 6、下列关于控件说法不正确的是（）。 [A] Agent控件用于设置动画行为 [B] TextBox用于接收用户输入的信息 [C] Frame用于将控件分为若干组，当框架移动时，其中的控件不移动 [D] ListBox向列表中添加一个新的项目 7、关于CheckBox控件描述错误的是（）。 [A] 是复选框按钮，用√表示选中[B] Value用来表示复选框状态。 [C] Value为1表示选中该框[D] Value为0表示该框被禁止，显示灰色 8、关于Shape控件描述正确的是（）。 [A] 用于向窗体添加矩形、圆形等图形[B] Arial取值有7种，FillStyle取值有8种 [C] Arial用于设置显示控件的形状[D] FillStyle用来设置控件填充风格。 9、下面不属于循环控制语句的是（）。 1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5 一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”，正确的语句是：a A．Form1.Caption=“正在复制文件…” B．Form1.Title=“正在复制文件…” C．Form1.Text=“正在复制文件…” D．Form1.名称=“正在复制文件…” 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：a A．1000 B．100 C．10 D．1 3、下列关于控件的基本操作中，错误的是 A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小 4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是： A) ①②③B) ①③②C) ③②①D) ③①② 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：c A．MaxLength设置为0 B．Cancel设置为True C．Locked设置为True D．Read设置为True 6、InputBox函数返回值的类型为。B A．数值B．字符串C．变体 D．数值或字符串（视输入的数据而定） 7、为了把焦点移到某个指定的控件，所使用的方法是：A A．SetFocus B．Visible C．ReFresh D．GetFocus 8、函数String(3,”str”)的功能是：b A．把数值型数据转换成字符串 B．返回有3个字符串组成的字符串 C．从字符串中第3个字符 D．从字符串中第3个字符的位置开始取字符串 9、双击窗体中的对象后，Visual Basic将显示的窗口是：c A．项目（工程）窗口B．工具箱C．代码窗口D．属性窗口 10、用于获得字符串s最左边4个字符的函数是：a A．Left(s,4) B．Left(1,4) C．LeftStr(s) D．LeftStr(3,4) 11、以下程序段的输出结果是：d a=Sqr(3) b=Sqr(2) c=a>b Print c A．-1 B．0 C．False D．True 12、用下面语句定义的数组的元素个数是：c Dim A (-4 to 6) As Integer A．6 B．7 C．11 D．9 《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) | 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A", <一>界面设计 1、以下有关对象属性的说法中正确的是D 。A、对象所有的属性都罗列在属性窗口列表中B、不同对象不可能有同名属性 C、不同对象的同名属性取值一定相同 D、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变 2、有程序代码：Text1.Text=”Visual Basic”其中的Text1、Text和”Visual Basic”分别代表 C 。 A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值 3、一个对象可以执行的动作与可被对象识别的动作分别称为B 。A、事件，方法B、方法，事件C、属性，方法D、过程，事件 4、Visual Basic是一种面向D 的程序设计语言。 A、过程 B、用户 C、方法 D、对象5、一只白色的足球踢进球门，则白色、足球、踢、进球门是B 。A、属性、对象、方法、事件B、属性、对象、事件、方法C、对象、属性、方法、事件D、对象、属性、事件、方法6、Visual Basic是用于开发B 环境下的应用程序的工具。A、DOS B、Windows C、DOS和Windows D、UNIX 7、一个可执行的Visual Basic中应用程序至少要包括一个C 。A、标准模块B、类模块C、窗体模块D、辅助模块8、在Visual Basic 最基本的对象是B ，它是应用程序的基石。A、标签B、窗体C、文本框D、命令按钮 9、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入A 。A、- B、+ C、& D、# 10、在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入B 符号，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。 A、下划线 B、& C、$ D、@ 11、在窗体Form1的Click事件过程中有以下语句： Label1.Caption=”visual basic” 若本语句执行前，标签控件的名称属性和Caption属性取缺省值，则标签控件的名称属性和Caption 属性在执行本语句前的取值分别为 C 。 A、Label, Label B 、Label, Caption C、Label1, Label1 D、Caption, Label 12、同上题，该语句执行后，标签控件的名称属性和caption属性取值分别为B 。 A、Label, visual basic B、Label1, visual basic C、Label1, caption D、Label1, label1 13、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click()事件，则命令按钮控件的名称属性和Caption属性分别 为C 。 A、OK、Cmd B、Cmd、OK C、CmdOK、OK D、OK、CmdOK 14、窗体Form1的名称属性是frm，它的Load事件过程名是A 。 A、Form_Load B、Form1_Load C、frm_Load D、Me_Load 15、 用窗体的C__属性来设置窗体的标题。 《VB程序设计》综合复习资料 第一章 Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化 B．面向对象 C．面向图形 D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） 1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。 VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x 课后习题解答 第一、二章： 1、简述VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。2、当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否需要再次安装VB6.0？ 答：要重新安装的。因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。 3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在VB6.0的启动界面上，能显示对应的版本。 4、叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是VB98 8、安装Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。 9、如何使用Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定容有关的帮助信息。 10、什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执行的操作。 12、当标签边框的大小由Caption属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的Autosize属性值设置为true。 13、在VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？ 答：命令按钮的显示形式通过将Style属性值设置为Graphical来实现。通过Picture属性来装入图 高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为 100 分，考试时间为 110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共 30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc"B) "ABC" = UCase("abc") C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2B) 3C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ? ??≠≥=<=)(2) c (1 d c b a d b a x 且且 B) ? ??≠<=<=)(2) c (1 d c b a d b a x 且且 C) ?? ?≥=<=)(2) c (1b a d b a x 且 D) ?? ?≠=<=) (2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k Next k Print m; k;vb试题及答案
vb程序设计实验教程习题答案
vb练习题及答案.doc
VB模拟试卷和答案讲解
VB程序设计教程(第3版)课后实验答案最新版2
vb试题及答案
《VB程序设计》习题答案-林卓然编著
vb题库及答案
vb试卷答案
visual_Basic程序的设计教程_课后习题答案及练习
vb经典题目及答案
VB程序设计试题及答案(一)
VB程序的设计教程课后答案
VB期末试卷(A卷带答案 )