VB综合试题(好)

Visual Basic程序设计综合练习

一．选择题

1．VB程序设计的完整步骤是（）。

（A）可视化程序设计（B）代码程序设计

（C）可视化程序设计和代码程序设计（D）界面设计

2．要求改变窗体的标题时，应当在属性窗口中改变（）的属性。

（A）Caption ( B )Name ( C )Text ( D )Label

3．下列变量命名正确的是（）。

（A）vb+1 ( B )myfile ( C )page@2 ( D )cmd..1

4．窗体能响应的事件是（）。

（A）ActiveForm ( B )Drive ( C )Load ( D )Change

5．在事件中，Private 表示（）。

（A）此过程可以被其它的过程调用

（B）此过程只可以被本窗体模块中的其它过程调用

（C）此过程不可以被任何其它的过程调用

（D）此过程只可以被本工程的其它过程调用

6．当执行以下的过程时，Lb1Result 的标签框内将显示（）。

Private Sub cmdIt_Click( )

Dim I,R

R=0

For I=1 to 5 Step 1

R=R+I

Next

Lb1Result.Caption=Str$(R)

End Sub

( A )字符串15 （B）整数15 （C ）字符串5 （D）整数5

7．若要求从文本框中输入密码时在文本框中只显示 * 号，则应在此文本框的属性窗口中设置（）。

（A）Text 属性值为 * （B）Caption 属性值为 *

（C）Password 属性值为空（D）Passwordchar 属性值为 *

8．（）控件可自动设置滚动条。

（A）复选框（B）框架（C）文本框（D）标签框

9．（）属性能将文本框控件隐藏起来。

（A）Clear ( B )Visible ( C )Hide ( D )New

10．能够改变复选框中背景颜色的属性是（）。

（A）Value ( B )FontColor ( C )BackColor ( D )Font

11．往列表框中添加一个条目，应使用列表框的( )方法。

（A）InserItem （B）AddItem （C）AppendItem （D）RemoveItem

12．下面( )控件不支持 change 事件。

（A）Text Box （B）Label （C）Picture Box （D）List Box

13．下列函数中，返回值是字符串的是( )。

（A）Mid （B）InStr （C）Val （D）Len

14．下列哪一条语句肯定会引起语法错误( )。

（A）print int1, Tab (10), int2, （B）print int1; int3;

（C）print int1, Spc (10); int2 （D）print int1, int2.

15．菜单控件中没有下面哪一个属性( )。

（A）Caption （B）checked （C）Enabled （D）Value

16．Windows下窗体的子菜单最多有( )级。

（A）3 （B）4 （C）5 （D）6

17．当一个窗体被卸载时，最后引发的一个事件是( )。

（A）Deactivate （B）QueryUnload （C）Unload （D）Terminate

18．下面的哪个语句不能用来结束一个应用程序( )。

（A）Unload （B）End （C）Stop （D）Exit

19．以( )方式打开的文件，只能读不能写。

（A）Input （B）Print # （C）Write # （D）Output

20．在设计一个计算器时，必须要使用的控件是（）。

（A）滚动条（B）图片框（C）按钮（D）单选框

21．不属于单选按钮的属性是（）。

（A）Enabled ( B ) Caption ( C ) Name ( D ) Min

22．VB提供的选择框（Check Box ）具有（）功能。

（A）多重选择（B）单一选择（C）多项选择（D）选择一次

23．VB为命令按钮提供的Cancel 属性是（）。

（A）用来指定命令按钮是否为窗体的“取消”按钮

（B）用来指定命令按钮的功能是停止一个程序的运行

（C）用来指定命令按钮的功能是关闭一个运行程序

（D）用来指定命令按钮的功能是中断一个程序的运行

24．以下叙述正确的是（）。

（A）组合框包含了列表框的功能

（B）列表框包含了组合框的功能

（C）列表框和组合框的功能无相近之处

（D）列表框和组合框的功能完全相同

25．组合框中的Style 属性值确定了组合框中的类型和显示方式，以下选项中不属于Style 属性值的是（）。

（A）下拉式组合框（B）弹出式组合框（C）简单组合框（D）下拉式列表框26．VB通过菜单编辑器来设置一个应用程序的菜单，若要求在程序运行的过程中，选中菜单中的“清除”命令时，在该命令前有“√”的标记。则应该在菜单编辑器内（）。

（A）选中“复选”（B）“复选”不被选中

（C）选中“有效”（D）“有效”不被选中

27．获得系统日期的函数是（）。

（A）data $ ( B ) time $ ( C ) date $ ( D ) gettime $

28．改变窗体的图标，需要设置（）属性。

（A）Caption ( B ) Icon ( C ) Picture ( D ) Visible

29．Integer类型的变量可存的最大整数为（）。

（A）255 ( B )256 ( C )32768 ( D ) 32767

30．下面的几对数据类型中，（）占用内存最少。

（A）．Integer 、Boolean ( B )．Integer 、Single

( C )．Date 、Single ( D )．Long 、Double

31．要调节锁定控件的位置，按住（）键，再用合适的箭头键可“微调”已获得焦点的控

件的位置。

（A）Ctrl （B）Alt （C）Shift （D）Insert

32．下列哪一种方法不能改变窗体的大小( )。

（A）设计时在窗体布局窗口中进行调整（B）设计时在属性窗口中设置相应的属性

（C）运行时设置相应属性的值（D）运行时调用窗体的MOVE方法

33．下面哪种对象没有Caption属性( )。

（A）Form （B）TextBox （C）Command Button （D）Label

34．下面声明数组语句中错误的是( )。

（A）Dim A(-10 To 5) $ （B）Dim A( ) As Integer

（C）Dim A(10, -10 To -10) As Integer （D）Dim A(N) 'N为变量

35．下列哪一个是日期型常量( )。

（A）" 2/1/99 " （B）2/1/99 （C）# 2/1/99 # （D）{ 2/1/99 }

36．下面哪个是算术运算符( )。

（A）Imp （B）Mod （C）Not （D）Eqv

37．要判断两个整型变量A和B中是否只有一个为0，不能使用下面哪一个逻辑表达式( )。（A）A = 0 And B<>0 or A<>0 and B = 0 （B）A = 0 Xor B = 0

（C）A * B = 0 And A + B <> 0 （D）A * B = 0 And ( A = 0 Or B = 0 )

38．Sub过程与Function过程最根本的区别是( )。

（A）前者可以使用call或直接使用过程名调用，后者不可以

（B）后者可以有参数，前者不可以

（C）两种过程参数的传递方式不同（D）前者无返回值，但后者有

39．在声明一个变量时，可能用到的关键字是( )。

（A）Exit （B）As （C）Sub （D）End

40．下列哪类对象在运行时一定是不可见的( )。

（A）Line （B）Timer （C）Shape （D）Frame

41、如果把一个人当作对象，那么血型相当于这个对象的( )。

（A）属性（B）方法（C）事件（D）特征

42、下列哪一组语句会产生错误( )。

（A）Dim int1 As Integer : int1 = True

（B）Dim str1 As String * 10 : str1 = "123.3.5"

（C）Dim int1 As Integer : int1 = "123.4"

（D）Dim bn As Boolean : bn = "Yes"

43、下面的动作中，不能引发一个按钮Click事件的是( )。

（A）在按钮上单击（B）在按钮上双击右键

（C）把焦点移至按钮上，然后按回车键（D）如果按钮有快捷字母，按“Alt + 该字母” 44、下面的运算符中，优先级最高的是( )。

（A）Not （B）Is （C）Like （D）&

45、下面哪种类型的对象不能作为控件的容器( )。

（A）Form （B）PictureBox （C）Shape （D）Frame

46、下面表达式的值是false的有( )。

（A）"n" & "969" < "n97" （B）Instr ("Visual basic", "b") <> len ("basic")

（C）str (2000) < "1997" （D）Lcase ("aBC") > "aBC"

47、在窗体上按下鼠标左键后释放，不会触发窗体的哪个事件( )。

（A）Click （B）Dblclick （C）MouseUp （D）MouseDown

48、一个菜单项是不是一个分隔条，由( )属性决定。

（A）Name （B）Caption （C）Enable （D）Visible

49、下面的哪一项不能用来在模块之间传递数据( )。

（A）全局变量（B）对象属性（C）全局数组（D）模块级变量

50、读随机文件中的记录信息，应使用下面哪个语句( )。

（A）Get （B）Read （C）Input # （D）Line Input #

51、下列数据类型中，（）占用内存最少。

（A）Boolean （B）Byte （C）Integer （D）Single

52、下面（）是字符串常量。

（A）2002／3／8 （B）“” （C）“True（D）# False #

53、变量名最多不能超过（）个字符。

（A）10 （B）16 （C）64 （D）255

54、下面的（）语句可以正确地声明一个动态数组。

（A）Private A (n) As Integer （B）Dim A ( ) As Integer

（C）Dim A ( , ) As Integer （D）Dim A (1 To n )

55、假定bln是逻辑型变量，下面赋值语句正确的是（）。

（A）bln = … True …（B）bln = . True . （C）bln = # True # （D）bln = ３> 4

二．填空题

1、VB程序设计的主要特点是和。

2、VB的基本表达式包括：算术表达式、和。

3、要求改变窗体的标题时，应当在属性窗口中改变的属性是。

4、在利用VB设计应用程序时，一般会遇到三类错误：、和

。

5、创建VB应用程序有三个主要步骤：、、

。

6、要使一个按钮设为默认按钮，应把此按钮的属性的值设为。

7、如果在模块的声明段中有Option Base 1语句，则在该模块中使用Dim a(3 To 5,6)声明的数组有个元素。

8、表达式（-3） Mod 8的值为。

9、定时器控件的Interval属性值是指时间间隔，单位为；当每隔此间隔的时间，定时器会触发一次事件。

10、在过程调用中，参数的传递可分为两种方式，其中按传递方式是默认的。

11、要使一个按钮无效，则可把它的Enable属性设为。

12、把整型数1赋给一个逻辑型变量，则逻辑变量的值为。

13、在一条Dim语句中可以声明多个变量，如Dim strVar，intVar，sngVar As Integer，则strVar、intVar与sngVar的数据类型分别是、和。

14、在过程调用中，参数的传递可分为传递和传递两种方式。

15、文本框中所显示的内容是它的属性的值。

16、VB的基本表达式包括算术表达式、和。

17、默认情况下，所有未经显示声明的变量均视为类型，如果要强制变量的声明，应在模块的声明段使用语句。

18、VB中，变量的声明可分为两种方法：隐式声明和。

19、按照文件的特征属性来分可以分为：系统文件、、、

和。

20、VB中，变量的声明可分为两种方法：数组和数组。

21．表达式“[A]”Like“[A]”的值为。

22．下列数据类型的变量各占多少个字节的内存：

Byte: ； Integer: ； Long: ；

Single: ； Double: 。

23．要使按钮表面上显示的文字为“退出（Q）”（其中“Q”为快捷键），则按钮的Caption属性的值应为。

24．判断变量X是否能被5整除的偶数，逻辑表达式写为：

。

25．已知a、b、c都是Integer型变量，使用Visual Basic逻辑表达式描述下列条件：

a小于b或小于c ：

a、b都大于c ：

a和b中至少有一个大于c ：

a和b中只有一个大于c ：

a是非正数：

a不能被b整除：

26．把整数0赋给一个逻辑型变量，则逻辑变量的值为。

27．如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim a(6, 3 To 5)声

明的数组有个元素。

28．Integer类型的变量占用字节空间。

29．表达式（－3）And 8 的值为。

30．Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为。31．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的窗口中，把此文本框的属性设置成空白。

32．滚动条控件有滚动条和滚动条。

33．VB提供了列表框控件，当列表框中的项目较多，超过了列表框的长度时，系统会自动的在列表框边上加一个。

三．判断题：给正确的打“√”，错误的打上“ X ”。

（）1．Image 控件不能用作容器使用。

（）2．若已在窗体中加入了一个通用对话框：要求在运行时，通过 ShowOpen打开对话框时，只显示扩展名为 DOC 的文件，则对通用对话框的 Filter 的属性设置应该是：“（*.DOC）| ( .DOC)”。

（）3．图象框中的Stretch 属性为 true 时，其作用是图形自动调整大小以适应图象控件。（）4．Line(500,500) – (2500,2500) 命令能够正确画出矩形。

（）5．命令 Picture 1.Circle(500,800),800 能够在图片框Picture 1 中画出的图形是圆心在（500，800）的一个圆。

（）6．VB允许设计和使用用户自己设计的控件。

（）7．VB规定窗体文件的扩展名是 .vbp 。

（）8．在MsgBox 函数中 prompt 参数是必须的。

（）9．Visual_basic是合法的变量名。

（）10．三种方式的组合框都可以接受DblClick 事件。

四．阅读程序

1、阅读下面程序，当单击窗体之后，窗体上输出的是。

Private Sub Form_Click( )

Dim i As Integer, j As Integer

Dim k As Integer

k=0

For i = 0 To 10 Step 3

For j = 1 To 10

If j > = 5 Then i = i +4: Exit For

j = j + 1

k = k + 1

Next

If i > 8 Then Exit For

Next

Print k

End Sub

2、窗体中有图片框(Picture)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向下、向右移动100twip。请填空：

Private Sub Form_load( )

Picture1.Picture = loadPicture("c:\pic\ball.ico")

[ ].Interval = 200

End Sub

Private Sub Timer1_Timer( )

Static x, y As Integer

x = x + 100

y = y + 100

Pictrue1.Move [ ]

End Sub

3、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别

是和；若将程序中A语句与B语句的位置互换，再次执行程序，

单击窗体后在Text1和Text2中显示的内容分别是和。

Private Sub Form_Click( )

Dim x As Integer, y As Integer

x = 1 : y = 0

Do While x < 3

y = y + x 'A语句

x = x + 1 'B语句

Loop

Text1.Text = x

Text2.Text = y

End Sub

4、下面程序段中，k循环共执行次，在窗体上显示的结果是。

Dim b As Integer, k As Integer

Let b = 1

For k =1 To 5

Let b = b * k

If b > = 15 Then

Exit For

Else

Let k = k + 1

End If

Next k

Print k, b

5、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。质数的个数显示在窗体上，质数从小到大依次写入顺序文件c:\dataout.txt中，在划线处填上缺少的内容。

Private Sub cmdl_Click( )

Dim intNum As Integer, int1 As Integer, int2 As Integer

Open For Output #1

intNum = 0

For int1 =

For int2 = 2 To int1 \2

If (int1 Mod int2) = 0 Then

Exit For

End If

Next

If

intNum = intNum + 1

Write # 1, int1

End If

Next

Print

Close # 1

End Sub

6．若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。请在[ ]中填入适当的内容。

Private Sub CmdExit_[ ]( )

[ ]

End Sub

7．下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。

Private Sub Comandl_Click( )

Dim int1 As Integer

int1 = CInt (txt1.Text)

Select Case int1

Case

txt2.Text = "值为0"

Case

txt2.Text = "值在1和10之间（包括1和10）"

Case

txt2.Text = "值大于10" Case Else

txt2.Text = "值小于0" End Select

End Sub

Visual Basic 综合练习参考答案

一、选择题

1 2 3 4 5 6 7 8 9 10

C A B C B A

D C B C

11 12 13 14 15 16 17 18 19 20

B D A D D B D

C A C

21 22 23 24 25 26 27 28 29 30

D C A A B A C B D A

31 32 33 34 35 36 37 38 39 40

A A

B D

C B

D D C B

41 42 43 44 45 46 47 48 49 50

A D

B D

C C B B

D A

51 52 53 54 55

B B D B D

二、填空题

1、可视化设计，事件驱动编程

2、关系表达式，逻辑表达式

3、caption

4、语法错误，逻辑错误, 执行错误

5、创建应用程序界面，设置属性，编写代码

6、Default , True

7、18 8、–3

9、毫秒，Timer 10、地址11、 False 12、 True

13、 Variant , Variant , Integer 14、地址，值

15、 Text 16、 ByVal 17、 Variant , Option Explicit

18、显式声明19、隐藏文件，只读文件，普通文件，存档文件

20、静态，动态21、 False

22、 1, 2, 4, 4, 8 23、“退出（&Q）”

24、 (x mod 5)=0 and (x mod 2)=0 或 x mod 10=0

25、 ac and b>c , a>c or b>c , a>c xor b>c , a<=0 , a mod b<>0

26、 False 27、 21 28、 2 29、 True

30、 Picture1 31、 Text 32、水平，垂直33、垂直滚动条

三．判断题

1 2 3 4 5 6 7 8 9 10

√ ⅹ√ ⅹ√ √ ⅹ√ √ √

四、阅读程序

1．4

2．Timer1 , (x,y)

3．3 , 3 , 3 , 5

4．3 、5 15

5．“c:\dataout.txt” , as , 2 to 100 , int2>int1/2 then , intNum

6．Click , Unload

7．0，1 To 10，Is>10