VB模拟试卷3

《Visual Basic编程与应用》模拟试卷三

一、选择题（每题10分，共20分）

1. 以下是MDI子窗体在运行时特性的叙述，错误的是（ ） A) 子窗体在MDI窗体的内部区域显示 B）子窗体可在MDI窗体的外部区域显示

C）当子窗体最小化时，它的图标在MDI窗体内显示

D）当于窗体最大化时，其标题与MDI窗体标题合并，并显示在MDI窗体的标题栏中

2. Visual Basic提供的单选钮（Option）所具有的功能是( ) A) 选择一次 B) 选绎多次 C) 单一选择 D) 多重选择

3. 以卜是ru对象的单击事件过程，当第2次调用此过程，在执行End Sub之前，b的值是( )

A)0 B)1 C)2 D)不确定 Private Sub ru_Click() Dim b As Integgr b＝b+1 End Sub

4. 确定复选框是否选中，可访问的属性是（ ）

A.Value B.Checked C.Selected D.Caption 5．通用对话框中能打开“颜色对话框”的方法是

A.ShowOpen B．ShowColor C．ShowSave D．ShowPrinter 6．若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是 A.Value B．Cancel C．Default D．Enabled 7．不能触发滚动条（如图所示）Change事件的操作是 A．拖动滚动块 B．单击两端箭头

C．单击滚动块 D．单击箭头与滚动块之间的滚动条 8.与传统的程序设计语言相比， VB最突出的特点是（ ）

A.结构化程序设计 B.程序开发环境 C.事件驱动编程机制 D.程序调试技术 9.若要在图片框中绘制一个椭圆，使用的方法是 （ ） A.Circle B.Line C.Point D.Pset 10. 能对顺序文件进行输出的语句是

A．Put B．Get C．Write D．Read

二、填空题（每空2分，共20分）

1．用VB开发应用程序时，一般需要 、 、和 3步。

2．Visual Basic的对象是 和 的总称。

3. 为了使标签能自动调整大小以显示全部内容，应当把标签的 属性设置为TRUE。

4．VB中对象是：具有 和 的实体。

5．设A$=”Mouse”, B$=”Trap” 则执行C$=A$+B$ 后，C$的值是： 。 6. 以下程序的循环次数为:

K=0

DO WHILE K<=10 K=K+1 LOOP

三、程序阅读题 （每题10分，共30分）

1． 写出以下程序运行结果。 Pivate sub form_click() For r = 1 to 9

For j = 1 to 30-3*r Print “; Next j

For k =1 to r Next k

For k = r -1 to 1 step-1 Print k

Next k print Next r

2. 假定有以下程序， FOR I=1 TO 3

FOR J=5 TO 1 STEP -1 PRINT I*J NEXT J，I

则语句PRINT I*J执行的次数是

3.写出以下程序的运行结果 dim I, j as integer

dim sum1,sum2 as integer sum1=0:sum2 = 1 for i=1 to 4 for j= 1 to 4 sum2=sum2*j next j

sum1=sum+sumu2 next i

print sum1

四、程序编制题（每题10分，共20分）

1．设计一个程序，用户界面如下页图所示，由一个标签框(La-

bell)，一个文本框(txtPassage)，四个选择框(chkFont，chkltalic， chkSize，chkCo1)组成。程序运行后，用户在文本框内输人一段文 字，然后按需要单击各选择框，用以改变文本的字体、字型、颜色、 以及大小。请在给出的程序段中填人正确的属性设置和程序代@。 (注：文本框的Mulitine属性已经设为True。当不选择宋体时，文字

应是黑体。当不选择16号字时，字号为8。当不选择紫色时，字色为黑色。 当不选择斜体时，文字采用正常字型。）(10分)

Option Explicit

Private Sub _Click() [1] If chkfont.Value=1 Then

TxtPassage.FontName=“宋体” Else

TxtPassage．FontName=“黑体

End lf End Sub

Privatte Sub chkItalic_Click If ．Value=1 them [2]

Txtpssalze.Fontitalic= [3] Else

TxtPassage.fontltalic=O End if End Sub

Privatc Sub chkSize_C1ick() If =1 then [4]

txtPassage. = [5][6] Else

TxtPassageage. =8 [7] End lf End Sub

Private Sub chkCol_Click() If chkcol.Value=1 then

TxtPassage. =Qbcolor (13) [8) Else

TxtPassage. = [9][10] End if

End Sub

2. 目前的世界人口约为60亿,如果以每年1.4%的速度增长,多少年后世界人口可以达到70亿?请用VB程序实现。

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