《vb程序设计》期末复习题及答案范文

第一篇：《vb程序设计》期末复习题及答案范文

《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、Password属性值为空 D、PasswordChar属性值为* 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 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 11.下列对象不能响应 Click事件的是（D）A、列表框 B、图片框 C、窗体 D、计时器

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 < c#12/20/1999#的运算结果是#12/11/1999# 8．可以在窗体的通用部分声明静态变量。

不正确。静态变量为局部变量，只能在过程中声明。

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 < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的数是：" & b)

原文网址: http://hi.baidu.com/%CC%EC%D0%AB%C4%A7%BE%FD/blog/item/d446b034a6b3373f5bb5f5fd.html

由弘一网童保存，尚未注册。注册

第二篇：VB程序设计期末模拟试题及答案

0 《VB》期末复习题及答案

综合复习题

一、填空题

1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。

2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。

3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。

4．窗体的常用方法有__________、___________、___________和___________。5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是____________________________________。

6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。

Private Sub Cmdopen_ ___________ _____________________ End Sub 7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。Visual Basic根据表达式的___________来确定表达式的类型。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 c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、编程题

1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给 4

出提示信息，否则计算三科平均成绩。单击退出按钮则退出。

2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。

3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4．任意输入3个数，求大小排第二的那个数，写出程序代码。《VB》期末复习参考答案

一、填空题

1．创建应用程序界面 设置属性 编写代码 2．属性、text 3．Label TextBox 4．Load方法 Show方法 Hide方法 Unload方法 5．txtshow.text=“GOOD WORK” 6．Click()、frm1.show 7．算术表达式 字符串表达式 关系表达式 布尔表达式 日期表达式 对象表达式 运算符 8．1 9．True False 10．12 11．Sin(x)^ 2 + Sqr(x ^ 2-y ^ 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，输出结果为：120。3.* ** *** **** ***** 4.aabb-30 False aabb-30 False 30+60 90 30+60 90 5.11 13 9

五、编程题 1．

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 6

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 < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的数是：" & b)

第三篇：VB程序设计期末模拟试题及答案

《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根据表达式的_运算符来确定表达式的类型。8．表达式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c

达式c>a And Not b

10．日期表达式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、编程题

1．设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。

2．设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。

3．设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时，标签（Label1）中的文字（欢迎您！）的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4．任意输入3个数，求大小排第二的那个数，写出程序代码。

第四篇：VB程序设计期末复习总结[范文模版]

1.timer_Tick事件 在指定的时间里调用此事件，比如设置timer1.interval=10，则表示在一秒内执行10次timer_Tick事件。

2.Label3.Text = Format(x, “00000”)，设置x是一个五位数，不足左侧用零来补。

3.TextBox1.Text = UCase(TextBox1.Text)，将输入的字母转换成大写，用textchanged事件 4.Label1.Font = New Font(“隶书”, 12, FontStyle.Bold)设置字体名：Textbox1.Text.Font.Name = “微软雅黑”。设置字号：Textbox1.Text.Font.Size = 14。设置粗体：Textbox1.Text.Font.Bold = True。设置斜体：Textbox1.Text.Font.Italic = True。设置下划线：Textbox1.Text.Font.Underline = True。设置删除线：Textbox1.Text.Font.Strikethrough = True。Label1.Font = New Font(Font.Name, 12, FontStyle.Italic)也可如此 5.将Button1控件的左上角定位于距窗体左边框60、距顶部40的位置。Button1.Location = New Point(60,40)等价于：Button1.Left = 60

Button1.Top = 40 6.例如，将Button1控件设置为宽度为80、高度为30。Button1.Size = New Size(80,30)等价于：Button1.Width = 80

Button1.Height = 30 7.Size与clientsize。前者是整个窗体的大小，后者是不含边框的窗体的大小。

8.Cursor属性决定运行时鼠标移动到对象上时，显示出的鼠标指针的图像。其属性值是枚举类型。

9.ControlBox和Icon属性决定标题栏上是否有控制菜单框、设置其图标。默认情况下，ControlBox属性值为True，若设置为False，则不显示控制菜单框，并且不显示最大化 按钮、最小化按钮和关闭按钮。

10.FormBorderStyle属性用于设置窗体边框的样式。其他的BorderStyle属性是用来设置边框格式的。

11.窗体的常用事件。Click事件，在程序运行时单击窗体的某个位置，VB将调用窗体的Form_Click事件过程，如果单击的是窗体内的控件，则只能调用相应控件的Click事件过程。Load事件，当窗体被装入时触发该事件。当应用程序启动时，自动执行该事件过程，因此通常将进行初始化的程序代码写在窗体的Load事件过程中。12.TextAlign属性用于设置文本的对齐方式。Left：正文左对齐，Right：正文右对齐，Center：正文居中。也可用于决定对象的位置。

13.Maxlength属性用于设置文本框中最多能够输入字符的个数。默认情况下，其值为32767。14.ScrollBars属性用于设置水平滚动条和垂直滚动条。当设置水平滚动条后，文本框的自动换行功能将会自动消失，只有按Enter键才能换行。竖直滚动条则正常换行。

15.ReadOnly属性用于设置文本框是否可以编辑。默认值为False，表示运行程序时能对文本框进行编辑。当其值为True时，不能编辑文本框中的内容，但可以选定文本框中的内容。

16.PassWordChar属性设置在文本框中取代用户输入而显示的字符。例如，当设置为“*”时，运行程序时文本框中输入的内容存储在Text属性中，但均以“*”显示。一般用于设置口令。

17.TextChange事件当用户输入新内容或程序将Text属性设置为新值时，文本框的Text属性值发生变化，从而触发TextChange事件。当用户输入一个字符时，就会触发一次TextChange事件。例如，在文本框中输入字符串Basic时，就会5次触发TextChange事件。出发之后开始执行设置程序。

18.KeyPress事件当用户在文本框中按下并释放键盘上的一个键时，就会触发KeyPress事件。与TextChange事件类似。所不同的是，当按下某些键（如方向键）时，文本框的值没有发生变化，此时仅触发KeyPress事件，而不触发TextChange事件。KeyPress事件会返回一个e参数，通过e.KeyChar可以获取按键对应的字符。例如，运行程序时按了字符“A”键，则e.KeyChar的值为“A”。将命令按钮的Text属性设置为“退出(&E)”。运行时，按钮上显示“退出(E)”。当用户按下Alt+E时，相当于单击了该按钮，运行其Click事件过程。

19.Picturebox属性：将图像文件c:examplerabbit.jpg显示在PictureBox1图片框中：PictureBox2.Image=Image.FromFile(“c:examplerabbit.jpg”)20.Picturebox属性：SizeMode属性用于设置图片框中图像的显示方式，属性值有：Normal：默认值，图像保持其原始尺寸、其左上角与图片框的左上角对齐。如果图像比图片框大，则超过部分被剪裁掉；StretchImage：图像被拉伸或收缩，使其与图片框的大小一致；AutoSize：图像保持其原始尺寸、自动调整图片框的大小，使其与图像大小一致；CenterImage：图像保持其原始尺寸、与图片框的中心对齐。若图像比图片框小，图像居中显示；否则，图像居中，而外边缘将被剪裁掉；Zoom：图像大小按其原有的大小比例被缩放，其宽度或高度之一与图片框一致。

21.Vb中变量命名法：必须以字母或下划线开头，由字母、数字和下划线组成，长度不超过1023个字符。如果名称以下划线开头，则必须包含至少一个字母或数字。不能使用VB中的关键字，如：Integer、If等。

22.Boolean类型是逻辑类型，表示true和false。

23.n是十进制/八进制/十六进制整数，八进制在整数前面加&O（是字母O，不是数字0），例如：&O56、&O56S、&O56L。十六进制在整数前面加&H例如：&H56、&HAB12、&HAB、&HABS、&HABL。Decimal、Single、Double只能表示十进制，前者是因为定义，后两者是因为是浮点数。

24.格式：Mid(s, n[, m])、Left(s, n)、Right(s, n)功能：s是一个字符型数据，n和m是一个整型数据。Mid返回从字符串s中的第n个字符开始的m个字符，无m则表示所有自字符。Left返回字符串s中左边n个字符，Right返回字符串s中右边n个字符。

Mid(b, 2, 1)= 0

✔ Microsoft.VisualBasic.Left(b, 3)= 0

❌ Mid可用于赋值，left与right不可用于赋值。

25.后缀

26.Char类型，用来存储单个字符或汉字，占两个字节。例如：“A”、“0”、“数”等。String类型，表示包含多个字符的字符串用一对西文双引号““”括起来表示例如：”Visual Basic“、”2016“、”G“、” “空字符串”“若表示的字符串中包含双引号“””，则用连续的两个双引号表示。

27.字符串查找：格式：Instr([n,] s1, s2)，功能：n和m是一个整型数据，s1和s2是一个字符型数据。Instr函数在s1字符串中从第n个字符开始查找s2字符串，如果找到s2字符串，返回s2在s1中的起始位置值，否则返回0。若省略n，则从第一个字符开始查找。例如文本框TextBox1中输入的是书名，判断书名中是否含有“计算机”三个字的表达式为：If InStr(TextBox1.Text, “计算机”)> 0 Then 28.Date类型变量d的值是d = “[8 / 20 / 2009]6:5:4[AM]”

[月日年]时:分:秒[上下午] 29.算术运算符的优先级：指数取负，乘除整除，取余加减（^-*/+-mod）

30.串联运算符“+”运算符既可作为字符串运算符，又可作为算术运算符。当“+”运算符两边操作数都是字符串时，进行串联运算，将两个字符串连接起来，并作为结果。当“+”运算符两边操作数都是数值时，进行加法运算。当一侧是数字字符串，另一侧是数值时，若option strict为on则显示错误，off则正确转化为double运算，默认值为off；当一侧是数值，另一侧是非数字的字符串是，错误。“&”运算符不管两边操作数的数据类型，直接进行连接操作。

31.关系运算符设计比较时注意：两个操作数都是数字则直接比较；都是字符则比较ascll码值；中文最牛逼；比较运算符优先级相同；

32.Like函数的用法：Like运算符与通配符：?、*、#、[字符列表]、[!字符列表]结合使用。其中，？表示任何一个字符，* 表示任意多个字符，# 表示任何一个数字（0~9），[字符列表] 表示字符列表中任意一个字符，[!字符列表] 表示不在字符列表中的任意一个字符。

If b Like “[” & A(m)& “]” Then If Not e.KeyChar Like “[a-zA-Z]” Then 33.当多种表达式同时在一个表达式中出现时，其优先级的顺序如下：

算术运算符＞字符串运算符＞关系运算符＞逻辑运算符

具有相同优先顺序的运算符将按照它们在表达式中出现的顺序从左至右进行计算。当表达式中包含多个运算符时，使用圆括号，可以改变计算顺序，圆括号内的表达式优先计算。34.35.36.逻辑运算符的功能是对操作数进行逻辑运算（又称布尔运算），其运算结果是逻辑值True或False。Const PI As Single = 3.1415

'声明符号常量。声明一个常量，不一定非得用dim，const也可以

数学函数包含在System.Math类中。该类中包含许多方法和常量，利用这些方法和常量可以进行各种数学运算。这些方法可以作为数学函数使用，使用时，在函数名前面加“Math.”。

四舍五入函数，格式：Round(x[,n])。功能：x是一个数值型量，将x值四舍五入，得到最接近的整数或指定的小数位数n的值。缺省n时，表示四舍五入取整。示例：Math.Round(4.56)的运算结果为5，Math.Round(4.56, 1)的运算结果为4.6 字符和ASCII码转换函数，格式：Asc(s)、Chr(x)。功能：c是一个字符型量、x是一个数值型量。Asc计算出字符串的第一个字符的ASCII码值，Chr则计算出以x为ASCII码的字符。示例：Asc(“A”)的运算结果为65。Chr(65)的运算结果为“A”。Asc(Chr(x))的运算结果仍然是x，Chr(Asc(c))的运算结果仍然是c。

大小写字母转换函数，格式：UCase(s)、LCase(s)。功能：s是一个字符型量，UCase将字符串中的所有字母转换成大写字母，LCase将字符串中的所有字母转换成小写字母。ucase(“a”)也有引号

判断文本框TextBox1中输入的是否为单个字母的表达式为：

If UCase(TextBox1.Text)>= “A” And UCase(TextBox1.Text)<= “Z” Then

If TextBox1.Text Like “[a-zA-Z]” Then If UCase(TextBox1.Text)Like “[A-Z]” Then If LCase(TextBox1.Text)Like “[a-z]” Then 字符串去除空格，格式：Ltrim(s)、Rtrim(s)、Trim(s)。功能：s是一个字符型数据。Ltrim的返回值是去除字符串s左边（前面）空格后的字符串、Rtrim的返回值是去除字符串s右边（后面）空格后的字符串、Trim的返回值是去除字符串s前后空格的字符串。字符串替换，格式：Replace(s, s1, s2[, n[, m]])。功能：s、s1和s2是一个字符型数据，n和m是一个整型数据。Replace在字符串s中从第n个字符开始，将前m个字符串s1替换为s2，并将第n个字符之前的字符删除。若缺省m，替换把第n个字符开始的所有符合条件的字符串。若缺省n，则从第一个字符串开始替换。

字符串与数组元素的转换，格式：Join(A, “d”)、Split(s, “d”)。功能：A为数组，s和d是一个字符型数据。Join以d为分隔符将数组A各元素的值连接成字符串，并作为返回值。Split的功能与Join相反，它将字符串s以d为分隔符，分隔成数组元素。缺省d时，以空格为分隔符。37.38.39.40.41.42.43.44.45.格式输出函数Format可以将数值、日期和时间按指定格式转换成字符串，其格式如下：Format(表达式, “格式字符串”)。格式名General Number、G或g保持原有数值的小数位数，格式名Fixed、F或f则四舍五入保留两位小数。

46.百分比的数字格式，格式名Percent表示将数字乘以100后、保留两位小数、并加百分号(%)。示例：Format(0.567,“Percent”)的运算结果为“56.70%”。

47.科学表示法的数字格式，使用标准的科学表示法表示数字。格式名Scientific提供两个有效位，格式名E或者e提供六个有效位。示例：Format(1234.567,“Scientific”)的运算结果为“1.23E+03” ；Format(1234.567, “e”)的运算结果为“1.234567E+003”。

48.常用的用户定义数字格式，0 和 #。符号“0”和“#”用于决定显示数值整数部分和小数部分的位数。其相同之处是：若数值整数部分的位数多于格式字符串的位数，按实际数值返回；若小数部分的位数多于格式字符串的位数，按四舍五入计算。不同之处是：当数值的位数少于格式字符串的位数时，“0”格式将不足部分补0，而“#”则不显示。49..和 ，符号“.”表示加小数点，“,”表示加千分位。示例：

Format(1234.56, “0,000.00”)的运算结果为“1,234.56”。Format(1234, “0,000.00”)的运算结果为“1,234.00”。

50.日期的格式，根据区域设置显示日期。格式名Date、Medium Date或D表示长日期格式，格式名Short Date或者d表示短长日期格式。示例：假设今天是2015年9月25日，Format(Now, “Long Date”)的运算结果为“2015年9月25日”； Format(Now, “Short Date”)的运算结果为“2015/9/25”。Label1.Text = Format(TextBox1.Text, “long date”)51.复合赋值语句常用于以下几个方面：累加sum += s

等价于

sum = sum + s 连乘 n *= i

等价于

n = n * i

显示多行信息，复合赋值语句使用得最多的是“&=”运算符。要显示多行信息，一般是利用文本框、标签，通过“&=”来实现显示。52.Inputbox（“提示信息”，“标题”，“默认内容”），“提示信息”、“标题”、“默认内容”都可以不填空着，但至少要有一个空着的省略号。

53.InputBox的返回值是一个字符串。如果需要将输入的数值参加算术运算，必须在进行运算前用Val函数把它转换为数值类型。但可以用split函数调用。每执行一次InputBox函数只能输入一个值，如果需要输入多个值，则必须多次调用InputBox函数。这时，通常与循环语句、数组结合使用。对话框显示的信息，若要分多行显示，必须加回车换行符，即Chr(13)+Chr(10)或VB系统常量vbCrLf。

54.定义变量时，可以用简写符号表示变量类型，$ 是 String，% 是 Integer，& 是 Long，!是 Single，@ 是 Currency，# 是 Double。例如Dim H%, F%, x%, y% 55.MsgBox(“提示信息”, vbOKOnly, “标题”)“提示信息”, vbOKOnly, “标题”可以都是空的，但至少要有一个空的省略号。MsgBox(“确认数据是否正确？”, MsgBoxStyle.YesNo + MsgBoxStyle.Question , “ 数据验证”)条件表达式1 F T 条件表达式2 F … 条件表达式n T 语句块1 语句块2 F T 语句块n 语句块n+1 56.elseif 的用法

57.如果是数字，则没有is。

58.Do until loop(直到结束)；do while loop(当执行)59.在for语句中，执行一次next语句，循环变量增加一个步长

60.UBound函数，格式为：UBound(数组名 [, 维])。使用UBound函数可以计算出数组的任一维可用的最大下标，从而确定数组的任一维的上界。其中：参数维指定返回数组的哪一维。1（默认）代表第一维，2代表第二维，以此类推。61.选择法排序：

Public Class Form1

Dim A()As Integer = {2, 1, 3, 4}

Dim m, n, i, j, imin As Integer

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

m = UBound(A)

For i = 0 To m1

For j = m To i + 1 Step-1

If A(j)< A(j1)

A(j1)+ f(n-2)

End If

End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

Dim y As Single

y = 0

For n = 1 To Val(TextBox1.Text)

y = y + 1 / f(n)

Next

Label2.Text = y

End Sub End Class 函数的表示法2 Public Class Form1

Dim a As String

Dim n, m As Integer

Function f(ByRef n As Integer)As String

a = TextBox1.Text

m = Len(CStr(a))

For n = m To 1 Step-1

f &= Mid(a, n, 1)

Next

End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

Label1.Text = f(n)

End Sub End Class 65.打开保存等操作的用法：

Public Class Form1

Private Sub 退出ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 退出ToolStripMenuItem.Click

End

End Sub

Private Sub 保存ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 保存ToolStripMenuItem.Click

SaveFileDialog1.Filter = “简单文本格式|*.txt|复杂文本格式|*.rtf”

SaveFileDialog1.FilterIndex = 2

SaveFileDialog1.ShowDialog()

MsgBox(SaveFileDialog1.FileName)

If SaveFileDialog1.FileName <> “" Then

If SaveFileDialog1.FilterIndex = 1 Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName,RichTextBoxStreamType.PlainText)'.txt,.TXT

Else

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)'.doc,.DOC

End If

End If

End Sub

Private Sub 打开ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 打开ToolStripMenuItem.Click

OpenFileDialog1.FileName = ”“

OpenFileDialog1.Filter = ”简单文本|*.txt|复杂文本|*.rtf“

OpenFileDialog1.FilterIndex = 1

OpenFileDialog1.Title = ”朕的打开......“

OpenFileDialog1.ShowDialog()

MsgBox(OpenFileDialog1.FileName)

If OpenFileDialog1.FileName <> ”“ Then

Me.Text = OpenFileDialog1.FileName

If OpenFileDialog1.FilterIndex = 1 Then

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)

Else

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)

End If

End If

End Sub

Private Sub 新建ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 新建ToolStripMenuItem.Click

RichTextBox1.Text = ”“

Me.Text = ”我的记事本“

End Sub

Private Sub 剪切ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 剪切ToolStripMenuItem.Click

RichTextBox1.Cut()

End Sub

Private Sub 复制ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 复制ToolStripMenuItem.Click

RichTextBox1.Copy()

End Sub

Private Sub 粘贴ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 粘贴ToolStripMenuItem.Click

RichTextBox1.Paste()

End Sub

Private Sub 删除ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 删除ToolStripMenuItem.Click

RichTextBox1.SelectedText = ”"

End Sub

Private Sub 全选ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 全选ToolStripMenuItem.Click

RichTextBox1.SelectAll()

End Sub

Private Sub 日期时间ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 日期时间ToolStripMenuItem.Click

RichTextBox1.SelectedText = Now

End Sub

Private Sub 复制ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 复制ToolStripMenuItem1.Click

Call 复制ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 剪切ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 剪切ToolStripMenuItem1.Click

剪切ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 粘贴ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 粘贴ToolStripMenuItem1.Click

粘贴ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 显示窗体ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 显示窗体ToolStripMenuItem.Click

Form2.ShowDialog()

End Sub End Class 66.控制输入可以用e.keychar来做 67.Listbox的用法

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ListBox1.SelectedIndexChanged

Select Case ListBox1.SelectedIndex

Case 0

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)

Case 1

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Italic)

Case 2

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Underline)

Case 3

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Strikeout)End Select End Sub

第五篇：VB程序设计试题与答案

1.要使一个标签能够显示所需要的文本，应设置该标签的()属性的值(单)A.Caption B.Name

C.Text D.AutoSize 2.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)，则其Interval属性值应设置为()(单)A.5

B.300

C.500

D.5000 3.下列的()对象支持KeyPress事件(单)A.文本框

B.命令按钮

C.标签框

D.图像框 4.确定一个控件在窗体上的位置的属性是()(单)A.Width或Height

B.Top和Height

C.Top或Width

D.Top和Left 5.确定一个窗体或控件的大小的属性是()(单)A.Width或Height

B.Top和Width

C.Top或Left

D.Top和Left

6.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为()(单)A.面向对象的程序设计

B.结构化程序设计

C.事件驱动的编程机制

D.程序设计 7.在VB中，工程文件的扩展名是()(单)A..frm

B..vbp

C..bas

D..frx 8.在VB中，窗体文件的扩展名是()(单)A..frm B..vbp

C..bas

D..frx 9.VB集成开发环境可以(单)A.编辑、调试、运行程序，但不能生成可执行程序 B.编辑、生成可执行程序、运行程序，但不能调试程序 C.编辑、调试、生成可执行程序，但不能运行程序 D.编辑、调试、运行程序，也能生成可执行程序 10.英文“VISUAL”的含义是()(单)A.可视化

B.集成C.结构化

D.调试

11.标准模块文件的扩展名是()(单)A.frm B.vbp C.bas

D.vbg 12.VB集成开发环境中，在()中编写代码(单)A.状态栏

B.属性列表框

C.代码框

D.标题栏

13.在面向对象的程序设计过程中，英文缩写“OOP”的含义是()(单)A.事件驱动的编程机制

B.结构化程序设计语言

C.面向对象的程序设计

D.可视化程序设计

14.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是()(单)A.Timer1.Interval=0.5

B.Timer1.Interval=5

C.Timer1.Interval=50 D.Timer1.Interval=500 15在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()a$=“VisualBasic” Print String(3,a$)End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是()(单)A.VVV

B.Vis

C.sic

D.11

16.以下关于多重窗体程序的叙述中，错误的是()(单)A.用Hide方法不但可以隐藏窗体,且能清除内存中的窗体 B.在多重窗体程序中，各窗体的菜单是彼此独立的 C.在多重窗体程序中，可以根据需要指定启动窗体 D.对于多重窗体程序中，单独保存每个窗体 17以下合法的Visual Basic变量的名称是()(单)A.a3

B.Const

C.9abc

D.a#x!

18.当一个复选框被选中时，它的Value属性的值是()(单)A.3

B.2

C.1

D.0

19.表达式 5 Mod 3+53的值是()(单)A.0

B.3

C.4

D.6

20设x=4,y=8,z=7, 表达式：(x＜y)Or z＜x 的值是()(单)A.1

B.-1 C.TRUE D.FALSE 21设有如下程序段： x=2 For c=1 To 4 Step 2 x=x+c Next c 运行以上程序后，x的值是()(单)A.6 B.7 C.8 D.9

22执行如下两条语句，窗体上显示的是()(单)A=9.8596 Print Format(a,“000.00”)A.0,009.86 B.9.86 C.009.86 D.0,009.86

23下列说法中正确的是：为了保存一个Visual Basic应用程序，应当()(单)A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件

24.要使一个文本框对象能够显示多行文字，应设置该对象的()属性值为True(单)A.Text B.MultiLine C.Style D.Visible 25.若要将窗体从内存中卸载，其实现的方法或语句是()(单)A.Show B.Unload C.Load D.Hide 26.以下选项中，不是VB标准控件的是()(单)A.命令按钮 B.定时器 C.通用对话框 D.单选框

27在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim a As Variant a = Array(1, 2, 3, 4, 5)Sum = 0 For i = 1 To 5 Sum = Sum + a(i1)“, a(i1)> x Then Print a(iNum2 Case 3 Op = ”ד Result = Num1 * Num2 Case 4 Op = ”÷“ Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & ”=“ & Result End Sub 窗体运行后，输入1，则label1的标题显示结果为()(单)A.3+2=5 B.3-2=1 C.3×2=6 D.3÷2=1.5

42在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，以下能实现上述操作的程序段是()(单)A.Private Sub HScroll_Change()Text1.Text=HScroll1.Value End Sub

B.Private Sub HScroll_Click()Text1.Text=HScroll1.Value End Sub C.Private Sub HScroll_Change()Text1.Text=HScroll.Caption End Sub D.Private Sub HScroll_Click()Text1.Text=HScroll.Caption End Sub

43.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()x=InputBox(”Input“)Select Case x Case 1,3 Print ”分支 1“ Case Is＞4 Print ”分支 2“ Case Else Print ”Else 分支 “ End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）A.分支1 B.分支2 C.Else分支 D.程序出错

44.随机产生10个100～200之间的数，求它们的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 45设a=10，b=5，c=1，执行语句Print a ＞b ＞ c后，窗体上显示的是()(单)A.True B.False C.1 D.出错信息

(46)在窗体上建立通用对话框需要添加的控件是

A)Data控件 B)From控件 C)CommonDialog控件 D)VBComboBox控件

(47)在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是 A)Load B)Show C)Hide D)Unload

48)Sub过程与Function过程最根本的区别是

A)Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以

B)Function过程可以有形参，Sub过程不可以

C)Sub过程不能返回值，而Function过程能返回值 D)两种过程参数的传递方式不同

49保存一个工程至少应保存两个文件，这两个文件分别是）A)文本文件和工程文件 B)窗体文件和工程文件 C)窗体文件和标准模块文件 D)类模块文件和工程文件

50.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是

A)MousePicture B)Style C)DownPicture D)DisabledPicture

51假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是）A)bool_x=”False“ B)bool_x=.False.C)bool_x=#False# D)bool_x=False

52.设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（）A)“中华民国”

B)“中国人民”

C)“中共人民”

D)“人民共和” 53下列表达式的值为2123的是（）

A)Val(”123asd“)& 2000 B)Val(”123asd“)+ 2000 C)Str(123)& ”2000“ D)Str(123)+”2000“ 54假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程： Private Sub Command1_Click()CommonDialog1.Flags=4 CommonDialog1.Filter=”all files(*.*)|*.*|text Files(*.Txt)|*.txt|Batch Filse(*.bat)|*.bat“ CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”对话框中显示的是（）

A)All Files(*.*)B)Text Files(*.Txt)C)Batch Files(.bat)D)不确定

55当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（）A)Load B)Click C)Unload D)GotFocus 56.无论何控件，都具有一个共同属性。这个属性是（）A)Text B)Font C)Name D)Caption 57.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）A)，B)；

C)、D)：

58.表达式12000 + ”129“ & 200的值是

A)12329 B)”12129200“ C)”12000129200“ D)”12329“ 59.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）

A)属性、控件和方法 B)属性、事件和方法 C)窗体、控件和过程 D)控件、过程和模块

60表达式String(1,”I am student“)+ Replace(”am harass“,”rass“,”ppy“)& ”!“的值是（）A)”I am happy!“ B)”I am student I am s am harass studentam happy!“ C)”I am student am harass!“ D)”I am student am happy!“ 61.引用列表框（List1）最后一个数据项应使用的表达式是（）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)62.以下属性和方法中，可重定义坐标系的是）

A)DrawStyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性 63.下面说法不正确的是()A)滚动条的重要事件是Change和Scroll B)框架的主要作用是将控件进行分组，以完成各自相对独立的功能 C)组合框是组合了文本框和列表框的特性而形成的一种控件

D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上

64.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）A)True B)2 C)0 D)1 65.下列关于过程叙述不正确的是（）

A)过程的传值调用是将实参的具体值传值递给形参 B)过程的传址调用是将实参在内存的地址传递给形参

C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D)无论过程传值调用还是过程传址调用，参数传递都是双向的

66.为了使标签能自动调整大小以显示全部文本内容，应把标签的【 】属性设置为true。67.要想在文本框中显示垂直滚动条，必须把scrollbars属性设置为2，同时还应把【 】属性设置为true。

68.假定有一个文本框，其名称为text1，为了使该文本框具有焦点，应执行的语句是【 】.setfocus。

69.假定有一个名为pic2.bmp的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为 图片控件名.picture=【

】。

70.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的【 】属性设置为true。

71.窗体、图片框或图像框中图形通过对象的【 】属性设置。72.计时器事件之间的间隔通过【

】属性设置。

73.有时候要暂关闭计时器，这可以通过【 】属性设置为false来实现。74.设a=sqr(2),则语句Print format$(a,”000.0“)的输出结果是【 】。75.设a=sqr(3),则语句Print format$(a,”###.0“)的输出结果是【 】。76.VB应用程序通常由3类模块组成，即窗体模块、【 】模块和类模块。

77在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：

Private sub command1_click()text1.text=”vb“ text2.text=text1.text

text1.text=”abcd“ End Sub 程序运行后，单击命令按钮，文本框text2中显示的内容为 ________。

78.在保存VB应用程序时，窗体文件和工程文件的扩展名分别为【.】和.vbp。79.下列可作为VB的变量名的是()(单)A.Filename B.A3B C.254D D.Print 80.与下列数学式cos2(c+d)对应的VB表达式是【 】。81.与下列数学式2a(7＋b)对应地VB表达式是【 】。82.在VB中，字符串常量要用【 】括起来。83.下面的事件不属于鼠标器事件的是()(单)A.MouseDown事件 B.MouseUp事件 C.MouseMove事件 D.Move事件 84.下面的事件不属于键盘事件的是()(单)A.KeyPress事件 B.KeyDown事件 C.KeyUp事件 D.KeyMove事件

85.对以下程序说法不正确的是()(单)Private Sub FileOpen_Click()CommonDialog1.InitDir = ”C:“ CommonDialog1.Filter = ”文本文件 | *.Txt“ CommonDialog1.ShowOpen End Sub A.显示”文件“打开对话框 B.打开的对话框的初始目录为C盘根目录 C.打开的对话框的文件类型为文本文件 D.以上说法都不正确

86.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。Private Sub Form_Click()Dim m1, n1, m, n, r As Integer n1 = InputBox(”输入自然数n“, ”输入数“)m1 = InputBox(”输入自然数m“, ”输入数“)n = n1 m = m1 If m ＜n Then t = m: m = n: n = t End If r = m Mod n Do While r 【 】 0 m = n n = r r = m Mod n Loop Print ”最大公约数=“, n Print ”最小公倍数= “, m1 * n1 / n End Sub 87.下面是求100以内素数的程序。Private Sub Command1_Click()Dim i As Integer, m As Integer, tag As Boolean

For m = 2 To 100 tag = True For i = 2 To m-1 If m Mod 【 】 = 0 Then tag = False Next i If tag Then Print m Next m End Sub 88.百元买百鸡问题： 假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。Private Sub Command1_Click()Dim x%, y%, z% For x = 0 To 33 For y = 0 To 50 For z = 0 To 100 If 3 * x + 2 * y + 0.5 * z = 100 And 【 】 Then Picture1.Print x, y, z End If Next z Next y Next x End Sub 89.随机产生10个100～200之间的数，求它们的最大值程序如下： Private Sub Command1_Click()Max = 100 For i = 1 To 10 x = int【 】 Print x;If x ＞ Max Then Max=x Next i Print Print ”最大值=“;Max End Sub 90.以下是求1～100之间5或7的倍数的和，如下程序段： Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then 【】 End If Next i Print Sum 其中【】处书写正确的是（）(单)A.Sum = i B.Sum = Sum +i C.Sum = Sum + 5+7 D.以上都不正确 91.要使得在按下鼠标左键时，激发mousedown事件，可以设置此事件中的button参数为()(单)

A.0 B.1 C.2 D.4 92.要使得在按下鼠标右键时，激发mousedown事件，可以设置此事件中的button参数为()(单)A.0 B.1 C.2 D.4 93.删除列表框中所有的项目所使用的方法为()(单)A.move B.remove C.clear D.removeitem 94.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub command1_click()Dim a As String, b As String a = InputBox(”Enter the First integer“)b = InputBox(”Enter the Second integer“)Print b + a End Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111,则输出结果是()(单)A.456 B.111 C.567 D.111456 95.传值：形参得到的是实参的值，形参值的改变不会影响实参的值。在定义形参前加关键字Byval。

96.以下利用SUB关键字定义的子过程Rate，其调用格式不正确的是()(单)A.call Rate(12,56)B.Rate(12,56)C.Rate 12,56 D.以上A和C正确

97.以下程序的作用是单击Check1检查框将使得Text1文本框的字体在”加粗“和”常规“之间进行切换。

Private Sub Check1_Click()Text1.FontItalic = Not Text1.FontItalic End Sub 98.窗体中有一个名称为Slider1的可选择性刻度滑块控件，要设置它的如下属性值，可以编写程序()(单)(1)Slider控件的滑块处于最小位置时值为8(2)Slider控件的滑块处于最大位置时值为72(3)单击Slider控件两端箭头时，滑块的增量值为2(4)单击Slider控件的空白处时，滑块的增量值为8 A.Slider1.Min = 8： Slider1.Max = 72：

Slider1.SmallChange =2： Slider1.LargeChange = 8 B.Slider1.Min = 2： Slider1.Max = 8：

Slider1.SmallChange = 72： Slider1.LargeChange = 8 C.Slider1.Min = 8： Slider1.Max = 72：

Slider1.SmallChange = 8： Slider1.LargeChange = 2 D.Slider1.Min = 72： Slider1.Max = 8：

Slider1.SmallChange = 2：

Slider1.LargeChange = 8 99.以下能判断指针是否指向文件尾的函数是()(单)A.BOF B.LOC C.LOF D.EOF 00.窗体的过程Form_MouseDown(Button As Integer, Shift As Integer, X As Single, YAs Single)，有4个参数，关于这些参数，正确的描述是()(单)A.通过Button参数判定当前按下的是键盘上哪一个键 B.Shift参数只能用来确定是否按下Shift键

C.Shift参数只能用来确定是否按下Alt和Ctrl键 D.参数x,y用来设置鼠标当前位置的坐标

01.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是()(单)A.Combo1.RemoveItem Text B.Combo1.RemoveItem 2 C.Combo1.RemoveItem 3 D.Combo1.RemoveItem Combo1.Listcount

1-10ADADA ABADA 11-20CCCDA AACBC 21-30ACDBB CDCCC 31-40ABDAB fontname BAAC 41-45AAC RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 B 46-50CACBB 51-55DBBAA 56-60CDBBA 61-65BCDDD 66Autosize 67Multiline 68Text1 669loadpicture(”pic2.bmp")70Stretch 71Picture 72Interval 73Enabled 74 001.4 75 1.7 76【标准】77VB 78frm 79B 80cos(2*(c+d))81 2*a*(7+b)82【双引号】83D 84D 85D 86<> 87【i】88x+y+z=100 89RND*101+100或100+RND*101或RND()*101+100或100+RND()*101 90B 91-95BBCDV 96-00BVADD 01B 13