Private Sub btnCut_Click() ?请补充 End Sub
2、计算1 + 2 + 3 + …… + 100的和并输出。请把下面用Do While ……Loop循环结构实现这一功能的代码补充完整。
Private Sub Form_Load()
Dim sum,count as Integer ?请补充
Do while count <=100 ?请补充 Loop
Text1.Text = sum End Sub
3、列表框控件（ListBox）支持多项选择，这项功能在对用户的兴趣爱好进行调查的时候显得非常好用，在下图所示的界面中列表框List1用于列出爱好选项，供用户进行多项选择。
请把下列代码补充完整，能够取得用户的所选爱好选项： Private Sub Command1_Click() Dim i As Integer
第 26 页
Dim s As String
s = txtname.Text & \爱好\ For i = 0 To List1.ListCount - ?请补充 Next
Label3.Caption = s End Sub
4、要求利用计时器Timer1，在窗体Form1上每隔1秒钟打印一个1到10的随机整数，请把下列代码补充完整：
Private Sub Form_Load() Show
?请补充 End Sub
Private Sub Timer1_Timer()
?请补充 End Sub
第五章 文件
一、填空题
1、文件按存取方式及其组成结构可分为________________文件、__________文件和______________文件。 2、为了使文件列表框List1和目录列表框Dir1之间能产生同步效果，必须在______________事件过程中加入语句__________________________。
3、文件系统控件的作用是向用户显示系统中的文件，方便用户选择，它是一组控件的组合，包括：驱动器列表框、__ __和文件列表框。 二、选择题
第 27 页
1、利用下面哪个函数可判定访问文件时是否已到文件尾（ ）
A．LOF B．LOC C．EOF D．BOF
2、用于设置文件列表框控件显示文件类型的属性是（ ）
A．Filter B．Path C．Partern D．FileName 三、简答题 1、什么是文件？
2、文件存取分成几类，几种模式？
3、顺序文件、随机文件和二进制文件各有什么特点和用途？ 4、文件有哪几种类型？它们的区别是什么？ 5、请说明PRINT #和WRITE #语句的区别 6、EOF函数的功能是什么？ 四、编程题
1、实现二进制方式文件的复制。
2、如下图所示，实现一个简单的文件管理器。
第六章 图形操作
一、填空题
第 28 页
1、使用____________方法可在窗体中进行文本的输出，用____________方法可画圆，用____________方法可画直线。
2、用____________函数可加载图形。
3、为了使一个Picture控件能自动根据装入的图片调整大小，应设置该控件的________________属性为True。 二、选择题
1、下列关于控件画法的叙述错误的是（ ）
A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件
B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件 C．双击工具箱中的控件图标，所画控件的大小和位置是固定的
D．不使用工具箱中的控件工具，不可以在窗体上画出图形对象，但可以写入文字字符
2、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（ ）事件来完成图形的重画工作
A．Paint 三、简答题
1、在什么情况下使用Image控件而不使用PictureBox控件？ 2、在程序运行时怎样在图形框中装入和删除图形？ 3、颜色函数主要有哪些？ 四、编程题
1、如下图显示当前目录下的图片文件列表，并能够预览选定的图片。
B．Load
C．Click
D．Active
第 29 页
第七章 面向对象的编程
一、填空题
1、类是具有相同性质的对象的_________。
2、语句DIM TEMP AS Object的作用是________________________________。 二、简答题 1、什么是模块？
第八章 界面设计
一、简答题
1、什么是多文档界面（MDI）？
2、说明菜单栏、菜单、选项和工具栏之间的关系。 3、结束MDI应用程序时，需要注意什么？
第九章 Visual Basic与数据库
一、简答题
1、表间的关系类型有哪几种？
2、Visual Basic中的记录集有哪几种类型？ 二、编程题
1、请编程实现每两秒在标签中显示一次当前的时间。 2、找出被3、5、7整除，余数为1的最小的2个正整数。
第 30 页