程序设计语言(VB)复习题

程序设计语言（ＶＢ）复习题

一、选择题：

1、在VB的工程中，工程文件的扩展名是 _

A) frm B) vbg C) vbp D) bas 2、VB使用与开发 环境下应用程序的工具。

A．DOS B．Windows C． DOS和 Windows D．UNIX 3、VB 6.0在程序设计语言中属于 。

A．汇编语言 B．自然语言 C． 机器语言 D．高级语言 4、以下关于保存工程的说法正确的是 。 A 保存工程时只保存窗体文件即可 B 保存工程师时只保存工程文件即可 C 先保存窗体文件，再保存工程文件 D 先保存工程文件，再保存窗体文件

5、一个对象可执行的动作与可被一个对象所识别的动作分别被称为 。

A．事件、方法 B．方法、事件 C．属性、方法 D．过程、事件 6、一只白色的足球踢进球门，则白色、足球、踢、进球门是__ _____ 。

A．属性、对象、方法、事件 B．对象、属性、事件、方法 C．对象、属性、方法、事件 D．属性、对象、事件、方法 7、在文本框Text1中输入数字34，在文本框Text2中输入数字16，执行下列语句，只有 可使文本框Text3中显示50。

A Text3.text = text1.text & Text2.text

B Text3.text = Text1.text + Text2.text

C Text3.text =Val( Text1.text) + Val(Text2.text)

D Text3.text =Val(Text1.text) & Val(Text2.text)

8、算法的三种基本结构是 。

A．顺序结构、模块结构、循环结构 B．嵌套结构、选择结构、循环结构 C．顺序结构、选择结构、循环结构 D．嵌套结构、模块结构、循环结构 9、如果编写的过程要被多个窗体及其对象调用，应将这些过程放在 模块中？

A．窗体模块 B．标准模块 C．工程 D．类模块 10、下面表达式中，值为True的是 。

A. Lcase（“abcd” ）= “ABCD” B. Not（sqr（16）－ 4）> －2） C. Right（“XYZ”，2）> Mid(“XYZ”,1,2) D 11 Mod 4 > 18 / 2 /2

11、下面关于InputBox函数功能的描述那句正确的是 。

A．是求某数的二次方。

B．是用来接收用户通过键盘输入的数据。 C．是用来接收用户通过键盘输出的数据。 D．是将数据累加的。

1

12、以下关于Name名称属性的说法，错误的是 。

A．Name属性必须以一个字母开始

B．Name属性可以在属性窗口修改，也可以在代码中修改 C．所有控件都有Name属性，其值不能为空 D．”form1.frm”是一个非法的对象名

13、使用 方法可将列表项从一个列表框中删除。

A Print B AddItem C Clear D RemoveItem

14、以下能在窗体Form1的标题栏中显示“VisualBasic窗体\的语句是 。

A．Form1.Name=\窗体\B．Form1.Title=\窗体\C．Form1.Caption=\窗体\D．Form1.Text=\窗体”

15、控件的 确定当一个事件发生时执行代码。

A．事件过程 B．函数 C．子程序 D．通用过程 16、下列不能作为VB变量名的符号是

A) A45 B) P12 C) 89Ta D) xy 17、VB中，要将一个窗体装载到内存进行预处理，但不显示，应用哪种语句： 。

A．Show B．Hide C．Load D．Unload 18、在事件过程中可以用 语句定义变量。

A．Dim、Private B．Dim、Public C．Dim、Static

D．Dim、Static、Private

19、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click事件,则命令按钮的名称属性和Caption属性分别为

A CmdOK、OK B Cmd、OK C OK、OK D OK、CmdOK

20、下列可作为Visual Basic变量名的是 。

A．A#A B．4A C．?xy D．constA 21、下面哪种结构可实现分支结构 。

A．If-Then-Else-End If结构 B．Do-While 结构 C．赋值语句 D．For-Next结构 22、可以删除字符串尾部空格的函数是

A) Ltrim B) Rtrim C) Trim D) Mid 23、下面哪种结构可实现循环结构 。

A．If-Then-Else-End If结构 B．Select-Case-End Select 结构 C．赋值语句 D．For-Next结构 24、执行下面的的程序段后N和I的值是多少 For N=1 To 10 I=I+1 Next N

A．9，10 B．11，10 C．10，10 D．11，11 25、 程序中可以通过复选框和选择按钮的_ ___属性值来判断他们当前的状态。

A Caption B Value C Checked D Selected

2

26、下列表达式中，值为True的是 。

A．Ucase（“abcd”）>=“abcd ” B．14/2<10 Mod 4

C．Mid(“ABCD”,2,2) >Left(“ABCD”,2) D．Not(Sqr(4)－3 >= -2)

27、 执行语句s=Len(Mid(\后，s的值是 。

A．Visual B．6 C．11 D．Basic 28、下列程序运行结果是____ _________。

Private sub command1_click() Dim x as string, y as integer X=”CDE”

For y=1 to Len(x)

X=mid(x,2*y-1,1) & left(x,len(x)) Print x Next y End sub

A DEF B FEFDEF C EDCCDE D CCDDEE

29、下列语句代码中， 不可以正常执行。

A．Print “14” + 32 B．Print 256/128 C．Print 5+7=14 D．Print 32765+4

30、LCase( “This” )的值是 。

A． This B． THis C．this D．THIS 31、下列程序运行结果是_____ ______。

Private sub cmd1_click()

Dim a as integer,b as integer a=1:b=0

do while a<=5 b=b+a*a a=a+1 loop print a,b End sub

A 9 17 B 6 31 C 5 55 D 6 55

32、在VB中，要设置菜单项的快捷访问键，应使用哪个符号 。A．& B． * C． $ D． @ 33、使用 方法将新的项添加到一个列表框中。

A．Print B．AddItem C．Clear D．RemoveItem 34、下列程序段，输出结果是__ ___。

B=1

Do until b>10 B=B*(B+1) Loop

3

Print b

A 100 B 42 C 300 D 400

35、Print方法的使用形式是：[Object.]Print P1 P2.。通常Object指的是 对象。

A．窗体、图片、Debug B．Debug、标签、窗体 C．窗体、图片、文本框 D．窗体、标签、文本框

36、假定变量Logic类型是Boolean，下面语句 是正确的。

A．Logic=＇True＇ B．Logic=.True. C．Logic=#True# D．Logic=3<4

37、假定有一个菜单项，名为menuitem，为了在运行时使该菜单项失败（灰色），应使用的语句为____ _______。

A menuitem.enabled=false B menuitem.enabled=true C menuitem.visible=true D menuitem.visible=false 38、执行以下程序段后，变量c$的值为 （25） 。

a$=“Visual Basic Programing” b$=“Quick”

c$=b & UCase(Mid(a,7,6)) & Right(a,11)

A．Visual BASIC Programing B．Quick Basic Programing C．QUICK Basic Programing D．Quick BASIC Programing 39、在窗体上画一个文本框，然后编写如下事件过程：

Private Sub Form_Click()

Dim x As String

x = InputBox(\请输入一个整数\ Print x + Text1.Text End Sub

程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为 。

A．123456 B．456 C．479 D．123 40. 阅读下面的程序段：

for I=1 to 3 for j=I to 3 for k=1 to 3 a=a+I next k next j next I

执行上面的3重循环后，A的值为_____ ____ 。 A 3 B 9 C 14 D 30

41、根据下面的程序段，如果Time =42 问变量Pay的值应该是 。

Private Sub Command1_Click()

Dim time As Integer, Pay As Integer

time = InputBox(\请输入一个整数\If time<=40 Then Pay=time*10 Else

Pay=400+(time-40)*20

4