发布时间 : 星期一 文章《VB程序设计》综合复习资料习题更新完毕开始阅读
Dim s As String
s = txtname.Text & \爱好\
For i = 0 To List1.ListCount - 1 '请补充
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、文件系统控件的作用是向用户显示系统中的文件，方便用户选择，它是一组控件的组合，包括：驱动器列表框、__ __和文件列表框。 二、选择题
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、如下图所示，实现一个简单的文件管理器。
第六章 图形操作
一、填空题
1、使用____________方法可在窗体中进行文本的输出，用____________方法可画圆，用____________方法可画直线。
2、用____________函数可加载图形。
3、为了使一个Picture控件能自动根据装入的图片调整大小，应设置该控件的________________属性为True。 二、选择题
1、下列关于控件画法的叙述错误的是（ ）
A．单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件
B．按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件
C．双击工具箱中的控件图标，所画控件的大小和位置是固定的
D．不使用工具箱中的控件工具，不可以在窗体上画出图形对象，但可以写入文字字符 2、当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（ ）事件来完成图形的重画工作 A．Paint B．Load C．Click D．Active 三、简答题
1、在什么情况下使用Image控件而不使用PictureBox控件？ 2、在程序运行时怎样在图形框中装入和删除图形？ 3、颜色函数主要有哪些？ 四、编程题
1、如下图显示当前目录下的图片文件列表，并能够预览选定的图片。
第七章 面向对象的编程 一、填空题
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个正整数。
3、有一个m×n的实型矩阵A(m,n)，找出其中最大的那个元素所在的行和列。 4、找出能同时被5和7整除的最小的10个正整数。 5、编写一个程序，能够输出100~1000之间所有的素数。
6、从键盘上任意输入100个整数，统计负数的个数，并计算正数的和。
7、有一种数，正序读与反序读都相同，这种数叫回文数，如88、858、2332等。求出4位数以内（0～9999）的所有回文数。 8、输出\九九乘法表 参考答案
第一章 Visual Basic程序设计概述 一、填空题
1、对象、事件驱动 2、Vbp、frm、bas 3、部件 4、WINDOWS 二、选择题
1、C 2、C 3、C 4、D 5、D 第二章 简单的VB程序设计 一、填空题
1、Tabstop 2、Left、top、height、width 3、enabled 4、backcolor 5、name 6、name和caption 7、属性 8、标准模块文件 9、运行模式 二、选择题 1、D 2、D 3、C 4、C 5、D 6、B 7、D 8、D 9、D 10、D 11、B 12、A 13、D 14、C 15、B 16、B 17、B 18、D 第三章 VB基本语言 一、填空题
1、Const 2、Variant 3、隐式声明、显示声明 4、option base、ubound、lbound 5、强制变量声明 6、表示a2是一个可选参数 7、End 8、Msgbox、Inputbox 9、*.*、showprint 10、Mid() 11、6 12、redim preserve arraya(ubound(arraya())+1) 13、static 14、0 15、f 16、rem、' 17、变量、数组 18、1 to 4,1 to 5 19、Inde 20、按地址 21、Option Explicit 22、13 23、ityo 24、符号 25、LCase 26、ESC 27、部件 28、断点 29、False 30、Option Explicit 31、UCase 32、Mid 33、# 34、过程 35、private 36、求x的绝对值 37、2.5 二、选择题
1、D 2、B 3、D 4、C 5、B 6、C 7、D 8、C 9、D 10、A 11、A 12、D 13、B 14、B 15、D 16、B 17、A 18、D 19、D 20、C 21、D 22、B 23、B 24、B 25、B 26、A 27、B 28、C 28、B 30、C 四、读程序题
1、结果如下：B
2、结果如下：BB CCC DDDD EEEEE 3、功能如下：
在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。
4、输出结果为： 2 4 6 8 5、输出结果为：3
6、输出结果为：2 452 7、输出结果为：120 0 2 0 8、输出结果为：3 3 3 2
五、编程题
1、参考代码如下：
Private Sub Command1_Click() Dim year, x As Integer year = Val(Text1.Text) If year Mod 400 = 0 Then
Label2.Caption = \是闰年\ Else
' 下面是嵌套块If语句
If year Mod 4 = 0 And year Mod 100 <> 0 Then Label2.Caption = \是闰年\ Else
Label2.Caption = \不是闰年\ End If End If End Sub
2、程序参考代码如下：
Private Sub Command1_Click() Dim m, n, r As Integer m = Val ( Text1.Text ) n = Val ( Text2.Text )
If m < 0 Or n < 0 Then ' 若判断为非法数据，Then子句输出相应信息 Label2.Caption = \输入数据有错！\
Else ' 若判断为合法数据，Else子句用辗转相除法求余数 r = m Mod n Do While r <> 0 m = n n = r
r = m Mod n Loop
' 循环结束后n中存放的就是最大公约数，输出n值 Label2.Caption = \最大公约数为：\ End If End Sub 3、参考代码如下：
Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text)
If x > 100 Or x < 0 Then
Text2.Text = \ ElseIf x < 60 Then
Text2.Text = \不及格\ ElseIf x < 70 Then
Text2.Text = \及格\