VB程序设计期末题库

例题1-1. Visual Basic中的标准模块文件的扩展名是________。 A. reg B. frm C. bas D. vbp 例题1-2. VB的使用目的是________。

A. 开发Windows应用程序 B. 图像处理

C. 制作WAV文件 D. 文字处理

例题1-3. Visual Basic是一种面向________的程序设计语言。

A. 过程 B. 用户 C. 方法 D. 对象

例题1-5. Visual Basic是用于开发________环境下的应用程序的

工具。

A. DOS B. Windows

C. DOS和Windows D. UNIX

例题2-1. 在设计列表框时，若实现输入多行文字的目的，应使用

________键实现文本的换行。

A. Enter B. Alt+Enter C. Ctrl+Shift+Enter D. Ctrl+Enter

例题2-2. 描述X、Y中只有一个小于Z的逻辑表达式是________。

A. X

例题2-4. 列表框的________属性代表着列表框中项目的数目。

A. List B. ListIndex C. ListCount D. Seleted

例题2-5. 复选框的Value属性为1时，表示________。

A.复选框未被选中 B.复选框被选中

C.复选框内有灰色的勾 D.复选框操作有错误

例题2-6. Visual Basic程序设计时常用的Print、Cls属于________。

A. 属性 B. 打印字库 C. 方法 D. 事件

例题2-7. 设置标签属性时，为了使 WordWrap 属性起作用，应将

AutoSize属性设置为________。 A. 0 B. 1 C. False D. True

例题2-8. 执行下面的程序，击窗体后在窗体上显示的第一行结果是

________，第三行结果是________。 Private Sub Form1_click()

Dim mystr, mystr1, mysrr2 As String mystr1 = \For i = 1 To 3

mystr2 = LCase(mystr1) mystr1 = mystr1 & mystr2 mystr = mysre & mystr1 Print mystr

mystr1 = Chr(Asc(mystr1) + i) Next i End Sub 答案：（1）Bb （2）Ee

例题2-9. 要把在Label控件中显示的文字颜色设置为红色，应设置

Label控件的________属性。 答案：Forecolor

例题2-10. 以下程序段的输出结果是________。

Dim j As Integer,s As Integer Do

s=s+j

j=j+1

Loop Until j=5 Print \

答案：s=10

例题2-11. 文本框(Textl)中有选定的文本，执行Textl.SelText=\

的结果是________。

A.“Hello”将替换掉原来选定的文本

B.“Hello”将插入到原来选定的文本之前 C. Textl.SelLength为5 D. 文本框中只有“Hello”

例题2-12. 以下不属于标签属性的是________。

A. Font B. Value C. Caption D. Index

例题2-13. 要设置命令按钮为图形形式，应设置下列________属性。

A. Style B. DownPicture C. Picture D. Image

例题2-14. 在用菜单编辑器设计菜单时，必须输入的项有________。

A. 快捷键 B. 标题 C. 索引 D. 名称

例题2-15. 在下列说法中，正确的是________。

A. 通过适当的设置，可以在程序运行期间，让时钟控件

显示在窗体上

B. 在列表框中不能进行多项选择

C. 在列表框中能够将项目按字母顺序从大到小排列 D. 框架也有Click和DblClick事件

例题2-16. 在创建VB应用程序时，除了工具箱窗口、窗体中的窗口、

属性窗口外，必不可少的窗口是________。

A. 窗体布局窗口 B. 立即窗口

C. 代码窗口 D. 监视窗口

例题2-17. 当文本框的ScrollBars属性设置了非零值，却没有效果，

原因可能是____________。 A. 文本框中没有内容

B. 文本框的MultiLine属性为False C. 文本框的MultiLine属性为True D. 文本框的Locked属性为True

例题2-18. 下面所列的控件属性中，其值既能在程序设计时设定，又

能在程序运行时通过赋值改变的是________。 A. List1.ListCount B. Text1.Index C. Dir1.Path D. Label1.Visible

例题3-1. 如果a是一个正实数，对x的第3位小数四舍五入的表达

式是________。

A. 0.01*Int(a+0.005) B. 0.01*Int(a+0.05)

C. 0.01*Int(100*(a+0.005) D. 0.01*Int(100*(a+0.05))

例题3-2. 表示\和B之一为零但不同时为零\的表达式________。

答案：A=0 xor B=0

例题3-3. 下列叙述不正确的是________。

A. 注释语句是非执行语句，仅对程序的有关内容起注释

作用，它不被解释和编译

B. 注释语句可以作为代码中的一行

C. 注释语句不可以放在其他语句的后面

D. 代码中加入注释语句的目的是提高程序的可读性 例题3-4. 执行以下程序段后，则B$的值为________。

Private Sub Command1_Click( ) A$ = \

B$ = B$ & UCase(Mid$(A$, 7, 6) & Right$(A$, 12)) Print B$ End Sub

A. Viaual BASIC Programming B. Basic Programming C. basic programming D. BASIC PROGRAMMING

例题3-5. x+y小于10且x-y要大于0的逻辑表达式是________。

A. x+y<10, x-y>0 B. (x+y<10): (x-y)>0 C. x+y<10 And x-y>0 D. x+y<10 x-y>0

例题3-6. 下面程序的执行是________。

Private Sub Command1_click() Dim z as integer x=\y=\z=Val(x+y) Print z End Sub

A. error B. 567 C. 958 D. 391567

例题3-7. 下列表达式中，值为True的是________。 A. Ucase(\

B. 14/.2\\3<10 MOD 4

C. Mid(\D. Not(Sqr(4)–3>=-2)

例题3-8. 己知表达式Val(Left$(A$，4)+Mid$(A$,4,2))，如果字符串

A$=\，那表达式的值为________。 A. 123456 B. 123445 C. 8 D. 6

例题3-9. 已知K=2，J=3，A=True，则VB的表达式

(K-J<=K)AND(NOT A)OR(K+J>=J)的值为________。 答案：True

例题3-10. 下面________是合法的变量名。

A. X_yz B. 123abc C. integer D. X-Y 例题3-11. 决定控件上文字的字体、字号、效果的属性是________。 A. Text B. Caption C. Name D. Font 例题3-12. 语句x=x+1的正确含义是________。 A. 变量X的值与X+1的值相等

B. 将变量X的值存在X+1中去

C. 将变量X的值加1后赋给变量X

D. 变量X的值为1

例题3-13. VB的一行可以写多条语句，语句之间用________隔开。

A. 逗号 B. 分号 C. 顿号 D. 冒号

例题3-14. 以下哪个是合法的变量名________。

A. Len B. Test@qw C. 6cost_1 D. count2s 例题3-15. 下列说法不正确的是________。

A. VB允许将一个数字字符赋值给一个数值型的变量

B. VB允许使用未经说明的变量，其类型都是变体类型 C. Cls方法只清除运行时在窗体或图形框中显示的文本

D. 事件过程既可在窗体模块中，也可以在标准模块中 例题3-16. 有如下程序：

Private Sub Command1_Click( ) s = Fix(-23.1) e = Int(23.1) Print Sgn(e+s) End Sub

运行时输出的结果是________。

A. -1 B. 0 C. 1 D. 23

例题3-17. 假设boolVar是一个逻辑型变量，则下面的赋值语句正确

的是________。

A. boolVar='True' B. boolVar=.True.

C. boolVar=#True# D. boolVar=3<4

例题3-18. 用于字符串连接的运算符是________。

A. & B. + C. And D. A、B皆可

例题3-19. 如果在立即窗口执行以下操作，输出的结果是________。

X=10 Y=5

Print X^2>=Y^3

A. 1 B. 0 C. True D. False

例题3-20. 圆的内接正多边形的面积公式：nRsin(π/n)Rcos(π/n)，

其对应的VB6.0算术表达式是________。n为大于2的 正整数，R为圆半径，π为圆周率。 A. n*r*sin(3.14/n)*r*cos(3.14/n) B. n×R×sinπ/n×R×cosπ/n

C. n×R×sin(3.14/n)*R*cos(3.14/n) D. nRsin(π/n)Rcos(π/n)

例题3-21. 下列语句中不能正常执行的是________。

A. print +32758+10 B. print 5+9=15 C. print \ D. print \

例题4-1. 执行以下语句后，a的值为________。

Dim a As Integer a=1

Do Until a=100 a=a+2 Loop

A. 99 B. 100 C. 溢出 D. 101 例题4-2. VB也提供了结构化程序设计的三种基本结构，这三种基本

结构是________。

A. 递归结构、选择结构、循环结构 B. 选择结构、过程结构、顺序结构 C. 过程结构、输入\\输出结构、转向结构

D. 选择结构、循环结构、顺序结构

例题4-3. 在窗体上建立3个文本框：Text1、Text2、Text3，如果在

Text1中输入200，在Text2中输入150，则执行下列程序 段后，Text3的值为________。 Dim m As Integer, n As Integer m=Val(Text1) n=Val(Text2)

If n*m=0 Then Exit Sub If m

t=m: m=n: n=t

End If Do

r=m Mod n m=n n=r

Loop While r<>0 Text3=m

A. 200 B. 150 C. 100 D. 50

例题4-4. 在窗体中添加一个命令按钮，并编写如下程序代码：

Private Sub Command1_Click( ) Dim y As Integer y = 0

Do While y<7 y=y+2 Loop

MsgBox y End Sub

程序运行后，消息对话框中显示________。

A. 0 B. 7 C. 8 D. 2

例题4-5. 给出下面的程序：

Private Sub Command1_Click( ) Dim Check ,Counter

Check = True: Counter = 0 Do

Counter = Counter + 1

If Counter = 10 Then Check = False: Exit Do Loop Until Check = False MsgBox Counter End Sub

程序最后弹出的消息对话框的内容是________。 A. True B. False C. 20 D. 10

例题4-6. 下面程序的内层循环次数是________。

For i=1 To 3 For j=1 To i

For k= j To 3

...

Next k Next j Next i

本文来源：https://www.bwwdw.com/article/7o1v.html