VB程序设计试题与答案(2)

t = y y = z z = t

If x＜ y Then t = x x = y y = t End If End If

Label1.Caption = x & \End Sub

当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为( )(单) A.3,5,8 B.5,3,8 C.8,5,3 D.3.8.5 41.

Private Sub Form_Load( )

Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2

Nop = val(Inputbox(\请输入1-4之间的整数\Select Case Nop Case 1 Op = \＋\

Result = Num1 + Num2 Case 2 Op = \－\

Result = Num1 - Num2 Case 3 Op = \×\

Result = Num1 * Num2 Case 4 Op = \÷\

Result = Num1 / Num2 End Select

Label1= Num1 & Op & Num2 & \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

6

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(\Select Case x Case 1,3

Print \分支 1\Case Is＞4 Print \分支 2\Case Else

Print \分支 \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 \最大值=\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过程不可以

7

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=\ 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(\ B) Val(\C) Str(123) & \ D)Str(123)+\

54假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Flags=4

CommonDialog1.Filter=\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 + \的值是

A)12329 B)\

59.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ ）

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

8

60表达式String(1,\的值是（ ） A)\

B)\C)\D)\

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,\的输出结果是【 】。 75.设a=sqr(3),则语句Print format$(a,\的输出结果是【 】。 76.VB应用程序通常由3类模块组成，即窗体模块、【 】模块和类模块。

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

Private sub command1_click( ) text1.text=\text2.text=text1.text

9

text1.text=\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 = \

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 \最大公约数=\

Print \最小公倍数= \End Sub

87.下面是求100以内素数的程序。 Private Sub Command1_Click( )

Dim i As Integer, m As Integer, tag As Boolean

10

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB程序设计试题与答案(2)在线全文阅读。