《vb程序设计》期末复习题及答案
一、填空题
1．创建一个VB应用程序三个主要的步骤是_(创建应用程序界面)、_(设置属性_)和_(_编写代码__)__。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性________窗口中，把此文本框的____text_________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___label________控件；若允许用户输入文本，则应使用__textbox___________控件。 4．窗体的常用方法有_load方法 Show方法 Hide方法_ Unload方法_ 。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是_（ txtshow.text=\"GOOD WORK\"_）。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。 Private Sub Cmdopen_ _click( )__________ _frm1.show_ End Sub 7．Visual Basic 6种类型的表达式是_（算术表达式_）（字符串表达式）（ 关系表达式 ）（布尔表达式 ）（日期表达式）（ 对象表达式）。Visual Basic根据表达式的_．1 _运算符__来确定表达式的类型。
8．表达式93 \\ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And ca And Not b
10．日期表达式 #2/24/02#y ^ 2) / (2 * x)___。
12．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为_（ Dim A(1 To 5，-2 To 6) As String）_。 13．事件就是在对象上所发生的事情，Visual Basic中的事件如__单击_________、_双击__________、_装载_____________等。一个对象响应的事件可以有_多____个，用户不能建立新的事件。事件过程是指_（响应某个事件后所执行的程序代码）_。假设某一事件过程如下：
Private Sub cmd1_Click() Form1.Caption=\"VB示例\" End Sub 则响应该过程的对象名是_cmd1_____________，事件名是_____click________。
14．对象的方法用于(_完成某种特定的功能__)。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为_(对象名.方法名)_，例如，对窗体Form1使用Show方法，应写成__form1.show_______________。
15．PictureBox控件可通过设置其(autosize)__属性为True使之可自动调整大小；而Image控件可通过设置其_(stretch_)__属性为True，使其加载的图片能自动调整大小以适应Image。
16．在Visual Basic程序中实现复制文件“c:\\command.com”到d:盘根目录下的语句为FileCopy \"c:\\command.com\"，\"d:\\command.com\"_。
二、单项选择题
1．下列控件中没有Caption属性的是（ B ）
A、标签 B、文本框 C、框架 D、命令按纽 2．除框架外，能对单选按纽分组的控件是（C ）。 A、窗体 B、标签 C、图片框 D、图像 3．下列符号不能作为VB中变量名的是（ C ）。
A、ABCDEFG B、P00000 C、89YWDDF D、xyz 4． 下列不属于Visual Basic数据文件的是（D ）。 A、顺序文件 B、随机文件 C、二进制文件 D、数据库文件
5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ D ）。
A、Text属性值为* B、Caption属性值为* C、Paword属性值为空 D、PawordChar属性值为* 6．表达式2*3^2+2*8/4+3^2的值为（B ）。 A、64 B、31 C、49 D、42 7．表达式mid(\"abcdefg\",3,2)的值是（ B ） A、abc B、cd C、bcd D、abcde 8．数学表达式Sin25°写成VB表达式是（ D ）。 A、Sin25 B、Sin（25） C、Sin（25°） D、Sin（25*3.14/180）
9．Sub过程与 Function过程最根本的区别是（D ）。 A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。
B、Function过程可以有参数，Sub过程不可以。 C、两种过程参数的传递方式不同。
D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。
10．选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（C ）
A、T>=1.7 And W=62.5 C、T>1.7 And W=1.7 Or W
12．在Visual Basic中，按文件的访问方式不同，可以将文件分为（ A ）
A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件
C、数据文件和可执行文件 D、ASCⅡ文件和二进制文件
13．将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（C ）方法。
A、ShowOpen B、ShowSave C、ShowColor D、ShowFont
三、指出下列句中的错误，修改或者说明原因。 1．sum和int.sum都可以作为VB的变量名。(X) 2．变量名的长度最长可达1024个字符。 (255) 3．下列程序运行结果：3，3 Option Explicit Private Sub Command1_Click() Dim a，b As Integer Dim a as integer ,b as integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub 4．程序可以改变定长字符串的内容和长度。
5．Variant是一种特殊的数据类型，可以包含任何种类型的数据。 ．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。
6．下列程序运行结果为True Private Sub Command1_Click() a = 1 b = 2 c = 3 Text1.Text = c > a + b Or b1 And c + a > a Xor b
不正确。静态变量为局部变量，只能在过程中声明。
9．使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串\"\"，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。
10．事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。
11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。 12．当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。
不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。
四、读程序题，写出程序运行结果。 1．Private Sub Form_Click() For I = 1 To 9 For j = 1 To 301 To 1 Step -1 Print k; Next k Print Next I End Sub 2．
Option Explicit Private Sub Command1_Click() Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3．
For X = 5 To 1 Step -1 For Y = 1 To 6y ^ 2) / (2 * x) 12．Dim A(1 To 5，-2 To 6) As String 13．单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click 14．完成某种特定的功能 对象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy \"c:\\command.com\"，\"d:\\command.com\"
二、单项选择题
1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C
三、指出下列句中的错误，修改或者说明原因。 1．int.sum 不正确。变量名中不能包括小数点。 2．变量名的长度最长可达255个字符。 3． 3.6 ， 4 因为a 不是整型变量。
4．不正确。程序不可以改变字符的长度，这是VB规定。 5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。
6．False 。逻辑表达式计算结果。
7．不正确。两个日期型数据相减，其结果是一个数值型数据。 8．不正确。静态变量为局部变量，只能在过程中声明。 9．正确。 10．正确。 11．正确。
12．不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。
四、读程序题，写出程序运行结果。 1．程序运行后，单击窗体，输出结果为： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1
2．程序运行后，单击按钮Command1，输出结果为： 3. * ** *** **** ***** 4.aabb -30 False aabb-30 False
30+60 90 30+60 90 5. 11 13 9
五、编程题 1．
。120 Private Sub Command1_Click() Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\" Text4.Text = \"\" End Sub
Private Sub Command2_Click() a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) If a = \"\" Or b = \"\" Or c = \"\" Then MsgBox \"成绩填写不完全！\", vbCritical Else Text4.Text = (Val(a) + Val(b) + Val(c)) / 3 End If End Sub
Private Sub Command3_Click() Unload Me End Sub 2．
Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 3．
Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub
Private Sub Check2_Click() If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub
Private Sub Command1_Click() Unload Me End Sub 4．
a = Val(InputBox(\"输入第一个数：\")) b = Val(InputBox(\"输入第二个数：\")) c = Val(InputBox(\"输入第三个数：\")) If a
原文网址: http://hi.baidu.com/
由弘一网童保存，尚未注册。注册
