第1章参考答案
1．选择题
（1）B （2）B
2．综合题
（1）属性有：蓝色、带有纹路；方法有：踢、按住；事件有：滚动、静止。
（2）VB应用程序开发的一般步骤有：①创建用户界面；②设置对象的属性；③编写代码；④程序运行与调试；⑤保存与编译。
第2章参考答案
1．选择题（1）A （2）C （3）D （4）B （5）A （6）C
2．操作题
Private Sub Command1_Click()
Label1.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
Text1.Text = ""
End Sub
Private Sub Form_Load()
Label1.Caption = ""
Text1.PasswordChar = "$"
End Sub
第3章参考答案
1．选择题
(1)B、C 分析：(B)3Acd 以数字开头；(C)IF是VB的关键字
(2)B 分析：逻辑常量的值只有两个True和False，特别注意”false”是字符串常量。
(3)C 分析：VB表达式不区分大小写。
(4)C 分析：Long是长整型，Byte是字节型，Interge是整型。
2．综合题
(1) a = Int(Rnd * (100)) 分析：产生一个区间在[m,n]之间的随机整数,其表达式
为Int(Rnd*(n-m+1)+m)
(2) Int(X*100+0.5)/100 分析：Int(X*100+0.5)的作用是将X扩大100倍后，第三位小数小于0.5，则舍掉，大于0.5，则产生进位，取整后就是四舍五入的作用，再除以100，是还原为原值。
(3)
Private Sub Command1_Click()
a = Int(99 * Rnd + 1)
b = Int(99 * Rnd + 1)
Label1.Caption = a & "+" & b & "=?"
End Sub
(4) ①False ②True ③8 Mod 3+3^3/4\5（有改动）答案：3
第4章参考答案
1．填空
(1)T F (2)F (3) HEIGHT>160 AND HEIGHT<165 END IF
(4)SCORE>60、LblSc.caption=、ELSE、LblSc.caption=、ENDIF (5)EXIT
(6)21 (7)16 (8) 0 、1 、>100 、Total+Num、Num+2
2．程序设计题（略）
第5章章参考答案
1．选择
C C
D B D D B C C A B A C B B
2．操作题
（1）实现多中选一的功能，通过用图片框和框架来实现单选按钮的分组，方法是，选中图片框或框架后，再在里面绘制单选按钮，另一种方法是将绘制好单选按钮剪切粘贴到图片框或框架中。
（2）第一种方法是：在属性面板中通过List属性添加，操作方法是，每输入一项按Ctr＋回车。
第二种方法是：在代码中动态增加或减少选项，应用AddIitem和RemoveItem来完成。
（3）应设置Timer属性，值设置为200，用设置计时器控件的Enabled属性为True 或False来控制。
（4）
Dim tao(1 To 10) As String
Private Sub Command1_Click()
Dim Str As String
For i = 1 To 10
If tao(i) <> "" Then Str = Str & Chr(10) + Chr(13) & tao(i)
Next
MsgBox "您共买了：" & Str, vbOKOnly, "合计"
End Sub
Private Sub Form_Load()
List1.AddItem "铅笔"
List1.AddItem "橡皮"
List1.AddItem "格尺"
List1.AddItem "笔记"
List1.AddItem "水性笔"
List1.AddItem "小刀"
List1.AddItem "钢笔"
For i = 1 To 10
Combo1.AddItem i & "件"
Next i
Combo1.Text = "1件"
Combo1.Enabled = False
End Sub
Private Sub List1_Click()
Label2.Caption = "单价：" & Val(List1.ListIndex + 1) * 1 & "元"
If List1.Selected(List1.ListIndex) Then
If tao(List1.ListIndex + 1) <> "" Then Combo1.Text = Val(Right(tao(List1.ListIndex + 1), 2)) & "件"
Combo1.Enabled = True
Label1.Caption = List1.Text & Combo1.Text
tao(List1.ListIndex + 1) = Label1.Caption
Else
Combo1.Text = "1件"
Combo1.Enabled = False
End If
End Sub
Private Sub Combo1_Change()
If List1.Selected(List1.ListIndex) Then
Label1.Caption = List1.Text & Combo1.Text
tao(List1.ListIndex + 1) = Label1.Caption
End If
End Sub
Private Sub Combo1_Click()
If List1.Selected(List1.ListIndex) Then
Label1.Caption = List1.Text & Combo1.Text
tao(List1.ListIndex + 1) = Label1.Caption
End If
End Sub
（5）
Private Sub Form_Load()
Combo1.AddItem "宋体"
Combo1.AddItem "新宋体"
Combo1.AddItem "隶书"
Combo1.AddItem "楷体_GB2312"
Combo1.AddItem "黑体"
Combo1.AddItem "华文行楷"
Combo1.AddItem "华文彩云"
Combo1.AddItem "华文新魏"
Combo1.Text = "宋体"
For i = 10 To 50 Step 2
Combo2.AddItem i
Next i
End Sub
Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub
Private Sub Combo2_Click()
Text1.FontSize = Val(Combo2.Text)
End Sub
Private Sub Combo2_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then
If Val(Combo2.Text) < 5 Then
Text1.FontSize = 5
Combo2.Text = 5
Else
Text1.FontSize = Val(Combo2.Text)
End If
End If
End Sub
Private Sub Option1_Click()
Text1.ForeColor = vbBlack
End Sub
Private Sub Option2_Click()
Text1.ForeColor = vbRed
End Sub
Private Sub Option3_Click()
Text1.ForeColor = vbYellow
End Sub
Private Sub Option4_Click()
Text1.ForeColor = vbBlue
End Sub
Private Sub Option5_Click()
Text1.ForeColor = vbGreen
End Sub
第6章参考答案
1．填空题
（1）静态数组（2） 0 、 Lbound( ) （3）20 （4）Erase （5） Name 、 Index 2．编程题
（1）参考代码：
Private Sub Form_Click()
Dim i, n, a(1 To 10) As Integer
Randomize (Timer)
For i = 1 To 10
a(i) = Int(100 * Rnd)
Next
n = 1
For i = 2 To 10
If a(n) < a(i) Then
n = i
End If
Next
Print "最大值为"; a(n); "位置为"; n
End Sub
（2）参考代码：
Private Sub Form_Click()
Dim i, A(1 To 20), B(1 To 19) As Integer
Print "数组A为：";
For i = 1 To 20
A(i) = Int(100 * Rnd)
Print A(i);
Next
Print "数组B为：";
For i = 1 To 19
B(i) = A(i) + A(i + 1)
Print B(i);
Next
End Sub
（3）参考代码：
Private Sub Form_Click()
Dim i, j, Temp, A(1 To 10), B(1 To 10), C(1 To 20) As Integer Randomize (Timer)
For i = 1 To 10
A(i) = Int(1000 * Rnd)
B(i) = Int(1000 * Rnd)
C(2 * i - 1) = A(i)
C(2 * i) = B(i)
Next
For i = 1 To 19
For j = i + 1 To 20
If C(i) < C(j) Then
Temp = C(j)
C(j) = C(i)
C(i) = Temp
End If
Next
Next
For i = 1 To 20
Print C(i);
Next
End Sub
（4）参考代码：
Private Sub Form_Click()
Dim i, j, m, n, A(1 To 5, 1 To 6) As Integer
For i = 1 To 5
For j = 1 To 6
A(i, j) = Int(100 * Rnd)
Next
Next
m = 1
n = 1
For i = 1 To 5
For j = 1 To 6
If A(m, n) < A(i, j) Then
m = i
n = j
End If
Next
Next
Print "最大值为"; A(m, n); "行号为"; m; "列号为"; n
End Sub
（5）参考代码：
Private Sub Form_Click()
Dim i, j, A(1 To 4, 1 To 4), B(1 To 4, 1 To 4) As Integer
Dim Add(1 To 4, 1 To 4), Subtract(1 To 4, 1 To 4) As Integer Randomize (Timer)
For i = 1 To 4
For j = 1 To 4
A(i, j) = Int(100 * Rnd)
B(i, j) = Int(100 * Rnd)
Add(i, j) = A(i, j) + B(i, j)
Subtract(i, j) = A(i, j) - B(i, j)
Next
Next
End Sub
（6）参考代码：
Private Sub Form_Click()
Dim n, i, Temp, a() As Integer
n = Val(InputBox("请输入数组的长度", "输入数组长度"))
ReDim a(n - 1) As Integer
Print "原数组：";
For i = 0 To n - 1
a(i) = Val(InputBox("请输入数组元素值", "输入数据")) Print a(i);
Next
For i = 0 To Int(n / 2 - 1)
Temp = a(i)
a(i) = a(n - 1 - i)
a(n - 1 - i) = Temp
Next
Print "新数组：";
For i = 0 To n - 1
Print a(i);
Next
End Sub
（7）参考代码：
Private Sub Form_Click()
Dim n, i, j, Temp, num, a() As Integer
n = Val(InputBox("请输入数组的长度", "输入数组长度")) ReDim a(n) As Integer
For i = 0 To n - 1
a(i) = Val(InputBox("请输入数组元素值", "输入数据")) Next
For i = 0 To n - 2
For j = i + 1 To n - 1
If a(i) > a(j) Then
Temp = a(i)
a(i) = a(j)
a(j) = Temp
End If
Next
Next
Print "原数组：";
For i = 0 To n - 1
Print a(i);
Next
num = Val(InputBox("请输入要插入的数", "输入数据")) For i = n - 1 To 0 Step -1
If num < a(i) Then
a(i + 1) = a(i)
Else
a(i + 1) = num
Exit For
End If
Next
Print "新数组：";
For i = 0 To n
Print a(i);
Next
End Sub
（8）参考代码：
Private Sub Form_Click()
Dim i, j, Temp, A(1 To 10) As Integer Randomize (Timer)
Print "原数组：";
For i = 1 To 10
A(i) = Int(100 * Rnd)
Print A(i);
Next
For i = 1 To 9
For j = i + 1 To 10
If A(i) < A(j) Then
Temp = A(j)
A(j) = A(i)
A(i) = Temp
End If
Next
Next
Print "排序后：";
For i = 1 To 10
Print A(i);
Next
End Sub
（9）参考代码：
Dim cj(100, 4) As Variant
Dim n As Integer
Private Sub Form_Load()
n = 0
End Sub
Private Sub Command1_Click()
If n <= 100 Then
cj(n, 0) = Text1.Text
cj(n, 1) = Text2.Text
cj(n, 2) = Text3.Text
cj(n, 3) = Text4.Text
cj(n, 4) = Text5.Text
Combo1.AddItem (cj(n, 0))
Combo2.AddItem (cj(n, 1))
End If
n = n + 1
End Sub
Private Sub Combo1_Click()
Dim i As Integer
Label1.Caption = ""
For i = 0 To 4
Label1.Caption = Label1.Caption & CStr(cj(Combo1.ListIndex, i)) & " " Next
End Sub
Private Sub Combo2_Click()
Dim i As Integer
Label1.Caption = ""
For i = 0 To 4
Label1.Caption = Label1.Caption & CStr(cj(Combo2.ListIndex, i)) & " " Next
End Sub
（10）参考代码：
Private Sub Form_Click()
Dim i, j, A(1 To 3, 1 To 5), B(1 To 5, 1 To 3) As Integer
Randomize (Timer)
Print "原矩阵："
For i = 1 To 3
For j = 1 To 5
A(i, j) = Int(100 * Rnd)
B(j, i) = A(i, j)
Print A(i, j);
Next
Next
Print "转置后矩阵："
For i = 1 To 5
For j = 1 To 3
Print B(i, j);
Next
Next
End Sub
（11）参考代码：
创建标签Lbl并设置Caption属性为“Visual Basic程序设计”；创建命令按钮控件数组Cmd，设置BackColor属性为各种颜色，Caption属性为空，Style属性为1。添加代码如下：
Private Sub Cmd_Click(Index As Integer)
Lbl.ForeColor = Cmd(Index).BackColor
End Sub
Private Sub Cmd_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Lbl.BackColor = Cmd(Index).BackColor
End If
End Sub
第7章参考答案
1．
（1）
6 26
2 62
-2 98
（2）
23
47
2．(1)D (2)C (3)B (4)B (5)D (6)D
3.
(1)在VB程序调用过程中向过程传递数据的方式有:按值传递和按地址传递两种方式.
它们之间的不同是：按值传递是单向的，由实参将数据传递给形参，在被调用过程中形参的值方式改变不影响实参的值；按地址传递是实现调用过程和被调过程之间数据的双向传递，按地址传递参数时，实参是将地址传递给形参，在被调用过程执行时，形参的值发生变化时，与之对应的实参也将发生变化。
(2)局部变量是由dim定义变量，局部变量只在定义它的过程中有效，其他过程不能访问这个局部变量；静态变量是由static定义的，它具有连续性，可以从一次调用传递给下一次调用。
(3)
Private Sub int( )
s = InputBox("输入一个数")
If CStr(CInt(Val(s))) = s Then
MsgBox "Yes"
Else: MsgBox "No"
End If
End Sub
(4)
Private Sub Command1_Click()
Dim A(100) As Integer
Dim N As Integer
Dim i As Integer, j As Integer, x As Integer
For i = 2 To 100
x = 0
For j = 2 To i - 1
If i Mod j = 0 Then x = 1
Next j
If x = 0 Then
A(N) = i
N = N + 1
End If
Next i
For i = 0 To N - 1
If A(i + 1) - A(i) = 2 Then
Print A(i) & ";" & A(i + 1)
End If
Next
End Sub
(5)
Private Sub Command1_Click()
Dim i%, j%, s$, m%
For i = 10 To 9999 '循环所有的2,3,4位的数
s = CStr(i)
m = 0
For j = 1 To Len(s) '每位的N次方,之和放到m中
m = m + Val(Mid(s, j, 1)) ^ Len(s)
Next
If m = i Then Print i '如果是相等的print此值
Next
End Sub
第8章参考答案
1．填空题
（1）编译错误（2）Debug．Print a （3）运行模式、中断模式（4）On Error GoTo 0。
（5）Rusume [0]、Resume Next、Resume <行号>/<标号>。
2．简答题
（1）答：
（1）逻辑错误：如计算N！的程序中缺少语句s=1，程序在设计和运行时都不会出现错误，但是无论我们给N赋什么值，都会给出错误的运行结果0。
（2）编译错误：如输入了错误的关键字Dam。
（3）运行异常错误：如试图访问未准备好的软盘。
（2）答：立即窗口显示程序中Debug.Print语句的结果。“立即窗口”是Visual Basic 提供的一个功能强大的调试工具，可以从应用程序中输出信息到“立即窗口”，也可以在“立即窗口”中运行Visual Basic语句。
（3）答：监视一个表达式的方式有三种：
(1) 监视表达式：当过程中断时显示表达式的值，但不引起相关过程的自动中断。如在计算阶乘的程序中设置循环变量为监视表达式，当数据溢出时就会打开监视窗口。
(2) 当监视值为真时中断：当监视表达式的值为真时，引起相关过程的自动中断。如在计算阶乘的程序中设置循环变量i>6为监视表达式，当监视表达式为真时就会打开监视窗口。
(3) 当监视值改变时中断：当监视表达式的值改变时，引起相关过程的自动中断。如
在计算阶乘的程序中设置循环变量为监视表达式，当监视表达式的值发生改变时就会
打开监视窗口。
第9章参考答案
1．选择题
B A B
C C
2．操作题
（1）
⑴点击窗体选中窗体(注：此时窗体的BorderStyle属性要为非0值)。
⑵打开菜单编辑器，方法：
点击工具栏上的菜单工具按钮，或选择“工具”菜单下的“菜单编辑器”菜项，或用CTR+E快捷键来打开菜单编辑器。
⑶在菜单编辑器中添加菜单项，分为主菜单和子菜单，方法参考本章。
2、操作方法请参考本章讲解。
3、用菜单编辑器制作设置文字大小的菜单，将主菜单设置为隐藏，在文本框中添加弹出菜单命令代码：
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'如果用户在文本框点击鼠标右键，则弹出快捷菜单
If Button = 2 Then PopupMenu mnuColor
End Sub
实现文字大小功能的菜单项代码如下：
Private Sub mnuFontSize_Click(Index As Integer)
Select Case Index
Case 1
Text1.FontSize = 10
Case 2
Text1.FontSize = 12
Case 3
Text1.FontSize = 14
Case 4
Text1.FontSize = 16
End Select
End Sub
4、操作方法参考本章内容。
5、
⑴先在工具箱中添加该控件
⑵用CommonDialog的show方法和Action属性都能实现打开文件、保存、打印、字体、颜色、帮助标准对话框。
6、
添加新的窗体方法：
⑴点击工具栏上的第二个添加窗体按钮。
⑵执行添加窗体”命令。
设置启动窗体方法：
执行“工程”菜单下的“***属性(E)”
第10章参考答案
1．选择题
D B A D B B D C C A C A C B C
2．操作题
（1）
分为以下3种类型：
●顺序型文件：用于连续存放的文本数据。
●随机型文件：用于有固定长度记录结构的文本数据或者二进制数据。
●二进制型文件：用于存放二进制数据。
方法、语句和函数参考第10章。
（2）
Private Sub form_Resize()
Text1.Width = ScaleWidth
Text1.Height = ScaleHeight
End Sub
'定义过程打开文件到文本框中
Sub ReadData(Filename As String)
Dim Str As String
Open Filename For Input As #1
Do Until EOF(1)
Line Input #1, Str
Text1.Text = Text1.Text & Str & Chr(10) + Chr(13)
Loop
Close #1
End Sub
'若想实现退出程序时提示是否保存请加入代码来自行设计
Private Sub mnuExit_Click(Index As Integer)
Unload Me
End
End Sub
Private Sub mnuOpen_Click()
CommonDialog1.InitDir = "D:\myvb"
CommonDialog1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt )|*.txt|Word 文档|*.doc"
CommonDialog1.ShowOpen
MsgBox "您将打开文件：" & Chr(10) + Chr(13) & CommonDialog1.Filename Call ReadData(CommonDialog1.Filename)
End Sub
Private Sub SaveData(Filename As String)
Open Filename For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub mnuSave_Click()
CommonDialog1.ShowSave
Call SaveData(CommonDialog1.Filename)
End Sub
（3）
Private Sub Command1_Click()
Dim Str As String
CommonDialog1.InitDir = "D:\myvb"
CommonDialog1.Filter = "文本文件(*.txt )|*.txt"
CommonDialog1.ShowOpen
Open FileName For Input As #1
Do Until EOF(1)
Line Input #1, Str
Text1.Text = Text1.Text & Str & Chr(10) + Chr(13)
Loop
Close #1
End Sub
（4）
Type Teacher
Tname As String * 10
Tsex As String * 2
Tage As Integer
Title As String * 6
College As String * 12
Salary As Single
End Type
Private Sub Command1_Click()
Dim Str As String
CommonDialog1.InitDir = "D:\myvb"
CommonDialog1.Filter = "文本文件(*.txt )|*.txt"
CommonDialog1.ShowOpen
Open FileName For Input As #1
Do Until EOF(1)
Line Input #1, Str
Print Str
Loop
Close #1
End Sub
第11章参考答案
1、填空题
(1) 坐标原点、坐标度量单位、坐标值
(2) 缇、ScaleMode
(3) ScaleTop 、ScaleLeft 、ScaleWidth、ScaleHeight、ScaleLeft、ScaleTop+ScaleHeight、ScaleLeft+ScaleWidth、ScaleTop
(4) RGB（255，255，0）、QBColor（14）、&H00FFFF&
(5) AutoSize、Stretch
(6) (100,200) 、(200,400)
(7) 1、2
(8) 1、2、4
(9) 按下鼠标任意键，移动鼠标，再释放鼠标键
2、选择题
(1)B (2)C (3)B (4)D (5)A
3、思考题：
(1) ScaleHeight、ScaleWidth属性是窗体坐标系统内部的高度和宽度的度量单位数，Height、Width属性是窗体的绝对高度和宽度。
(2)容器是可以在其内部绘制图形和放置其他对象的控件，容器内的对象只能在容器的范围内移动位置，而且在移动容器时，容器内的对象也随之移动，并保持其在容器内的相对位置不变。常见容器包括窗体、图片框等
(3)PictureBox控件可以作为其他控件的容器，图片框控件不能改变被装入的图形大小以适应图片框的尺寸，但是可以使用图片框的AutoSize属性调整图片框的大小以适应其装入图形的尺寸。
Image控件不是容器控件，不能作为父控件，图像框控件的Stretch属性设置为False 时，图像框可以自动改变大小以适应其中的图形，设置为True时，可以自动伸展图像框中的图形大小以适应图形框的尺寸。另外Image控件使用的系统资源比图片框少，重新绘图的速度快。
(4)在Line画出直线的终止点位置。
(5)逆时针
(6) Bitmap位图文件、Icons图标文件、图元文件、JPEG图形文件、GIF图形文件
(7) 图像框控件的Stretch属性设置为False时，图像框可以自动改变大小以适应其中的图形，设置为True时，可以自动伸展图像框中的图形大小以适应图形框的尺寸。
(8) Pset画点、Line画直线或矩形、Circle画圆、椭圆、弧线或扇形
(9) 装入图形：图片框对象．Picture=LoadPicture(“图形文件名”)
删除图形：图片框对象．Picture=LoadPicture( )
第12章参考答案
1．
方法一：对ToolBar控件点击右键，弹出属性页对话框，选择按钮选项，利用按钮选项中的“插入按钮”和“删除按钮”增加和删除ToolBar上的按钮。在按钮选项中的“样式”属性可以控制按钮的样式。
方法二：动态添加按钮。在程序中我们可以使用Add（Index,Key,Cpation,Style,Image）方法添加按钮。其中Index表示按钮在当前按钮组中的位置，Key表示按钮的关键字，Cpation表示按钮上显示文字的内容，Style表示按钮的样式，Image表示按钮上被显示的图片
2．
Add(Relative,Relationship,key,Text,image,Selectedimage)
其中Relative（可选的）表示已存在的Node对象的索引号，新节点与已存在的节点的关系，可以在下一个参数Relationship中找到；Relationship（可选的）表示指定Node 对象的相对位置；Key（可选的）表示关键字；Text（必需的）表示节点所显示的内容；Image （可选的）表示节点的图标；Selectedimage（可选的）表示当选中节点时所显示的图片。
第13章参考答案
1．填空题
（1）DataSource、 Data1、DataField （2）AbsolutePosition （3）RecordCount （4）DatabaseName 、RecordSource
（5）工程/部件 Microsoft ADO Data Control 6.0(OLEDB)
2．选择题
（1）D （2）A （3）A（4）C（5）D（6）A
3．简答题
（1）答：数据库系统（DBS）由计算机硬件、数据库管理系统、数据库、应用程序和用户等部分组成。
计算机硬件（Hardware）是数据库系统赖以存在的物质基础，是存储数据库及运行数据库管理系统DBMS的硬件资源，主要包括主机、存储设备、I/O通道等。
数据库得理系统（DBMS）是指负责数据库存取、维护和管理的系统软件。它提供对数据库中数据资源进行统一管理和控制的功能，将用户应用程序与数据库数据相互隔离，是数据系统的核心，其功能的强弱是衡量数据库系统性能优劣的主要指标。
数据库（DB）是指数据库系统中以一定组织方式将相关数据组织在一起，存储在外部存储设备上所形成的、能为多个用户共享、与应用程序相互独立的相关数据集合。数据库中的数据也是以文件的形式存在存储介质上，它是数据库系统操作的对象和结果。数据库中的数据具有集中性和共享性。所谓集中性是指把数据看成性质不同的数据文件的集合，
其中的数据冗余很小。所谓共享性是指多个不同用使用不同语言，为了不同应用目的可同时存取数据库的数据。数据库中的数据由DBMS进行统一管理和控制，用户对数据库进行的各种操作都是通过DBMS实现的。
应用程序（Application）是在DBMS的基础上，由用户根据应用的实际需要开发的、处理物定为务的应用程序。应用程序的操作范围通常仅是数据库的一个子集，亦即用户所需的那部分数据。
数据库用户是指管理、开发、使用数据库系统的所有人员，通常包括数据库管理员、应用程序员和终端用户。数据库管理员（DBA）负责管理、监督、维护数据库系统的正常运行；应用程序员负责分析、设设计、开发、维护数据库系统中运行的各类应用程序；终端用户是在DBMS与应用程序支持下，操作使用数据库系统的普通用户。不同规模的数据库系统，用衣的人员配置可以根据实际情况有所不同，大多数用户都属于终端用户。在小型数据库系统中，特别是在微机上运行的数据库系统中，通常DBA就由终端用户担任。
（2）答：在Visual Basic中访问数据库有ADO，DAO，RDO等三种方法
（3）答：通过Data控件的RecordType属性可以确定记录集类型：Table，Dynaset，Snapshot。
Table类型记录集，包含实际表中的所有记录，这种类型可以对记录进行添加、删除、查询、修改等操作，直接更新数据库中的数据；Dynaset（动态记录集）(缺省)，可以是一个或多个表记录的引用，通常由SQL语句生成，这种方式先将引用的数据读入到内存中，不直接影响数据库中的数据；Snapshot（快照类型）记录集，以这种类型显示的数据只能读，不能修改，适用于对数据进行查询的情况。
（4）答：在ADO Data控件的属性窗口中，填写连接参数，单击【确定】即可。
4．操作与编程题（略）
第7章过程 7．1 填空题 1．一个VB应用程序可以包括的三种模块是：（）、（）和（）模块。 答案：窗体模块、标准模块、类模块 2．函数过程定义中至少有一个赋值语句把表达式的值赋给（）。 答案：函数过程名 3．在VB中，过程定义中有两种传递形式的参数：一种是（），称为传值调用；另一种是（），称为传址调用。 答案：传值参数、传址参数 4．若模块中以关键字public定义子过程，则在（）中都可以调用该过程。 答案：整个应用程序 5．若窗体模块或标准模块中以关键字private定义函数过程，则该函数过程只能在( )中使用。 答案：该窗体模块或标准模块 6．每一个用标识符定义的变量、常量、过程都有一个有效范围，这个范围称为标识符的（）。 答案：作用域 7．在模块内定义的过程，若在关键字sub或Function加前缀Public，则该过程称为（）。 答案：全局级过程或工程级过程 8．过程中定义的静态变量作用域是（），生存期是（）。 答案：该过程内、整个应用程序运行结束之前 7．2 选择题 1．标准模块中的代码存放在以（）为扩展名的文件中。 a).frm b).bas c).cls d).txt 答案：b 2．（）不能在标准模块中定义。 a)事件过程 b)子过程 c)函数过程 d)公共过程 答案：a 3．设已定义子过程p，有3个数值型传值参数；设a为实型变量，调用该子过程的正确语句为（）。 a) p b) call p 0.5, a, 100 c) call p ( 0.5, cos(0.1), a+10 ) d) p ( 0.5, 1.2, 100 ) 答案：c 4. 设已定义函数过程f，它有三个实型传值参数；设a,b和c为实型变量，则调用该函数的正确语句为（）。 a)f b) f( a+b, b+c ) c)f ( a+b, b+c ,c+a ) d) f a+b, b+c, c+a
同步练习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 第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+0.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：单项选择题： 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、完成实验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. 在设计阶段，当双击窗体上的某个控件时，所打开的窗体是_____。 A. 工程资源管路器窗口 B. 工具箱窗体 C. 代码窗体 D. 属性窗体 2. VB中对象的含义是_____。 A. 封装了数据和方法的实体 B. 封装的程序 C. 具有某些特性的具体事物的抽象 D. 创建对象实例的模板 3. 窗体Form1的Name属性是MyForm，它的单击事件过程名是_____。 A. MyForm_Click B. Form_Click C. Form1_Click D. Frm1_Click 4. 如果要改变窗体的标题，需要设置窗体对象的_____属性。 A. BackColor B. Name C. Caption D. Font 5. 若要取消窗体的最大化功能，可将其_____属性设置为False来实现。 A. Enabled B.ControlBox C. MinButton D. MaxButton 6. 若要以代码方式设置窗体中显示文本的字体大小，可通过设置窗体对象_____属性来实现。 A. Font B.FontName C.FontSize D. FontBold 7. 确定一个控件在窗体上位置的属性是_____。 A. Width或Height B. Width和Height C. Top或Left D. Top和Left 8. 以下属性中，不属于标签的属性是_____。 A. Enabled B. Default C. Font D. Caption 9. 若要设置标签控件中文本的对齐方式，可通过_____属性实现。 A.Align B. AutoSize C. Alignment D. BackStyle 10. 若要使标签控件的大小自动与所显示文本的大小相适宜，可将其_____属性设置为True来实现。 A.Align B. AutoSize C. Alignment D. Visible 11. 若要设置或返回文本框中的文本，可通过设置其_____属性来实现。 A.Caption B. Name C. Text D. （名称） 12. 若要设置文本框最大可接受的字符数，可通过设置其_____属性来实现。 A.MultiLine B. Max C. Length D. MaxLength 《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) 第3章程序流程控制 3．1 填空题 1．设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（s=3.14159*r*r ）。 2．给命令按钮Command2的Caption属性赋予字符串“退出”使用的赋值语句为（Command2.Caption=＂退出＂）。 3．为了求n的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（n=val（InputBox（＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。 ４．如果使用MsgBox对话框显示提示信息“退出本系统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox函数的形式为（MsgBox（＂退出本系统? ＂，4+32+0，＂提示信息＂））。 ５．如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（MsgBox＂文件未找到＂，0+48+0，＂文件查找＂）。 ６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分别是( Print “Visual BASIC 6.0”)和( Debug.Print “Visual BASIC 6.0”)。 ７．使用Print方法时，若用逗号分隔，则按( 标准)格式输出各表达式的值，若用分号分隔，则按( 紧凑)格式输出各表达式的值。 ８．注释语句是一个（非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。 ９．判别变量i是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（If i Mod 2=0 Then print x ）。 页脚内容1 《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事件的操作是（） 习题3—4 （P126） Private Sub Command1_Click() Image1.Width = Image1.Width * 1.2 Image1.Height = Image1.Height * 1.2 End Sub Private Sub Command2_Click() Image1.Width = Image1.Width / 1.2 Image1.Height = Image1.Height / 1.2 End Sub Private Sub Command3_Click() Image1.Width = Form1.Width Image1.Height = Form1.Height End Sub Private Sub Form_Load() Image1.Left = 0 Image1.Top = 0 Image1.Picture = LoadPicture(App.Path & "\back.jpg") End Sub 习题3—5 （P126） Dim mleft As Long Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() mleft = Label1.Left + 100 If mleft + Label1.Width > Picture1.Width Then mleft = 0 End If Label1.Left = mleft End Sub 课后习题解答 第一、二章： 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属性来装入图 习题一P19 1. 3. 4. 5. 6. 7 参考答案： 1、简述Visual Basic的特点。 答：⑴基于对象的可视化设计工具 ⑵事件驱动的编程机制 ⑶提供易学易用的应用程序集成开发环境 ⑷结构化的程序设计语言 ⑸强大的网络、数据库、多媒体功能 ⑹完备的联机帮助功能 3、Visual Basic 6.0有学习版、专业版和企业版，怎样知道所安装的是哪个版本？ 答：在启动VB 6.0的启动封面上，能显示对应的版本，见教材例1.1 4、Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，怎样操作？ 答：选择“视图∣代码窗口”命令或“工程资源管理器”窗口的“查看代码”按钮。 5. 叙述建立一个完整的应用程序的过程。 答： a)建立用户界面的控件对象。 b)控件属性的设置。 c)控件事件过程及编程。 d)运行和调试程序。 e)保存程序。 6. 当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件，再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm），再保存工程文件(.vbp)。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7. 保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统的默认目录是VB98。 习题二P37 2. 5. 6. 7. 9. 10 参考答案： 2、属性与方法的区别是什么？ 答：对象中的数据保存在属性中，VB程序中的对象都有许多属性，它们是用来描述和反映对象特征的参数。可以通过两种方法来设置属性：（1）在设计阶段利用属性窗口直接设置对象的属性值；（2）在程序运行阶段通过赋值语句实现。 方法是附属于对象的行为和动作，也可以理解为指使对象动作的命令。面向对象的程序设计 《程序设计语言VB》课程习题集 一、单选题 1. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7.在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性 8.在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled 9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12.语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13.只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14.下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A. timefly 中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型 一、选择题 1. 2. https://www.doczj.com/doc/847710269.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 = Char(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.doczj.com/doc/847710269.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 Return "hello" 《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。 A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．="欢迎您!" B．="欢迎您!" C．Form. print "欢迎您!" D． "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．"China" B．"1,China" C．"China",0 D．"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（） <大学程序设计基础-Visual Basic>教材课后习题答案 第1章 一、选择题 1 2 3 4 5 6 7 B D B C B B D 第2章 一、选择题 1 2 3 4 5 6 7 8 9 10 B C B C B C A A A A 11 12 13 14 A B A A 二、填空题 1.rem或’ _ ： 2.“” # # 3.5x2-3x-2sinA/3 4.321456 5.300 三、操作题 1、 程序段： Private Sub Command1_Click() Dim x As Integer, y As Integer Dim s As Long, c As Long x = Text1.Text y = Text2.Text s = x * y c = (x + y) * 2 Label3.Caption = "长方形的面积为" + Str(s) Label4.Caption = "长方形的周长为" + Str(c) End Sub 3、 程序段： Private Sub Command1_Click() Text1.Text = "第一" End Sub Private Sub Command2_Click() Text1.Text = "第二" End Sub 4、程序代码： Private Sub Text1_Change() Text1.MaxLength = 10 End Sub 5、程序代码： Private Sub Text1_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 第3章 一、选择题 1 2 3 4 5 6 7 D A D B A D B 二、填空题 1. False 2.B^2-4*a*c else 三、操作题 1．从键盘输入三个值，判断它们能否构成三角形的三个边。如果能构成一个三角形，则计算三角形的面积。 Dim a As Integer, b As Long, c As Long, s As Single, p As Single a = Val(InputBox("请输入一个值：")) b = Val(InputBox("请输入一个值：")) c = Val(InputBox("请输入一个值：")) If (a + b > c And a + c > b And b + c > a) Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c)) Print a & "," & b & "," & c & "能构成一个三角形,它的面积为:" & s End If 2．编写程序，任意输入一个整数，判定该整数奇偶性。 Dim n As Integer n = Val(InputBox("请输入一个整数：")) If n Mod 2 = 0 Then Print n & "是偶数" Else Print n & "是奇数" End If 3．求一元二次方程的a*x^2+b*x+c=0的根。 Dim a As Integer, b As Integer, c As Integer, delta As Single, x1 As Single, x2 As Single a = Val(InputBox("请输入一个整数：")) b = Val(InputBox("请输入一个整数：")) c = Val(InputBox("请输入一个整数：")) delta = b ^ 2 - 4 * a * c If delta = 0 Then x1 = -b / (2 * a) Print "一元二次方程有两个相等的实根x1=x2=" & x1 Else If delta > 0 Then x1 = (-b + Sqr(delta)) / (2 * a) x2 = (-b - Sqr(delta)) / (2 * a) 习题一 答案在教材上找。 习题二 1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。 类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。 VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。 VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。 对象的三要素：属性、事件和方法。 属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。 事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。 方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。 2.窗体和控件具有的基本属性“ (1) Name属性：名称 所创建的对象名称,在程序中引用。 (2) Caption属性：标题 该属性决定了对象上显示的内容。 (3) Height、Width、Top和Left属性 决定对象的大小和位置。 (4) Enabled 属性：对象是否允许操作 (5) Visible 属性：对象是否可见 (6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体 FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色 (8) BackColor属性：背景颜色 (9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。vb课后练习答案习题解答 (5)
vb程序设计实验教程习题答案
VB程序设计教程(第3版)课后实验答案最新版2
VB第一章课后习题答案
《VB程序设计》习题答案-林卓然编著
VB课本习题答案第三章
visual_Basic程序的设计教程_课后习题答案及练习
vb课后习题答案
VB程序的设计教程课后答案
VB书面习题答案(1-3章)
程序设计语言VB_习题集(含答案)
[整理]VB程序设计复习题及答案.
vb习题及参考答案
VB程序设计期末复习题
VB教材课后习题答案
vb程序设计教程课后答案(第三版)
相关主题
文本预览