B．在界面设计时，手工在图像框和图片框中绘制图形 C．在界面设计时，利用剪贴板把图像粘贴上
D．在程序运行期间，用LoadPicture函数把图形文件装入 22．下面选项中，能绘制填充矩形的语句是（ ） A．Line (200, 200)-(500, 500),B B．Line (200, 200)-(500, 500), , BF C．Line (200, 200)-(500, 500), BF D．Line (200, 200)-(500, 500)
23.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（ ） A．ADOrs.New \B．ADOrs.Open \C．ADOrs.Execute \D．ADOrs. Select \
24.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（ ）
A．在Dir1_Change()事件中加入代码Dir1.Path=Drive1.Drive B．在Dir1_Channge()事件中加入代码Drive1.Drive =Dir1.Path
C．在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.Drive D．在Dirve1_Channge()事件中加入代码Drive1.Drive =Dir1.Path 25.VB程序中通常不会产生错误提示的（ ）。 A．编译错误 B．实时错误 C．运行时错误 D．逻辑错误
二、填空题（每空1分）
1．数学表达式10cos50写成等价的Visual Basic表达式为 。 2．删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为 。
3．Visual Basic程序开发有三种模式，即 模式、 模式和 模式。 4．执行指令Line(200,300)-(400,500)后，CurrentX= 。设CurrentX=50,CurrentY=100，执行指令“Line(100,20)-Step(300,500)”后，CurrentY = 。
5．ADO数据模型中一般可通过Connection对象的 方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
6．已知a=3,b=4,c=5,表达式a.>b and Not c>a Or c>b And c 8．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为 。 9．Visual Basic一般用4种类型的文件保存，分别是扩展名为 的窗体文件，扩展名为 的标准模块文件，扩展名为 的类模块文件和扩展名为 的工程文件。 10．将图片框PictureBox的AutoSize属性设置成 时，图片框能自动调整大小，以适应其中的图片。 011．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。 12． Left(“abcd”,2)函数的返回值是 ; Right(“abcd”,2)函数的返回值是 。 13．Vb应用程序与数据库进行通信的主要机制称为 。 14．Winsock控件主要用来编制 或 协议的通话程序。 15．假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是 。 16．在VB中，将Foxpro称为 ，Access称为 ，SQL Server称为 。 17．常用的VB网络编程控件主要有 、 、 三种。 18．以(600,600)为圆心，以800为半径，用ForeColor颜色绘制一个圆形，其实现的代码是 。 19．以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。将程序段补充完整。 Private Sub Drive1_Change() End Sub Private Sub Dir1_Change() End Sub 20. 在Visual Basic程序中实现复制文件”d:\\text.doc”到e:盘根目录下的语句为 。 三、阅读程序题 阅读下列程序并写出程序运行结果 1． Private Sub Command1_Click() x = 0 Do While x < 20 x = (x + 1) * (x +3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub 文件框Text3的结果是： 2. Private Sub Command1_Click() Dim x As Integer Static s As Integer x = Val(InputBox(\请输入一个正整数=\ If x < 5 Then s = s * x Else s = s + x End If Text1.Text = \End Sub 程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。 3． Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer,j As Integer A(1) = “3” A(2) = “6” A(3) = “9” c=0 For j=1 to 3 c = c + Val(A(j)) Next j Print c End Sub 写出程序运行时单击窗体后，窗体Form1上的结果： 4． Private Sub Command1_Click() Dim A(2 To 7) As Integer Dim b As Integer For b = 2 To 7 A(b) = b Next b Text1.Text = A(b - 2) End Sub 程序运行后，单击命令按纽文本框Text1的结果是： 5． Sub test(i As Integer) i = i + 2 End Sub Private Sub Form_Click() Dim x As Integer x = 6 Print \Call test(x) Print \End Sub 6. Private Sub Form_Click() a = 1: b = 1 Print \ Call mult(a) Print \End Sub Private Sub mult(x) x = 3 + x b = 4 + b End Sub 7. Private Sub Form_Click() Dim i As Integer, a As Integer k = 0 For i = 1 To 6 If i > 3 Then a = a + 5 Else a = a + 2 End If Next i Print i, a End Sub 写出程序运行时单击窗体后，Form1上的输出结果。 8. Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t Print x,y End sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 3: b = 4 Change a, b Print a,b End Sub 写出程序运行时单击窗体后，Form1上的输出结果 四、完善程序题 1．列表框应用程序。要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图1所示。 Text1 List1 Command1 Command2 Command3 图 1 程序如下，请补充完整。 Private Sub Form_Load() List1.AddItem \北京-上海\ List1.AddItem \北京-广州\ List1.AddItem \北京-四川\ List1.AddItem \北京-西安\ List1.AddItem \北京-哈尔滨\ List1.AddItem \北京-沈阳\ List1.AddItem \北京-长春\End Sub Private Sub Command1_Click() If Text1.Text <> \ [1] '将文本框中的内容加到列表框中 Text1.Text = \ [2] MsgBox \请在文本框中输入信息！\ End If
VisualBasic程序设计复习要点及练习
