vb习题参考答案
https://www.wendangku.net/doc/08395736.html,框架中被用来访问数据库的组件集合为：B
A.ADO
https://www.wendangku.net/doc/08395736.html,
https://www.wendangku.net/doc/08395736.html,+
D.Data https://www.wendangku.net/doc/08395736.html,
2. https://www.wendangku.net/doc/08395736.html,中，取字符串”this is a test”的第一个字符，并将其赋值给字符变量ch。下列代码哪组正确？（假设已经定义变量ch） B
A. ch = Char(Mid(“this is a test”,0,1))
B. ch = CChar(Mid(“this is a test”,0,1))
C. ch = C har(Mid(“this is a test”,1,1))
D. ch = CChar(Mid(“this is a test”,1,1))
3. Textbox控件限制用户输入字符长度的属性为:C
A. CharacterCasing
B. Length
C. MaxLength
D. AutoSize
4. 过程changeName中执行下列代码后，字符串firstName的值是什么？A
Dim firstName as String = “Tom”
Dim secondName as String = firstName
secondName &= “Jerry”
A. Tom
B. Jerry
C. Tom Jerry
D. Tom & Jerry
5. 执行下列语句后，控制台输出什么结果A
Dim res as Integer = CType(“123.45”,Integer)
Console.Writeln(res)
A. 123
B. 12345
C. 0
D. res
6. 在https://www.wendangku.net/doc/08395736.html,中，无返回值的过程称为____A____过程
A. Sub
B. Function
C. Property
D. Main
7. 在模块MyModule中定义的过程ShowHelpInfo（如下），其访问权限为_____C____。
Public Module MyModule
……
Sub ShowHelpInfo(String info)
MessageBox.Show(info)
End Sub
……
End Module
A. 仅在MyModule中可以使用
B. 在本项目中可以使用
C. 在本解决方案中可以使用
D. 在派生模块中可以使用
8. 下列程序在控制台上的输出结果为_____B____。
Public Function MyFunc(i as Integer)
If i > 0 Then
Return 100
Else
End If
End Function
Public Shared Sub Main()
Dim x As Employee
Console.WriteLine(TypeName(x.MyFunc(-1)) & "," & TypeName(x.MyFunc(1)))
End Sub
A. Integer,String
B. String,Integer
C. Object,Object
D. String,String
9. 下列主过程Main中执行完语句x.MyFunc(i)后，局部变量i的值为____C____。
Class test
Public Sub MyFunc(ByVal i As Integer)
i = i * 2
End Sub
End Class
Sub Main()
Dim x As new test
Dim i As Integer = 100
x.MyFunc(i)
End Sub
A. 0
B. 2
C. 100
D. 200
10. 在调试https://www.wendangku.net/doc/08395736.html,中，可以使用Visual https://www.wendangku.net/doc/08395736.html,的下列哪种窗口查看和修改位于当前文本中的所有变量？比如过程的所有局部变量。B
A．局部变量窗口 B.监视窗口 C.快速监视窗口 D.自动窗口
11. 已知数组arr进行以下定义：Dim arr() as Integer = {1,1,1,1,1}
过程MySub定义如下：
Sub MySub(ByVal ar() As Integer, ByRef x As Integer)
Dim i As Integer
For i = 0 To UBound(ar) ' 注：UBound(ar)求数组ar的下标上限
ar(i) = x
Next
x = 0
End Sub
则执行下列语句后，数组arr和变量data中的内容是什么？ C
Dim data As Integer = 2
MySub(arr, data)
A. arr={2,2,2,2,2} data=2
B. arr={1,1,1,1,1} data=2
C. arr={2,2,2,2,2} data=0
D. arr={1,1,1,1,1} data=0
12. 表达式CInt(True)的值为
A. False
B. True
C. 1
D. -1
13. 执行下列语句后，变量x的值为______C_____
Dim x as Integer = 0
x = 3/2
A. 0
B. 1
C. 2
D. 3
14. 下列布尔表达式的值为_____A_______。
True and True Xor True and False
A. True
B. False
C. OrElse
D. AndAlso
15. 下列表达式的值为_____A_______。
True and 100+10*3<12^2
A. True
B. False
C. 130
D. 144
16. 分析下列程序，当运行结束后，在控制台上的输出是什么？A
Public Function Increment(ByRef value as Integer) AS Integer
value += 1
return value
End Function
Public Sub Main()
Dim n1 as Integer = 1
Dim n2 as Integer = 1
Dim result as Boolean
If n1=0 AndAlso Increment(n2)=1 Then
result = True
Else
result = False
End If
Console.Writeln(“n1=”& n1 & “,n2=”&n2)
End Sub
A. n1=1,n2=1
B. n1=0,n2=2
C. n1=1,n2=2
D. n1=0,n2=1
17. 在设计循环语句时，若有以下要求：1、在执行循环之前先测试条件表达式expression ；2、让代码循环执行到该条件表达式的值取“真”。则应使用下列哪种Do Loop循环语句？ A
A. Do Until expression ??Loop
B. Do ??Loop Until expression
C. Do While expression ??Loop
D. Do ??Loop While expression
18. 在使用OpenFileDialog对话框控件时，希望通过对话框只查找C++文件的程序文件(*.CPP)文件和头文件(*.H)，则OpenFileDialog对象的Filter属性应如何设置？ B
A. “C++程序文件:*.CPP;C++头文件:*.H”
B. “C++程序文件|*.CPP|C++头文件|*.H”
C. “C++程序文件\*.CPP\C++头文件\*.H”
D. “C++程序文件->*.CPP;C++头文件->*.H”
19. TextBox控件的PasswordChar属性的作用是C
A. 该属性是Boolean类型，表示是否使用*号隐藏输入的信息
B. 该属性是String类型，表示输入的隐藏信息的实际内容
C. 该属性是Char类型，表示是用哪个字符隐藏输入的信息
D. 该属性在https://www.wendangku.net/doc/08395736.html,中未使用
20. 为了使TextBox的ScrollBar真正起作用，应该将TextBox的“自动换行”功能取消。取消该功能，需要将TextBox控件的_______属性设置为False? C
A. ScrollBars
B. AcceptReturns
C. WordWrap
D. AutoSize
21. 使用Masked Edit控件输入金额数字时，对输入有以下格式要求：B
1、前面必须带$符号；
2、金额最多为999999元，且每3位用逗号分割,高位不保留0；
3、整数部分对10元取整，即个位必须为0；
4、小数部分保留2位,必须为0 。
金额数字的例子如：123,450.00。根据该要求，则控件的Mask属性应为
A. $999,99#.00
B. $999,990.00
C. $###,##0.00
D. $###,##9.00
22. 可以使用下列哪个函数来检测一个字符串的内容是不是数字格式？ A
A. IsNumeric
B. IsNothing
C. IsInteger
D. IsNumber
23. 类MyClass的定义如下：B
Public Class MyClass1
Private data as String
则关键字Private在类的定义中的作用是：
A. 限定成员变量data只在本模块内部可以使用；
B. 限定成员变量data仅在类MyClass的成员方法中可以访问；
C. 限定成员变量data仅仅可在类以及子类的成员方法中访问
D. 限定类MyClass仅在本模块中可以使用
24. 在https://www.wendangku.net/doc/08395736.html,中，一般使用关键字_____A___来标示重载方法。
A. Overloads
B. Overrides
C. Shadows
D. Public
25. 对于https://www.wendangku.net/doc/08395736.html,语句Speed = Miles/Hours(其中Speed、Miles、Hours都是Double值)，当Hours=0时，该语句将引发 D
A. 语法错误
B. 编译错误
C. 逻辑错误
D. 运行时错误
26. 当https://www.wendangku.net/doc/08395736.html,程序出现逻辑错误后，可以使用___C_____工具来隔离并改正代码中的逻辑错误？
A. 命令行下的Debug.exe
B. 汇编工具
C. Visual https://www.wendangku.net/doc/08395736.html,的调试工具
D. 任何一种语言的调试工具
27. 程序在语法上是合法的，在运行时也没有出现非法操作，但结果不合理，这种错误在https://www.wendangku.net/doc/08395736.html,中称为C
A. 语法错误
B. 运行时错误
C. 逻辑错误
D. 不明错误
28. 在调试https://www.wendangku.net/doc/08395736.html,程序时，Visual https://www.wendangku.net/doc/08395736.html,的“自动窗口”可以查看当前行语句以及其前、后各__C___语句中的变量，并可以修改其值。
A. 1行
B. 2行
C. 3行
D. 4行
29. Win窗体设计时，应该为工具栏的___B______事件编写事件处理程序，以响应用户点击工具栏的按钮？
A. Click
B. ButtonClick
C. KeyDown
D. MouseDown
30. Win窗体的工具栏对象为ToolBar1。为了在工具栏中添加新的按钮，应该在对象ToolBar1的“属性”视图下编辑ToolBar1的____C_____属性
A. Appearance
B. ImageList
C. Buttons
D. ShowToolTips
31. Win窗体的工具栏对象为ToolBar1。为了将工具栏中的所有按钮用图形显示，则应该在对象ToolBar1的“属性”视图下编辑ToolBar1的____B_____属性
A. Appearance
B. ImageList
C. Buttons
D. ShowToolTips
32. 若不准备使用状态栏的窗格显示信息，则应该将_____A____属性设置为False。
A. ShowPanels
B. Panels
C. Enabled
D. Visible
33. 如要实现菜单功能，应向菜单项的__B_______事件添加代码？
A. Command
B. Click
C. Popup
D. Select
34．数学函数式Sin25°写成https://www.wendangku.net/doc/08395736.html,表达式是 D 。
A．sin25 B．sin(25) C．sin(25) D．sin(25*3．14/180)
35．下列哪组语句可以将变量A、B的值互换 C 。
A．A=B:B=A B．A=A+B:B=A–B:A=A+B
C．C=A:A=B:B=C D．A=(A+B)/2:B=(A–B)/2
36．“x是小于100的非负数”，用https://www.wendangku.net/doc/08395736.html,表达式表示正确的是 C 。
A．0≤x＜100 B．0<=x<100
C．0<=x And x< 100 D．0<=x Or x<100
37．https://www.wendangku.net/doc/08395736.html,中，修改了主窗体的某个属性后，发现无法启动程序，原因可能是 C 。
A．修改了主窗体的caption属性
B．修改了主窗体的ismainform属性
C．修改了主窗体的name属性
D．修改了main函数
38．在模块MyModule中定义的过程ShowHelpInfo，其访问权限为 C 。
Public Module MyModule
……
Sub ShowHelpInfo(String info)
MessageBox．Show(info)
End Sub
……
End Module
A．仅在MyModule中可以使用B．在本项目中可以使用
C．在本解决方案中可以使用D．在派生模块中可以使用
39．在https://www.wendangku.net/doc/08395736.html,中，无返回值的过程称为 A 过程。
A．Sub B．Function C．Property D．main
二、分析题
1．已知数组arr进行以下定义：
Dim arr() as Integer = {1,1,1,1,1}
过程MySub定义如下：
Sub MySub(ByVal ar() As Integer, ByRef x As Integer)
Dim i As Integer
For i = 0 To UBound(ar) ' 注：UBound(ar)求数组ar的下标上限
ar(i) = x
Next
x = 0
End Sub
则执行下列语句后，数组arr和变量data中的内容是(arr（2，2，2，2，2）data=0
)。
Dim data As Integer = 2
MySub(arr, data)
2．以下代码：
x = Microsoft．visualbasic．left(“gbc13”,1) & Mid(“pool”,2,2) & Microsoft．visualbasic．right(“god”,1)
变量x等于good 。
3．在窗体上放入一个名称为Button1命令按钮和两个名称分别为TextBox1、TextBox2两个文本框，然后编写如下事件过程：
Private Sub Button1_Click(ByVal sender As System．Object, ByVal e As
System．EventArgs) Handles Button1．Click
Dim n, x As Integer
n = CInt(TextBox1．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
TextBox2．Text = x
End Sub
程序运行后，在文本框TextBox1中输入10，然后单击命令按钮，则在TextBox2中显示的内容是10 。
4．窗体中有一个名称为Button1的命令按钮、一个Label1控件对象，编写如下事件过程：Private Sub Button1_Click(ByVal sender As System．Object, ByVal e As
System．EventArgs) Handles Button1．Click
Dim n As String, x, i, j As Integer
x = 0
n = InputBox("请输入一个大于1的整数", "输入框")
For i = 1 To CInt(n)
For j = 1 To i
x = x + 1
Next j
Next i
Label1．Text = CStr(x)
End Sub
程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是( 6 )。
5．在窗体上放入一个名称为Button1命令按钮和1个名称为TextBox1文本框，然后编写如下事件过程：
Private Sub Button1_Click(ByV al sender As System．Object, ByV al e As
System．EventArgs) Handles Button1．Click
Dim x,y,z As Integer
x=5: y=7: z=0
extBox1．Text =x & y & z
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的内容是570 。
6、窗体上有两个标签Label1和Label2，还有一个按钮Button1。应用程序运行时，单击Button1，预测以下代码的输出：答案：Label1显示：For the Item Code：I60
Label2显示：The units sold is：180
Public Class Form1
Inherits System.Windows.Forms.Form
Dim J As Integer
Private Sub Button1_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button1.Click
J = Item_Status("I60", 90)
Label2.Text = "The units sold is: " & J
End Sub
Public Function Item_Status(ByV al ItemCode As String, ByV al Amount As Single) As Integer
Amount = Amount + 90
Label1.Text = "For the Item Code: " & ItemCode
Return Amount
End Function
End Class
7、窗体Form1上有一个标签Label1和一个按钮Button1。以下代码被添加至Form1的Code Editor窗口中。运行时单击Button1将会有什么结果？
Public Class Form1
Inherits System.Windows.Forms.Form
Dim Monthly_Salary As Integer
Dim Annual_Salary As Integer = 40000
Dim months As Integer = 12
Private Sub Button1_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button1.Click
Monthly_Salary = Calculate_A verage(Annual_Salary, months)
Label1.Text = "The salary earned per month is: " & Monthly_Salary
End Sub
Public Function Calculate_A verage(ByV al asalary As Integer, ByV al mnths As Integer) As Integer
asalary = asalary \ mnths
Return asalary
End Function
End Class
8．窗体上有一个名为Button1的命令按钮和一个标签框，然后编写如下事件过程：Private Overloads Sub Button1_Click(ByVal sender As System．Object, ByVal e As System．Event Args) Handles Button1．Click
Dim num As Integer
num = 1
Do Until num > 6
Label1．Text = num
num = num + 2．4
Loop
End Sub
程序运行后，单击命令按钮，则在标签框上显示的内容是答案：Label1显示：The salary earned per m onth is：3333 。
三、综合题
1.由测量可知，已知一点坐标、距离和方位角可以计算另一点的坐标。试绘出实现该功能的用户界面图，并写出主要代码。
2.在测量中可知，已知两点坐标可以计算两点的直线距离和方位角。试绘出实现该功能的用户界面图，并写出主要代码。
（略）
2界面
对象属性设置
Form Name Form1
Text 已知两点计算两点距离和方位角TextBox1 Name TextBox1
Text
TextBox2 Name TextBox
Text
TextBox3 Name TextBox3
Text
TextBox4 Name TextBox4
Text
TextBox5 Name TextBox5
TextBox6 Name TextBox6
Text
Label1 Name Label1
Text x1
Label2 Name Label2
Text y1
Label3 Name Label3
Text x2
Label4 Name Label4
Text y2
Label5 Name Label5
Text 距离S=
Label6 Name Label6
Text 方位角a=
Button Name Button1
Text 计算
代码：Public Class Form1
Private Sub Button1_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button1.Click
Dim x1, y1, x2, y2, dx, dy, r, S As Double'定义变量
Dim pi = 3.1415926 '定义常量
x1 = TextBox1.Text '为变量赋值
y1 = TextBox2.Text '为变量赋值
x2 = TextBox3.Text '为变量赋值
y2 = TextBox4.Text '为变量赋值
dx = x1 - x2 '求纵坐标增量
dy = y1 - y2 '求横坐标增量
r = Math.Atan(Math.Abs(dy) / Math.Abs(dx))
S = Math.Sqrt((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
TextBox5.Text = S '计算象限角
If dx > 0 And dy > 0 Then'第一象限
TextBox6.Text = r '显示坐标方位角
ElseIf dx < 0 And dy > 0 Then'第二象限
TextBox6.Text = pi - r '显示坐标方位角
ElseIf dx < 0 And dy < 0 Then'第三象限
TextBox6.Text = pi + r '显示坐标方位角
ElseIf dx > 0 And dy < 0 Then'第四象限
TextBox6.Text = 2 * pi - r '显示坐标方位角
End If
End Sub
End Class
此题角度为弧度，还可以改进
1.界面
代码:
Public Class Form1
Private Sub Button1_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button1.Click
Dim x1, y1, x2, y2, dx, dy, a, S As Double
Dim pi = 3.1415926
x1 = TextBox1.Text
y1 = TextBox2.Text
S = TextBox3.Text
a = TextBox4.Text
dx = S * Math.Cos(a)
dy = S * Math.Sin(a)
x2 = x1 + dx
y2 = y1 + dy
TextBox5.Text = x2
TextBox6.Text = y2
End Sub
End Class
角度为弧度，可改进
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考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/08395736.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。 A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0 1. _________________ GBK 字符集共有 C 汉字。 A 、6000 多 B 、10000 多 C 、20000 多 D 、30000 多 2. 美国标准信息交换码（ASCII 码）中，共有128个字符，包括___B_ 32个控制字符。 A 、52 B 、96 C 、116 D 、101 3. 在计算机中，西文字符最常用的编 码是 __C ―。 A 、原码 B 、反码 C 、ASCII 码 D 、补码 4?下列四个选项中，按照其 ASCII 码值从小到大排列的是 A Q A 、 数字、英文大写字母、英文小写字母 B 、 数字、英文小写字母、英文大写字母 C 、 英文大写字母、英文小写字母、数字 D 英文小写字母、英文大写字母、数字 5?下列字符中，其 ASCII 编码值最大的是__B ________ Q A 、9 B 、D C 、A D 、空格 6. 中文标点符号“。”在计算 机中存储时占用 —B_个字节。 A 、1 B 、2 C 、3 D 、4 7. GBK 是汉字内码 的一种扩充规范，下面叙述中错误的是 _B _ Q A. 它共有20000多个汉字 B. 、它使用双字节表示，字节的最高位均为 0 C. 、它与GB2312保持向下兼容 D 它不但有简体字，也有繁体字 &汉字从录入到打印，至少涉及三种编码，汉字输入码，字型码和 _D A 、BCD 码 B 、ASCII 码 C 、区位码 D 、机内码 9. 在下列汉字编码标准中，不支持繁体汉字的 是 _A Q 个可打印字符和 其原因不可能 A、GB2312 B、GBK C、BIG5 D、GB18030 10.在利用拼音输入汉字时，有时虽正确输入拼音码但却找不到所要的汉字, 是A ______ Q A 、计算机显示器的分辨率不支持该汉字的显示 B 、汉字显示程序不能正常工作 C 、操作系统当前所支持的汉字字符集不含该汉字 D 、汉字输入软件出错 11 ?将字符信息输入计算机的方法中，目前使用最普遍的是_A _ 。 A、键盘输入 B 、笔输入. C语音输入D、印刷体识别输入 12?汉字的键盘输入方案数以百计，能被用户广泛接受的编码方案应_C _ 。 A、必须易学易记 B可输入字数多 C.、易学易记，效率要高 D重码要少，效率要高 13. ________________ MP3音乐采用 C 编码方法。 A、MPEG-1层1 B、MPEG-1 层2 C 、MPEG-1 层3 D、MPEG-2audio 14.Windows操作系统中的“帮助”文件，为方便用户使用，提供了超文本功能，超文本采 用的信息组织形式为_C _______ 。 A 、线性结构 B 、层次结构 C 、网状结构 D 、顺序结构 15?使用计算机进行文本编辑与文本处理是常用的两种操作，下列不属于文本处理的是_ C_。 A.、文本检索 B 、字数统计 C文字输入 D 、文语转换 实验教材实验一 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) ③ 第1，3，5，8题答案在教材中找。 2. 赋值语句的错误 （1）10x 不能做变量名。 上机验证结果：VB将10识别为行号，x = Sin(x) + y是为变量x赋值。故无语法错误。（2）Sqr函数的参数为负数。 上机验证结果：“无效的过程调用或参数” （3）赋值号左边不是变量名。 上机验证结果：“缺少子程序、函数或属性” （4）除数为0 上机验证结果：“溢出”。 4. [答案略] 说明：小数位可以使用四舍五入函数Round或输出格式函数Format。例如Round(x, 2)和Format(x, “0.00”)均可使结果只保留两位小数。但如果四舍五入后要进行数值运算，则使用Round函数，例如z=Round(x,2)+Round(y,2)。而Format函数通常只用于输出格式设置。 6．指出错误 （1）“≥”应改为“>=”，前者是中文字符，不具有运算功能。 （2）“10 Dim c As String c = InputBox("c=") If Mid(c, 3, 1) = "C" Then MsgBox "Yes" Else MsgBox "No" End If （2） # 使用If语句 Dim x As Single, y As Single x = Val(InputBox("x=")) If x > 20 Then y = x ^ 2 + 3 * x + 2 ElseIf x >= 10 Then y = Sqr(3 * x) - 2 ElseIf x > 0 Then y = 1 / x + Abs(x) End If Print "y="; y # 使用Select Case语句 Dim x As Single, y As Single x = Val(InputBox("x=")) Select Case x Case Is > 20 y = x ^ 2 + 3 * x + 2 Case Is >= 10 y = Sqr(3 * x) - 2 Case Is > 0 y = 1 / x + Abs(x) End Select Print "y="; y （3） # 使用If语句 Dim x As Single, y As Single, z As Single, Max As Single x = Val(InputBox("x=")) y = Val(InputBox("y=")) z = Val(InputBox("z=")) Max = x If y > Max Then Max = y If z > Max Then Max = z 第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 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 第5章数组与记录 5．1 填空题 1．若要定义一个包含10个字符串元素，且下界为1的一维数组s，则数组说明语句为（）。 答案：Dim s(1 To 10) As String 2．若要定义一个元素为整型数据的二维数组a，且第一维的下标从0到5，第二维下标从-3到6，则数组说明语句为（）。 答案：Dim a(0 To 5,-3 To 6) As Integer 3．如果数组元素的下标值为实数，则VB系统会按（）进行处理。 答案：四舍五入原则 4．数组元素个数可以改变的数组称为（）；数组元素可以存放不同类型数据的数组称为（）。 答案：可调数组、可变类型数组 5．数组刷新语句用于（）。若被刷新的数组是数值数组，则把所有元素置（）；若被刷新的数组为字符串数组，则把所有元素置（）。 答案：清除指定数组内容、０、空字符串 10．控件数组是由一组类型和（）相同的控件组成，共享（）。 答案：名字、同一个事件过程 11．控件数组中的每一个控件都有唯一的下标，下标值由（）属性指定。 答案：Index 12．建立控件数组有两种方法：（）和（）。 答案：在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法 5．2 选择题 1．下列一维数组说明语句错误的是（）。 a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Byte c) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String 答案：c 2．若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（）。 a) 5 b) 8 c) 11 d) 12 答案：d 3．设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中（）是错误的。 a) c(i-1) b) c(5+ c) c(0) d) c(10) 答案：c 4.下列数组说明语句中正确的是（）。 a) Dim a(-1 To 5,8)AS String b) Dim a(n,n)AS Integer c) Dim a(0 To 8,5 To –1)AS Single d) Dim a(10,-10)AS Double 1．下列不是VB常量的是 B 。 A）3.14 B）′Name ′ C)#10/18/2007# D)True 2．确定控件在窗体上位置的属性是 C 。 A）Width 和Height B）Width 和Top C）Top 和Left D）Top 和Height 3．数学表达式1≤X＜10表示成正确的VB表达式为 B 。 A）1≤X＜10 B）X＞=1 And X＜10 C) X＞=1 Or x＜10 D) X＞=1 And ＜10 4. 下面的__ B ___语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。 A）Print "A";Tab(9);"b" B）Print "A";Spc(8);"b" C）Print "A";Space(10);"b" D）Print "A";Tab(8);"b" 5. 下列控件中，不能改变大小的控件是 D 。 A）TextBox B）Label C）Frame D）Timer 6．Visual Basic过程的编写是在 D 中进行的。 A）窗体窗口B）工程资源管理器窗口C）属性窗口D）代码编辑窗口 7. 在Visual Basic中，声明全局变量应该用 D 关键字。 A）Dim B）Private C）Static D）Public 8. 在Visual Basic表达式中，运算符的运算顺序为 A 。 A）算术运算符—>字符串运算符—>关系运算符—>逻辑运算符 B）逻辑运算符—>关系运算符—>字符串运算符—>算术运算符 C）字符串运算符—>算术运算符—>关系运算符—>逻辑运算符 D）关系运算符—>逻辑运算符—>算术运算符—>字符串运算符 9. 下列属于非法调用的函数是 A 。 A）sqr(-5) B)Sgn(-5) C)Exp(-5) D)Int(-5) 10. 下列能够正确输出”a=8”形式的语句是 B 。 A）print a=3+5 B）pirnt “a=”;3+5 C）print “a=3+5”D）print a=;3+5 11. 下列符号中，可以用作VB变量名的是 C 。 A）x.y.z B)3xyz C)x_yz D)Integer 12. 可以删除字符串两端空格的函数是 A 。 A）Trim B）Rtrim C）Ltrim D）Mid 13. 函数Int(Rnd*80)+1是在 D 范围内产生随机整数。 A）[0，80] B）[0，79] C）[1，79] D）[1，80] 《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 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile Microsoft ” B )print “Microsoft Microsoft ” D ) Debug.print Microsoft 输入inputbox 返回值的类型是( A )字符型B )整型 C )浮点型 D )长整型 (3) 用来设置设置文本框有无滚动条的属性的值为( A ) D)selle ngth (4) i nt(rnd*50)+10 表示的是(D )范围内的整数。 A) [0，50] B)[1 ，60] C)[10 ，60] D)[10 ，59] (5) 下列各控件不包含滚动条的是(D )。 A)listbox B)combobox C)textboa D)labelbox (6) 为了暂时关闭计时器，应把该计时器控件的( C )属性 设置为false. A)visible B)timer C)e nabled D)i nterval (7) 设置列表框选中的文本，用(C )属性。 A ) Selected B ) List C ) Text D ) Caption (8) 未选中复选框控件时，Value 属性的值为(C ) A ) True B ) False C ) 0 D ) 1 (9) 某一 VB 工程含F1. F2两个窗体，执行“F1. Show F2. Hide ” 语句后，F1. F2 复习题及参考答案 、选择题 (1)使“ Microsoft 在当前窗口上输出的语句是( A ) Picture.print C ) printer.print A)Scrollbars B)Multili ne C)Seltext 窗体显示的结果为 C 。 A) 都显示B)都不显示C)仅显示F1窗体D)仅显示F2窗体 (10) 在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2 ; 六个标签，名称分别为Labell、Label2、Labe l3、Label4、Label5、Label6，其中标签Label 4~ Label6 分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值， Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2 中显示的 两个值求积，并将结果显示在Label3中。以下不能实现上 述功能的事件过程是(A )。 A) Private Sub Command1_Click() Label3.Caption = Str(Val(Label1. Caption )*Val( Label2.Captio n)) End Sub B) Private Sub Command1_Click() Label3.Caption = HScroll1.Value * HScroll2.Value End Sub C) Private Sub Command1_Click() Label3.Caption = Val(Label1. Caption )*Val( Label2.Captio n) End Sub D) Private Sub Comma nd1_Click() 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程序设计》综合复习资料 第一章 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事件的操作是（） 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、简述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考试题库
VB习题及答案
vb程序设计实验教程习题答案
vb习题参考答案
VB练习题含答案
VB程序设计教程(第3版)课后实验答案最新版2
vb课后练习答案习题解答
vb考试题及答案
《VB程序设计》习题答案-林卓然编著
VB考试题及答案
VB复习题及参考答案
vb练习题及答案.doc
visual_Basic程序的设计教程_课后习题答案及练习
vb试题及答案
VB程序的设计教程课后答案