End Sub
13、参考代码如下： Private Sub Form_Load()
Dim Prev, Last, NewOne, sum As Long Dim i As Integer
Prev = 0: Last = 1: sum = Prev + Last For i = 3 To 20
NewOne = Prev + Last sum = sum + NewOne Prev = Last Last = NewOne Next i
Label1.Caption = \第20项为\ Label2.Caption = \前20项的和为\End Sub
第四章 常用控件与窗体 一、填空题
1、AddItem 2、窗体、控件 3、StartUpPostion 4、form1.hide 5、sorted、ture 6、text1、tabindex、0 7、chr(10) 8、timer 9、interval 10、scroll和change事件 11、mousepointer 12、selected、text、list1.text、removeitem 2*i-1、x,2*i-1 13、change、value、scrol、value 14、List 15、Checked 16、keypress 17、组合框 18、Form2.Show 1 19、Click（或鼠标单击） 二、选择题
1、C 2、B 3、A 4、C 5、A 6、A 7、C 8、A 9、C 10、B 11、C 12、C 13、A 14、D 15、A 16、A 17、D 18、D 19、D 20、A 21、C 22、B 三、简答题
1、单选按钮用来显示一个可以打开或关闭 选项，而且在同一组中的单选按钮控件，用户只能选择其中的一项。
2、主要是用鼠标拖动滑块时对Value属性的影响不同。
3、快捷键是执行某一个菜单项的键盘命令，常用形式Ctrl+字母，访问键是打开一个菜单的键盘命令，常用形式Alt+字母。 4、Scroll事件
5、MenuItem.Enabled=False 6、Interval属性
7、单选按钮用于只能选择一个的情况下，复选框（即检查框）用于可以选择多个的情况下
8、为一个菜单项设置热键时需要在相应字符前面加&，设置快捷键需要在菜单编辑器中选择
9、菜单的形式有两种：下拉式菜单和弹出式菜单
10、在KeyPress事件中，若想取消用户刚输入的字符，只要将该事件的参数设置为0即
第 ２６ 页 共 31 页
可
11、框架主要是用作容器，可以实现多组单选按钮，并且可以美化界面 12、250
13、在一个窗体的程序代码中可以访问另一个窗体上控件的属性，在访问时只要写上窗体名称即可
14、先建立框架，然后再在其中建立控件
15、下拉式组合框、简单组合框、下拉式列表框 五、编程题
1、参考代码如下： Private Sub Form_Load() Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer() Txttime.text = Time End Sub
2、参考代码如下：
Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text)
Text2.Text = Text2.Text & Spc(5) & Char & _
Spc(10) & Str(Asc(Char)) & chr(13)&chr(10) Text1.SetFocus Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End Sub
3、4、5、6、7具体代码略。 六、程序分析填空题 1、结果如下：
Private Sub btnCut_Click() ?请补充
Str1 = text1.selText text1.selText = “” End Sub
2、结果如下：
Private Sub Form_Load() Dim sum,count as Integer ?请补充 Sum = 0 Count = 0 Do while count <=100 ?请补充
第 ２７ 页 共 31 页
Count = count + 1 Sum = sum + count Loop
Text1.Text = sum End Sub
3、结果如下：
Private Sub Command1_Click() Dim i As Integer Dim s As String
s = txtname.Text & \爱好\ For i = 0 To List1.ListCount - 1 ?请补充
If List1.Selected(i) Then S = s & List1.List(i) End If Next
Label3.Caption = s End Sub
4、结果如下：
Private Sub Form_Load() Show ?请补充
Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer() ?请补充
Form1.Print Int(Rnd*10) + 1 End Sub
第五章 文件 一、填空题
1、顺序、随机、二进制 2、dir1的chang、list1.path=dir1.path 3、目录列表框 二、选择题
1、C 2、C 三、简答题
1、存放在外部存储介质上的数据和程序等。
2、文件的存取分为顺序型、随机型、二进制型，其编码方式分为ASCⅡ码文件和二进制文件。
3、顺序文件：文件中每一个字符都被假设为代表一个文本字符或者文本格式序列，数据被存储ANSI字符，这类文件的信息按照顺序从头到尾排列，只提供第一条记录的存储位置，因而顺序文件只用于要求少量空间，不经常进行数据修改的有规律的文件。
随机文件：随机文件由记录组成，能够随机存取相同长度的数据记录，每一数据记录内可以
第 ２８ 页 共 31 页
设计各种栏位，以容纳不同的数据，各数据记录长度相同，数据类型可以不同，随机文件有一定的磁盘空间的浪费。
二进制文件：二进制文件与随机文件类似，但不必限制记录的长度，可以用喜欢的方式存取文件，二进制访问能提供对文件的完全控制，通过使用二进制型访问可使磁盘空间的使用降到最小。
4、参见教材
5、Print #语句用来将一个或多个格式化的数据写入顺序文件，Write #语句的用法和Print #语句相似，不同的是： ? 输出的数据采用紧凑格式存放，数据项之间自动用逗号分开； ? 输出的字符串自动用引号扩起来。
6、在读取数据时，如果已到达文件结尾，继续读会被终止并产生一个错误。为了避免出错，常在读操作前用EOF函数检测是否已经达到文件末尾 四、编程题
1、参考代码如下：
Private Sub Command1_Click() Dim if1 As Integer, if2 As Integer Dim sf1 As String, sf2 As String Dim buffer() As Byte ?使用动态数组 sf1 = InputBox(\请输入源文件名：\源文件\sf2 = InputBox(\请输入目标文件名：\目标文件\If sf1 = \if1 = FreeFile
Open sf1 For Binary As if1 '打开源文件 if2 = FreeFile
Open sf2 For Binary As if2 '创建目标文件 ReDim buffer(1 To LOF(if1)) '分配内存 Get #if1, , buffer '读源文件 Put #if2, , buffer '写目标文件 Close '关闭所有打开的文件 MsgBox \完成复制。\End Sub
2、参考代码如下：
Private Sub cmdCopy_Click() Dim destFile As String
If fSource.FileName = \ '先选定文件 destFile = InputBox(\输入目标文件名：\
If destFile <> \ '不为空 FileCopy fSource.FileName, destFile '复制文件 End If End Sub
Private Sub cmdExit_Click()
第 ２９ 页 共 31 页
End End Sub
Private Sub cmdKill_Click() Dim res
If fSource.FileName = \ '首先选定文件
res = MsgBox(\确定要删除文件 \了吗？\If res = vbOK Then ' 确认操作 Kill fSource.FileName '删除文件 End If End Sub
Private Sub cmdName_Click() Dim destFile As String
If fSource.FileName = \ '首先选定文件 destFile = InputBox(\输入新文件名：\If destFile <> \
Name fSource.FileName As destFile '命名（移动）文件 End If End Sub
Private Sub dirSource_Change()
fSource.Path = dirSource.Path '与文件列表关联 End Sub
Private Sub drvSource_Change()
dirSource.Path = drvSource.Drive '与文件夹关联 End Sub
第六章 图形操作 一、填空题
1、print、circle、line 2、loadpicture 3、autosize 二、选择题
1、D 2、A 三、简答题
1、Image控件中图形可以伸展以适应控件的大小，而在PictureBox控件中权可通过调整控件的大小以适合图形的大小，图形本身单不伸缩，因此，当需要调整图形大小时，应使用Image控件。
2、程序运行时，在图形框中装入和删除图形是利用LoadPicture函数，只要参数为空或为零长度字符串，即可删除图形；否则，即为装入图形 3、颜色函数主要有：RGB、QBColor 四、编程题
1、参考代码如下： Private Sub drvList_Change()
dirList.Path = drvList.Drive ' 设置当前驱动器 End Sub
第 ３０ 页 共 31 页
Private Sub dirList_Change()
fileList.Path = dirList.Path ' 设置当前目录 End Sub
Private Sub fileList_Click() Dim s As String ' s为所选文件的全称 If Right(fileList.Path, 1) = \
s = fileList.Path & fileList.FileName Else
s = fileList.Path & \ End If
Label4.Caption = s
If Right(s, 1) <> \' 显示图片 End Sub
Private Sub Form_Load()
fileList.Pattern = txtFile.Text ' 初始化文件列表框 End Sub
Private Sub txtFile_LostFocus() fileList.Pattern = txtFile.Text ' 改变筛选条件 End Sub
第七章 面向对象的编程 一、填空题
1、集合 2、定义了一个对象类型的变量TEMP 二、简答题
1、模块是具有一定功能的代码的集合，VB中提供了三种类型的模块：窗体模块、标准模块、类模块。 第八章 界面设计 一、简答题
1、多文档界面是指在一个父窗口下面可以同时打开多个子窗口。子窗口归属于父窗口，如果父窗口关闭，则所有子窗口全部关闭。
2、窗体的顶部一般含有菜单栏和工具栏，菜单栏中是菜单，菜单中含有菜单项，工具栏上有工具按钮，工具栏上的工具按钮实际上就是菜单中某一菜单选项的功能，工具栏上的工具体现了大部分菜单的功能。
3、应关闭所有窗体，防止数据丢失。 第九章 Visual Basic与数据库
一、简答题 1、表间的关系类型有三种：一对一、一对多和多对多 2、Visua Basic中的记录集有三种类型
第 ３１ 页 共 31 页