发布时间 : 星期四 文章VB程序的设计期末复习试题更新完毕开始阅读da7ec3d0eef9aef8941ea76e58fafab068dc444e
二、填空题
1.每个应用程序必须有一个唯一的 文件，至少有一个 文件。 2．表达式13\\2-2^3*5 MOD 6的值是 。
3．如果要每隔3s产生一个Timer事件，则Interval属性应设置为 。 4．VB中的程序错误类型主要有实时错误、 、 三种。 5. 控件数组的名字由 属性指定，而数组中的每个元素由 属性决定。
6．用Dim A(4,4)语句声明二维数组后，数组A的元素共有 个。
7．设某个程序中要用到一个二维数组，要求数组名为R，类型为整型，第一维下标从-2到2，第二维下标从0到4，则相应数组声明语句为 。
8．某个程序中要用到一个二维数组，要求数组名为C，类型为整型，第一维下标从-1到3，第二维下标从0到4，则相应数组声明语句为 。
9．过程级变量是指在 声明的变量，窗体级或模块级变量是指窗体或模块的代码声明段用 或 声明的变量，在全局变量在整个应用程序中有效，一般在标准模块中使用 语句声明。
10．在Visual Basic语言中有三种形式的循环结构。其中，若循环的次数可以适先确定，可使用For???Next循环循环；若要求先判断循环进行的条件，可使用 循环。
11．为了在运行时把当前路径下的图形文件flower.jpg装入图片框P1，所使用的语句为 。
12. 将图片框的AutoSize属性设置成 时，可使图片框根据图片调整大小。 13．Winsock控件主要用来编制基于TCP/IP或 协议的网络应用程序。如果希望得到本地计算机的 IP地址，可以使用Winsock控件的 属性。
14．Winsock控件主要用来编制基于 或 协议的网络应用程序。 15．如果不能事先确定变量的数据类型，则可以把它声明为 类型。
16．以写方式打开D盘中的 Text.dat文件，正确的语句是 17．列表框中项目的序号是从 开始的。
18．执行赋值语句y = “abc”+”def”后，变量y的值是 。 19．全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明。
20．VB中参数传递的机制有两种，一种是 参数，另一种是 参数。
21．闰年的条件是：年号（Y）能被4整除，但不能被100整除；或者年号能被400整除。表示该条件的逻辑表达式是 。
22．若窗体的左上角坐标为（-250，250），右下角坐标为（300，0），则X轴的正向向 ，Y轴的正向向 。
23．在VB中，将Access称为 ，SQL Server称为 ，Foxpro称为 。
24．数据库应用程序属于一种非常典型的前后台软件结构，前后台之间进行通讯的主要机制称为 。
25．常用的VB网络编程控件主要有 、 和 三种。
26．通常可以将文本框控件的 属性设置为False，以禁止键盘输入。如果不希望某个控件获得焦点，则可以将它的 属性设置为False。
.. ..
27．VB应用程序可分为单窗体、多窗体和 。 28．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。则X轴的正向向 ，Y轴的正向向 。
29．数据库应用程序属于一种非常典型的前后台软件结构，而前后台之间进行通信的主要机制称为 。
30．VB中将数据库分为本地数据库、 和 三种类型。
三、阅读程序题
阅读下列程序并写出程序运行结果 1．
Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = y + 3
Form1.Print \End Sub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。 2．
Private Sub Command1_Click() x = 0
Do While x < 60
x = (x + 3) * (x + 4) n = n + 1 Loop
Text1.Text = Str(n) Text2.Text = Str(x)
Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub
写出程序运行后，文件框Text3的结果。
3.
Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer Dim j As Integer A(1) = \ A(2) = \ A(3) = \ c = 1
.. ..
For j = 1 To 3
c = c + Val(A(j)) Next j Print c End Sub
写出程序运行时单击窗体后，窗体Form1上的结果。 4.
Public Sub change1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t End Sub
Public Sub change2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer a = 22: b = 33 change1 a, b
Form1.Print \ a = 22: b = 33 change2 a, b
Form1.Print \End Sub
写出程序运行时，单击窗体Form1上的输出结果。 5．
Private Sub Form_Click()
Dim i As Integer, k As Integer k = 1
For i = 1 To 4 If i > 3 Then k = k + 4 Exit For Else
.. ..
k = k + 3 End If Next i Print i, k End Sub
写出程序运行时单击窗体后，Form1上的输出结果。 6.
Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 6 i = 2
Do While i < 7 i = i + 4 s = s + i Loop Text1.Text = s End Sub
写出程序运行后，单击Command1按钮，文件框Text1的输出结果是： 7.
Function F(a As Integer) Static c b = b + 3 c = c + 3 F = a + b + c End Function
Private Sub Command1_Click() Dim a As Integer a = 5
For i = 1 To 4 Print F(a) Next i End Sub
写出程序运行时，单击命令按钮在窗体上的输出结果。 8．
Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer
.. ..