vb选择题

选择题

第1套

1．下列叙述中，错误的是（ ）。

A) 事件可以由用户触发，也可以由系统触发 B) VB应用程序只能以解释方式执行

C) 保存VB程序时，应分别保存窗体及工程文件

D) 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 2．当程序在运行过程中因某种原因中断时，VB进入（ ）模式。

A) 设计 B) 运行 C) 中断 D) 编程 3．下列（ ）是合法的变量名。

A) a_1 B) 4A C) a-b D) string 4．下列正确的赋值语句是（ ）。

A) i+j=10 B) i=0:j=0 C) i=0,j=0 D) i=0;j=0 5．表示x大于0且小于10的表达式是（ ）。

A）00 And x<10 C）x>0 Or x<10 D）x>0 : x<10

6．运行后，在窗口上单击鼠标时，窗体不会接收到的事件是（ ）。 A）MouseDown B）MouseUp C）Load D）Click 7．在设计阶段，双击窗体上的某个控件时，打开的窗口是（ ）。

A）工程资源管理器窗口 B）代码窗口 C）工具箱窗口 D）属性窗口 8. 下列语句错误的是（ ）。

A) Cls B) Image1.Cls C) Form1.Cls D) Picture1.Cls 9. 执行语句MsgBox \除数不能为0！\，48，\数据出错\，在弹出的对话框中显示的是（ ）。 A) 感叹号图标 B) 停止图标 C) 问号图标 D) 消息图标 10．有关程序代码窗口说法错误的是（ ）。

A) 在窗口的垂直滚动条的上面，有一个“拆分栏”，利用它可以把窗口分为两部分，每

个窗口显示代码的一部分。

B) 双击控件设计窗体可以打开程序代码窗口

C) 在程序代码窗口左下角有两个按钮，可以选择全模块查看或者是过程查看 D) 在默认情况下，窗体的事件是load

11. 为了使标签Label1有边框，正确的属性设置为（ ）。

A) Label1.BorderStyle=0 B) Label1.BorderStyle=1 C) Label1.backStyle=0 D) Label1.backStyle=1

12．设Picture1.Scaleleft=-200, Picture1.ScaleTop=250, Picture1.Width=500, Picture1.Height=-400, 则Picture1右下角的坐标为（ ）。 A) （300，－150） B) （500，－450）

C) （－200，250） D) （700，650）

13．若要使用Print方法在窗体上打印红色的文字，应设置窗体的（ ）属性。

A）Font B）ForeColor C）Appearance D）FillColor

14．设arr是一个上界为k的一维动态数组。能使arr元素个数增加1，但保留数组中原有数据的语句是（ ）。

A）ReDim arr(K+1) B）ReDim Static arr(K+1) C）Public arr(1 To K+1) D）ReDim Preserve arr(K+1)

15．如果Form1是启动窗体，并且Form1的Load事件过程中有Form2.Show，则程序启动后（ ）。

A）Form1是最后的活动窗体 B）Form2是最后的活动窗体 C）编译错误 D）运行出错 16．复选框不具有（ ）属性。

A）Value B）Checked C）Caption D）Style 17．如果要把单选按钮的标题显示在它的左边，应把（ ）。

A) Alignment属性设置为0 B) Alignment属性设置为1 C) Style属性设置为0 D) Style属性设置为1 18．如果命令按钮的Caption属性包含（ ），则按下Alt+C可激活该按钮。 A) &C B) $C C) #C D) @C

19．在窗体上画一文本框Text1，要求文本框只能接收大写字母的输入，以下能实现该操作的事件过程是（ ）。

A）Private Sub Text1_Keypress(KeyAscii As Integer) If KeyAscii<65 Or KeyAscii>90 Then MsgBox \请输入大写字母\ KeyAscii＝0 End If End Sub

B）Private Sub Text1_Change()

If Asc(Text1.Text)>64 And Asc(Text1.Text)< 91 Then MsgBox \请输入大写字母\ KeyCode＝0 End If End Sub

C）Private Sub Text1_MouseDown(Buttom As Integer, Shift As Integer _

X As Single,Y As Single)

If Asc(Text1.Text)<65 Or Asc(Text1.Text)>90 Then MsgBox \请输入大写字母\ End If End Sub

D）Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer )

If KeyCode<65 Or KeyCode >90 Then MsgBox \请输入大写字母\ KeyCode＝0 End If End Sub

20. 如果列表框List1中只有一个项目被选中，则语句Debug.Print List1.Selected (List1.ListIndex)执行的结果是（ ）。

A) 在立即窗口中输出被选定的项目的索引值 B) 在立即窗口中输出True C) 在立即窗口中输出False

D) 在立即窗口中输出被选定的项目的文本内容

21．假设时钟控件的Interval属性为500，Enabled属性为True，并且有下面的事件过程，程序运行10秒后变量x的值为（ ）。

Dim x As Integer

Private Sub Timer1.Timer() x=x+10 End Sub

A) 10000 B) 200 C) 5000 D) 以上都不对 22．在程序运行时，按Tab键跳过了一个可以获得焦点的控件（如文本框），这可能是因为（ ）。

A) 该控件的Enabled属性为true B) 该控件的Enabled属性为False C) 该控件的TabStop属性为 true D) 该控件的TabStop属性为False

23．单击Cmd1命令按钮，由Text1文本框获得x的值，根据以下条件计算y的值：当x>0时，y的值为x的自然对数；当x<=0时，y的值为x的绝对值。并将y的值显示在Label1中。以下能正确计算y值的程序是（ ）。

A) x=Val(Text1.Text) B) x=Val(Text1.Text)

y=Abs(x) y=Log(x)

If x>0 Then y=Log(x) If x<=0 Then y= Abs(x)

Label1.Caption=y Label1.Caption=y C) x=Val(Text1.Text) D) x=Val(Text1.Text)

If x<=0 Then y= Log(x) If x>=0 Then y=Abs(x) Else Else

y= Abs(x) y= Log(x) End If End If

Label1.Caption=y Label1.Caption=y

24．运行下列程序，单击窗体后输出的结果是（ ）。

Private Sub Form_Click() s=1

For i=1 To 2 For j=0 To i s=s+s*j

Print s; Spc(2); Next j Print Next i End Sub

A) 1 2 B) 1 2 C) 1 2 D) 1 2 4 12 2 4 2 4 12 1 2 6 25．以下程序段中包含一个错误，出错的原因是（ ）。

x=4

Dim a(x)

For m=4 To 0 Step -1 a(m)=a(m)+1 Next m

A) 第四行，数组元素a(m)下标越界 B) 第四行，不能用循环变量m进行计算 C) 第二行，不能用变量定义数组下标 D) 第四行，循环语句格式不对

26．窗体上有一个命令按钮C1，两次单击C1后程序运行的结果为（ ）。 Dim Z As Integer Sub S() Dim Z Z=Z+2 Print Z End Sub

Private Sub C1_Click() Z=Z+2

Call S Print Z End Sub

A) 第一次为2 2 第二次为4 4 B) 第一次为4 4 第二次为8 8 C) 第一次为2 2 第二次为2 4 D) 第一次为2 4 第二次为4 6 27．使用驱动器列表框的（ ）属性可以返回或设置磁盘驱动器的名称。

A）ChDrive B）Drive C）List D）ListIndex 28．以下叙述错误的是（ ）。

A）窗体对象的ControlBox属性可用于设置窗体上的控制菜单

B）Visual Basic要设置某个对象的属性时，只能通过属性窗口设置

C）当一个工程含有多个窗体时，其中的启动窗体是在“工程属性”对话框中指定的 D）通用对话框是一种ActiveX控件

29．假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“Visual Basic”的事件过程是（ ）。 A) CommonDialog1.DialogTitle=\ CommonDialog1.ShowPrinter

B) CommonDialog1.DialogTitle=\CommonDialog1. ShowSave

C) CommonDialog1.DialogTitle=\ CommonDialog1. ShowFont

D) CommonDialog1.DialogTitle=\ CommonDialog1. ShowColor

30．要从磁盘上读入一个文件名为“c:\\student.txt”顺序文件，正确的是（ ）。

A）F=\ Open F For Input As #1

B）F=\

Open \

C）Open \D）Open c:\\student.txt For Input As #2

第2套

1．下列叙述正确的是（ ）。

A) Visual Basic的事件是由用户定义的

B) Visual Basic的程序是由main()函数开始执行的 C) Visual Basic的程序是以顺序方式执行的

D) 保存一个Visual Basic程序，应分别保存其窗体模块、标准模块和工程文件 2．判断整型变量x是奇数的表达式是（ ）。 A) x Mod 2 <>0 B) x Mod 2 !=0 C) x Mod 2 ≠0 D) x Mod 2 =0

3．用Dim x,y as boolean语句声明变量，下列正确的是（ ）。

A）x和y都是布尔型变量 B）x是整型变量，y是布尔型变量 C）x是变体型变量，y是布尔型变量 D）x和y都是变体型变量 4．使用（ ）方法可隐藏窗体，但不从内存中释放。

A）Hide B）UnLoad C）Show D）Load 5．以下条件语句错误的是（ ）。

A）If X Then Y=Y+1 B）If X=0 Then Y=0

C）If X>Y Then Print Y End If D）If X>0 Then Y=1: Print Y 6．下列关于VB编码规则的叙述，错误的是（ ）。

A）一条语句可以分多行书写 B）可以用“Rem”注释单行语句 C）注释可以放在语句之前 D）可以用“：”作为语句的结束符

7．在“立即”窗口中执行语句：a=InputBox(\请输入姓名：\，\姓名\，\张三\，出现输入对话框后直接选择“确定”按钮后，a的值为（ ）。 A）姓名 B）张三

C）请输入姓名： D）以上都不对 8．MsgBox函数有返回值时的类型是（ ）。

A) 数值型 B) 变体型 C) 字符串型 D) 逻辑型 9．窗体上有一个命令按钮Command1，编写下列事件过程：

Private Sub Command1_Click() x=InputBox(x)

If x^2=16 Then y=x If x^2<16 Then y=1/x If x^2>16 Then y= x^2+1 Print y End Sub

运行时，单击按钮，在输入框中输入6后回车，窗体上将显示（ ）。 A）6 B）0.16666 C）37 D）65 10．执行下列程序段后，x的值是（ ）。

n=5: x=1: i=1

Do

x=x*i i=i+1

Loop While i

A）10 B）15 C）24 D）120 11．下列（ ）可以将单选按钮设置为图形单选按钮。

A）Option1.Style=0 B）Option1.Style=1 C）Option1.Picture=0 D）Option1.Picture=1

12．以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是（ ）。 A）KeyAscii参数可以返回按键的ASCII码 B）KeyAscii参数的数据类型为字符串 C）KeyAscii参数可以省略

D）KeyAscii参数是所按键上标注的字符

13．窗体上有命令按钮Command1，编写下列事件过程： Private Sub Command1_Click1() Dim a(10) As Integer Dim p(3) As Integer k=1

For I =1 To 10 a(I)=I Next I

For I =1 To 3 p(I)= a(I*3) Next I

For I =1 To 3 k=k+ p(I)*2 Next I Print k End Sub

运行时，单击命令按钮，窗体将显示（ ）。

A）15 B）13 C）30 D）37 14．关于文本框的属性Multiline，下列说法错误的是（ ）。

A) Multiline=True时，设置ScroLLbars属性为0时，一个长的字符串在文本框中会自动换行

B) Multiline=True时，设置ScroLLbars属性为1时，文本框自动换行功能自动消失 C) 要显示文本框的滚动条，Multiline的属性一定要设为True

D) Multiline=False时，设置ScroLLbars属性为2时，文本框可输入或显示多行正文 15．使用（ ）语句将“06足球世界杯”添加到列表框List1的首项。

A) List1.Text=\足球世界杯\足球世界杯\C) List1. List(0)=\足球世界杯\足球世界杯\16．可以触发滚动条的Scroll事件的操作是（ ）。

A) 单击滚动条空白处 B) 单击滚动条两端的箭头 C) 拖动滚动条的滑块 D) 单击滚动条的滑块

17．设置控件的（ ）属性为False，可使该控件不能通过Tab键得到焦点。

A）GotFocus B）SetFocus C）TabStop D）TabIndex 18．窗体上有一命令按钮Command1，编写下列事件过程：

Private Sub Command1_Click() c=2000:d=2000 Cls

Circle Step(c,d),1000,vbRed,3.14,2*3.14,1 End Sub

运行时，单击按钮，窗体上显示（ ）。

A）一个填充的圆 B）一个未填充的圆 C）一段圆弧 D）一个点

19．下列程序段中，可以使计时器控件Timer1每隔2秒触发一次的是（ ）。 A）Timer1.Interval=200 B）Timer1.Interval=2000

C）Timer1. Enabled=True: Timer1.Interval=200 D）Timer1. Enabled=True: Timer1.Interval=2000

20．在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：

private Sub Command1_Click()

List1.List(List1.ListCount)= \End Sub

程序运行后，单击命令按钮，其结果为（ ）。

A）把字符串“vb”添加到列表框中，但位置不能确定 B）把字符串“vb”添加到列表框的最后 C）把列表框中原有的最后一项改为“vb” D）把字符串“vb”插入到列表框的最前面

21．设有两个列表框控件List1和List2，下列代码段的功能是（ ）。

For i=0 To List1.ListCount-1 List2.List(i)= List1.List(i) Next i

A）将List1的所有列表项追加到List2中 B）将List1的所有列表项插入到List2的前部

C）用List1的所有列表项覆盖List2中对应位置的列表项 D）用List1取代List2 22．设有以下程序段：

For i=1 To 4

For j=6 To 1 Step -1 Print i*j Next j,i

则语句Print i*j的执行次数是（ ）。

A) 12 B) 13 C) 24 D) 25

23．窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程和过程p1：

Private Sub Command1_Click() Dim x%,y%,z% x=7: y=8: z=9

Text1.Text=\ Call p1(x, y, z) Text1.Text=Str(z) End Sub

Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub

运行时，单击命令按钮，Text1中的内容为（ ）。

A）0 B）15 C）9 D）str(z) 24．Pset方法绘制的点的大小受其容器对象的（ ）属性的影响。

A) DrawWidth B) Picture C) AutoRedraw D) Stretch 25．下列控件中，可以对单选按钮进行分组的是（ ）。

A) 框架（Frame）控件 B) 文本框（TextBox）控件 C) 图像框（ImageBox）控件 D) 标签（Label）控件 26．下列程序段的执行结果是（ ）。

n=1 j=1

Do While j<=4 n=n*j Print n; j=j+1 Loop

A) 1 2 3 4 B) 1 2 6 24 C) 2 4 6 8 D) 1 4 7 11

27．窗体上有一个通用对话框ComDlg1.Action=2表示（ ）。 A）显示“打开”对话框 B）显示“字体”对话框 C）显示“颜色”对话框 D）显示“另存为”对话框 28．下列关于顺序文件的叙述正确的是（ ）。

A) 所有记录的长度必须相同 B) 可以随机读取文件中的记录 C) 可以使用文本编辑软件编辑 D) 文件中记录按关键字顺序存放 29．目录列表框的作用是（ ）。 A）显示根目录下的文件名

B）显示Path所指路径下的文件名 C）显示Path属性所指路径下的文件 D）显示Path属性所指路径下的目录结构 30．下列关于菜单的叙述，错误的是（ ）。

A）菜单显示时要形成一个分隔线，应在菜单编辑器的标题文本框中输入“—” B）菜单编辑器中的“复选”是用来设置某一菜单项是否可选

C）每个菜单项都是一个控件，与其他控件一样也有自己的属性和方法 D）在菜单的标题栏中，“$”所引导的字母指明了访问该菜单项的热键

第3套

1．下列叙述错误的是（ ）。

A) VB应用程序没有明显的开始和结束语句 B) VB控件的所有属性值均可在属性窗口中设置 C) VB是事件驱动型可视化编程工具

D) VB通过“工具”菜单的“选项”设置代码编辑窗口的字体大小 2．设有语句：

Dim S1 As String*5 S1=\则S1的值为（ ）。

A) VB Te B) VBTes C) VBTest D) VB Test 3．如果VB语句超过一行，可以使用空格加（ ）续行。 A）－ B）＋ C）； D）_ 4．对于InputBox函数，下列不正确的说法是（ ）。 A）每执行一次InputBox函数，只能输入一个值 B）InputBox函数只能输入数值

C）InputBox函数的prompt参数不能缺省 D）InputBox函数的参数有三个以上 5．执行以下程序后，变量C$的值为（ ）。

a$=\程序设计教程\b$=\

c$= b$ & Ucase(Mid(a$,1,6)) & Right(a$,2)

A) Visual Basic B) VISUAL BASIC教程 C) Visual Basic教程 D) Visual BASIC教程 6．在窗体中，用（ ）语句声明的变量A可以被其它窗体引用。 A）Dim A As Integer B）Public A As Integer C）Private A As Integer D）Static A As Integer

7．执行x=InputBox(\，在输入框中输入10后回车，则下列叙述中，正确的是（ ）。

A）0是默认值 B）输入框标题是“x=” C）x等于数值0 D）x的值为字符“10” 8．下列程序段的执行结果是（ ）。

x=100:y=80:z=30

if x>y or yz Then x=x-z Print x,y,z

A) 70 30 30 B) 100 30 30 C) 70 80 30 D) 100 80 30

9．子过程Sele的形式参数为一数组，则以下定义语句正确的是（ ）。 A) Private Sub Sele(A(20) As Integer) B) Private Sub Sele(A() As Integer) C) Private Sub Sele(A(,) As Integer)

D) Private Sub Sele(ByVal A() As Integer)

10．对于一个标签控件有如下程序，双击标签后运行的结果是（ ）。

Private Sub Label1_Click() Print 2;

End Sub

Private Sub Label1_DblClick() Print 4; End Sub

A）2，4 B）2 4 C）2 4 D）4 11．以下程序段执行的结果是（ ）。

Private Sub command1_Click() Dim a

Dim i As Integer, j As Integer a=Array(1,3,5,7,9,11) For i=1 To a(4) j=j+1 Next i Print j End Sub

A）7 B）5 C）9 D）11 12．不能把2^5*3.14*8的结果输出到“立即”窗口的是（ ）。 A) 在代码窗口中使用Debug.Print 2^5*3.14*8语句 B) 在“立即”窗口中直接使用 2^5*3.14*8语句 C) 在“立即”窗口中直接使用 ？2^5*3.14*8语句 D) 在“立即”窗口中直接使用 Print 2^5*3.14*8语句

13．执行语句a=\后，消息框的标题是（ ）。 A) 1 B) software C) hardware D) software and hardware 14．通过（ ）属性设置窗体图标。

A) Picture B) DownPicture C) MouseIcon D) Icon 15．要对文本框Text1中的文本加删除线，可以通过（ ）来实现。

A) Text1.Font.FontStrikethru=True B) Text1.FontStrikethru=True C) Text1.Font=vbStrikethru D) Text1.Style=vbStrikethru 16．下列叙述中，错误的是（ ）。 A) Pset方法用于绘制点

B) Circle方法用于画圆、椭圆、圆弧和扇形 C) Line方法用于画直线或矩形 D) Point方法用于绘制有颜色的点 17．在实际应用中，经常将一组单选按钮置于一个框架（Frame）控件内，这主要是为了（ ）。 A) 使用户界面美观 B) 使该组单选按钮同步

C) 使该组单选按钮处于禁止状态

D) 使该组单选按钮互斥，即同一时刻只有一个单选按钮被选中 18．命令按钮不能响应（ ）事件。

A) DblClick B) DragDrop C) KeyPress D) MouseMove 19．假定有如下事件过程：

Private Sub Form_Click()

Dim x As Integer, n As Integer

x=1 n=0

Do While x<32 x=x*3

n=n+1

Loop

Print x,n

End Sub

程序运行后，单击窗体，输出结果是（ ）。

A）81 4 B）56 3 C）28 1 D）243 5 20．以下定义数组或给数组元素赋值的语句中，正确的是（ ）。 A）Dim a As Variant B）Dim a(10) As Integer a=Array(1,2,3,4,5) a=Array(1,2,3,4,5)

C）Dim %A(10) D）Dim a(3),b(3) As Integer a(1)= \21．假设列表框控件List1被设置为允许多重选择，那么可以返回所选列表项数目的属性是（ ）。

A) SelCount B) ListCount C) DataCount D) Count 22．要删除列表框List1中选定的某一项，可以使用（ ）语句。

A）List1.RemoveItem List1.listIndex

B）List1.RemoveItem List1.Columns(List1.listIndex) C）List1.Clear List1.listIndex

D）List1.Clear List1. Columns (List1.listIndex) 23．运行下列程序，输出的结果是（ ）。

Public Function f(ByVal n%, ByVal x%) If n<> 0 Then f=f(n\\x,x) Print n Mod x; End If End Function

Private Sub Command1_Click() Print f(20,8) End Sub

A）2 4 B）1 2 4 C）1 4 4 D）4 4 24．下列程序段的执行结果是（ ）。

For i=3 To 1 Step -1 Print Spc(5-i); For j=1 To 2*i-1 Print “*”; Next j Print Next i

A) * B) ***** C) ***** D) ***** *** *** *** ***

***** * * * 25．将框架的（ ）属性设为False，可使框架内的所有对象在运行时均不可操作。 A) Enabled B) Locked C) BorderSytle D) ClipControls 26．窗体上有一个文本框控件Text1，编写如下事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If(KeyAscii < Asc(\ KeyAscii=0 Endif End Sub

运行时，关于Text1说法正确的是（ ）。 A) 只能向Text1中输入数字字符（0～9）

B) 只能向Text1中输入ASCII码在0～9之间的字符 C) 只能向Text1中输入非数字字符 D) Text1不接受任何输入 27．阅读下列程序：

Sub Yu(x%,ByVal y%) x=5*x:y=x+y End Sub

Private Sub Form_Click() Dim a%,b% a=5:b=10 Yu a,b Print a,b End Sub

程序运行后，单击窗体，输出结果为（ ）。

A) 5 10 B) 5 20 C) 25 10 D) 25 25 28．编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,

Y As Single)

If Shift=vbShiftMask+vbCtrlMask And Button=vbRightButton Then Print \ End If

End Sub

运行时，为了在窗体上输出“Visual Basic”，应执行的操作为（ ）。

A）按下Shift键和鼠标左键 B）同时按下Shift、Alt键和鼠标左键 C）按下Alt键和鼠标右键 D）同时按下Shift、Ctrl键和鼠标右键 29．下列叙述中，错误的是（ ）。

A) 运行时，通用对话框控件是不可见的

B) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框 C) 在同一程序中，用不同的方法打开的通用对话框具有不同的作用

D) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件 30．下列关于文件叙述错误的是（ ）。 A) 随机文件每条记录的长度必须相同 B) 任何文件都可以用二进制模式访问

C) 可以通过编程对顺序文件中的某条记录进行修改 D) 按文件的组织方式可将文件分为顺序文件、随机文件

第4套

1．VB是一种面向对象的程序设计语言，构成对象的三要素是（ ）。 A）属性、事件、方法 B）控件、属性、事件 C）窗体、属性、过程 D）窗体、控件、模块

2．如果一个工程含有多个窗体及标准模块，则以下叙述错误的是（ ）。 A) 不能把标准模块设置为启动模块

B) 任何时刻最多只有一个窗体是活动窗体

C) 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 D) 如果工程中含有Sub Main过程，则程序一定首先执行该过程

3．要强制显式声明变量，可在窗体模块或标准模块的声明段中加入（ ）语句。 A) Option Base 0 B) Option Base 1 C) Option Compare D) Option Explicit 4．下列变量的数据类型为整型的是（ ）。

A）X! B）X% C）X$ D）X#

5．表达式Ucase(Mid(\的值是（ ）。 A）\）\）\）\6．下列语句不合法的是（ ）。

A）x=1: y=2 B）?x; y; C）?x, y, D）x=1; y=2 7．修改文本框的内容触发（ ）事件。

A）Modify B）Change C）ChangeData D）AutoSize 8．窗体上有一命令按钮Command1，编写下列事件过程：

Private Sub Command1_Click() a=100:b=150:c=2000:d=2000 Cls

Line (a,b)-(c,d),vbBlue,B End Sub

运行时，单击按钮窗体上显示（ ）。

A）一个未填充的矩形 B）一条直线 C）一个填满了颜色的矩形 D）无任何图形

9．使用（ ）语句可将列表框List1的第3项的值置为“VB6.0”。

A）List1.listIndex(3)= \）List1.listIndex(2)= \C）List1.list(3)= \）List1.list(2)= \10．当用户单击滚动条的空白处时，滑块移动的增量由（ ）属性决定。 A）SmallChange B）LargeChange C）Min D）Max 11．以下（ ）语句可表示[50，100]之间的随机整数。 A) Int(Rnd*51)+49 B) Int(Rnd*51)+50 C) Int(Rnd*50)+50 D) Int(Rnd*50+50)

12．要用文本框控件Text1实现一个密码输入框，可以通过（ ）设置，使得无论用户输入什么字符，文本框只显示“*”。

A) Text1.PasswordChar=\

C) Text1.Text=\

13．要设计一个图形方式的命令按钮，且按钮被按下与不按下时显示不同的图像，可通过对（ ）属性进行设置。

A) Picture、DisabledPicture B) Picture、DownPicture

C) Style、Picture和DisabledPicture D) Style、Picture和DownPicture 14．Print方法分区输出时，用（ ）分隔多个表达式。

A）空格 B）逗号 C）冒号 D）分号 15．当x=0 时，函数IIf(x>0,1,IIf(x<0,-1,0))的返回值是（ ）。 A) 0 B) 1 C) －1 D) 出错 16．下列语句中能清除运行时在窗体中显示的文本的是（ ）。 A) Form1.Cls B) Form1.Clean C) Form1.Release D) Form1.Clear

17．窗体上有一命令按钮Command1，编写下列事件过程：

Private Sub Command1_Click() MsgBox CStr(\End Sub

程序运行时，单击按钮，消息对话框显示的内容是（ ）。

A) 246 B) 123123 C) 123＋123 D) 显示出错信息 18．下列语句可使Shape1控件呈现为实心图形的是（ ）。 A）Shape1.BorderStyle=0 B）Shape1.BackStyle=0 C）Shape1.Shape=0 D）Shape1.FillStyle=0 19．运行下面的程序，显示的结果为（ ）。

Public Sub F1(n%, ByVal m%) n=n Mod 10 m=m\\10 End Sub

Private Sub Command1_Click() Dim x%, y% x=12: y=34 Call F1(x,y) Print x,y End Sub

A）2 34 B）12 34 C）2 3 D）12 3 20．使用（ ）语句可将组合框Combo1的第1项置为当前项。 A) Combo1.ListIndex=1 B) Combo1.Index=1 C) Combo1.ListIndex=0 D) Combo1.Index=0 21．设置（ ）属性可改变单击滚动条两端箭头时的滚动步长。

A) Max B) Min C) LargeChange D) SmallChange 22．要判断在文本框中是否按了Enter键，应在文本框的（ ）事件中判断。 A) Change B) KeyDown C) Click D) KeyPress 23．窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click() i=Text1.text Select Case i

Case 1: j=\ Case 2: j=\ Case 3: j=\

Case Else: j=\非法\ End Select Text1.text=j End Sub

运行时，在Text1中输入4后单击命令按钮，Text1中的内容是（ ）。 A) ＋ B) － C) * D) 非法 24．运行下列程序段，其中“n=n+1”语句被执行的次数是（ ）。

Dim m%,n% For m=1 To 3

For n=1 To 6 Step 2 n=n+1 Print n Next Next

A) 3 B) 6 C) 9 D) 18

25．能使一维动态数组arr(6)元素个数加1，但保留数组中原有元素的语句是（ A) ReDim arr(7) B) ReDim Preserve arr(7) C) Public arr(1 To 7) D) Static arr(7) 26．阅读下列程序：

Private Sub Form_Click() Dim m As Integer Static n As Integer For i=1 To 3 n=n+i m=m+i^2 Next

Print m,n End Sub

运行时，两次单击窗体，输出结果为（ ）。

A) 14 6 B) 14 6 C) 14 6 D) 14 6

14 6 14 12 28 6 28 12

27．以下能正确定义数据类型TelBook的代码是（ ）。 A) Type TelBook B) Type TelBook

Name As String*12 Name As String*12 TeL As Integer TeL As Integer End Type TelBook Type End

C) Type TelBook D) Type TelBook Name As String*12 Name As String*8 TeL As Integer TeL As Integer End Type End TelBook 28．下列关于多文档界面（MDI）的叙述错误的是（ ）。

。）

A）MDI子窗口包含在一个大小可调的MDI父窗口内

B）MDI应用程序允许同时显示多个文档，每个文档显示在它自己的窗口中 C）MDI窗体的ActiveFrom属性可以返回具有焦点或最后被激活的子窗体 D）MDI应用程序中只有两种类型的窗体，即父窗体和子窗体 29．下列关于文件的叙述正确的是（ ）。

A) Open命令的作用是打开一个已存在的文件 B) 使用Input#语句可以从随机文件中读取数据 C) 一个记录中所包含的各元素数据类型必须相同 D) 二进制存取可以获取任一文件的原始字节 30．对随机文件进行写操作的语句是（ ）。 A）Input #文件号，输出列表 B）Put #文件号，变量名 C）Read #文件号，变量名 D）Get #文件号，变量名

第5套

1．下列叙述错误的是（ ）。

A）窗体本身也是一个对象，有自己的属性、事件和方法 B）Appearance属性用于在窗体上设置要显示的图形 C）一旦装载窗体，就会自动产生Load事件 D）卸载窗体时触发Unload事件 2．有程序代码：text1.text=\Basic\，则text1、text和\Basic\分别代表（ ）。

A）对象、值、属性 B）对象、方法、属性 C）对象、属性、值 D）属性、对象、值

3．设a=8,b=6,c= -1;执行语句Print a>b>c后，窗体上显示的是（ ）。 A）1 B）True C）False D）出错信息 4．下列叙述错误的是（ ）。

A）标签和文本框都有Caption属性

B）标签和文本框的主要区别在于能否编辑其内容 C）标签具有AutoSize属性，而文本框没有 D）文本框具有ScrollBar属性，而标签没有

5．如果要表示一个在100～300000之间变化的整数，应使用（ ）型变量。 A）Integer B）String C）Long D）Byte 6．表达式23+23 Mod 50\\7的值是（ ）。

A）23 B）46 C）25 D）123 7．表达式String(3, \的结果为（ ）。

A）AAA B）ABC C）BBB D）CCC 8．Print \的输出结果是（ ）。

A）16=6+10 B）6+10=6+10 C）6+10=16 D）“6+10=”16 9．下列程序段是求两个数中的最大数，其中不正确的是（ ）。 A）If ab,a,b)

C）Max=a:If b>=a Then Max=b D）If b>=a Then Max=b : Max=a

10. 如下数组声明语句中数组a包含的元素个数为( )。 Dim a(3,-1 To 1,6)

A）84 B）54 C）72 D）18 11．设组合框Combo1中有5个选项，下列能删除最后一项的语句是（ ）。

A) Combo1.RemoveItem Text B) Combo1.RemoveItem Combo1.Listcount C) Combo1.RemoveItem 5 D) Combo1.RemoveItem 4 12．计时器控件能正常工作应具备的两个条件是（ ）。 A) Enabled属性为True和Interval属性为0 B) Enabled属性为False和Interval属性为0 C) Enabled属性为True和Interval属性为非0 D) Enabled属性为False和Interval属性为非0

13．窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click() a=1

For i=1 To 3 Select Case i Case 1,3 a=a+1

Case 2,4 a=a+2

End Select Next i Print a

End Sub

运行时，单击命令按钮，窗体上将显示（ ）。

A) 3 B) 4 C) 5 D) 6 14．窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click() x=IntputBox(\ y=IntputBox(\ Print x+y End Sub 运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是（A）444 B）123321 C）123+321 D）出错信息 15．设数组下标从0开始，有如下过程Fun：

Private Sub Fun(a() As Integer) Dim T

Dim J As Integer

J=(Lbound(a)+Ubound(a))\\2 For i= Lbound(a) To J

T=a(i):a(i)=a(Ubound(a)-i): a(Ubound(a)-i)=T Next i

。 ）

End Sub

下列对其功能的叙述正确的是（ ）。

A) 该过程能对传入数组进行升序排序 B) 该过程能对传入数组进行降序排序 C) 该过程能对传入数组进行逆序存放 D) 以上均不对 16．窗体上有命令按钮Command1，编写如下事件过程：

Sub P(b() As Integer) For i=1 To 4 b(i)=2*i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1)=1: a(2)=3 a(3)=5: a(4)=7 P a()

For i=1To 4

Print a(i);spc(1); Next i End Sub

运行后，单击按钮，输出的结果为（ ）。

A) 1 3 5 7 B) 2 4 6 8 C) 2 6 10 14 D) 2 2 2 2

17．用通用对话框建立“打开文件”对话框时，指定文件列表框所列出的文件类型是文本文件的正确描述是（ ）。

A) \文本文件(.txt)|(*.txt)\C) \18．下列叙述错误的是（ ）。 A）Scale方法用来定义新坐标系

B）窗体缺省坐标原点在窗体的左下角

C）ScaleLeft和ScaleTop属性可改变坐标系的原点位置

D）ScaleWidth和ScaleHeight属性可改变其容器对象高度和宽度的刻度单位 19．设置命令按钮的（ ）属性，可使指针指向该按钮时显示提示内容。 A）Caption B）ToolTipText C）Font D）Tag 20．下列叙述错误的是（ ）。

A）只有获得焦点的对象才能接受键盘事件

B）KeyPress事件中可以识别键盘上某个键的按键码

C）在KeyDown事件中，在键盘上输入A和a被视为按下相同的键

D）在KeyUp事件中，在主键盘上取“1”和在小键盘上取“1”被视为操作了不同的键 21．窗体上有一个命令按钮Command1，编写如下事件过程：

Function fun (x As Integer) Static z y=y+1: z=z+1 fun=x+y+z End Function

Private Sub Command1_Click() Dim x As Integer x=1

For i=1 To 2 Print fun(x); Next i End Sub

运行时，单击命令按钮，窗体上将显示（ ）。

A）3 3 B）3 4 C）1 1 D）4 4

22．执行指令“Form1.Line(1500,1000)-Step(1000,500),B”后，Form1的CurrentX的值为（ ）。

A）1000 B）1500 C）500 D）2500

23．窗体上设置一个复选框，当选中或取消对应文本框内的字体,改变成粗体或取消，正确的代码是（ ）。

A）Private Sub Check1_Click() B）Private Sub Check1_Click() Text1.FontBold=True Text1.FontBold= Check1.Value

End Sub End Sub C）Private Sub Check1_Click() D）Private Sub Check1_Click() If Check1.Value=1 Then If Check1.Value= True Then Text1.FontBold=True Text1.FontBold=True End If End If End Sub End Sub 24．下列程序段的执行结果是（ ）。

Private Sub Form1_Click() For i=1 To 5

Select Case i Mod 2 Case 0

Print \ Exit For Case 1

Print \ Case Else Print \End Select Next i End Sub

A）* B）$ C）* D）$ # * $ # 25. 有如下两个过程S1和S2：

Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x : x=y : y=t End Sub

Sub S2(x As Integer, y As Integer)

Dim t As Integer t=x : x=y : y=t End Sub

下列关于S1和S2 的说法,正确的是( )。

A）调用过程S1可以实现交换两个变量值，而S2不能 B）调用过程S2可以实现交换两个变量值，而S1不能 C）调用过程S1和S2都可以实现交换两个变量值 D）调用过程S1和S2都不能实现交换两个变量值 26．在命令按钮的Picture属性中选择了图片文件，在按钮上却没有显示图片的原因可能是（ ）。

A）按钮的Enabled属性为False B）按钮的Sytle属性为0

C）按钮的Default属性为False

D）按钮的DisabledPicture属性没有装入图片 27．对文本框Text1编写如下的事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim x As String

x=Chr(KeyAscii)

KeyAscii=Asc(Ucase(x)) Print String(4, KeyAscii) End Sub 程序运行后，将焦点置于文本框，如果在键盘上输入字母“a”，则窗体上显示的内容是（ ）。 A）A B）B C）AAAA D）aaaa 28．以下说法正确的是（ ）。

A）在程序执行时，如果菜单项的Enabled的属性为False，则该菜单项变成灰色，不能

被用户选择

B）菜单项的索引号必须连续

C）任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器 D）只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 29．下面关于多重窗体的叙述，正确的是（ ）。

A）在多重窗体程序中，可以用关键字My代表程序代码所在的窗体 B）没有启动窗体，程序不能运行

C）如果启动对象是Sub Main子过程，则程序启动时先运行该过程 D）以上都不对

30．设有语句Open \，以下叙述错误的是（ ）。 A）该语句以文件号1打开文件

B）该语句可以在当前目录下创建一个名为Datafile.txt的文件 C）执行该语句后可以向文件Datafile.txt中写入信息 D）该语句打开当前目录下一个已存在的文件Datafile.txt

课后练习题

第1章

1． 简述面向过程的编程语言和面向对象的编程语言的主要区别。

2． 用高级语言编写的源程序为何要翻译成机器指令程序后计算机才能执行？翻译方式有哪两种？简述它们的工作过程。

3． 简述Visual Basic的主要功能和特点。

4． 分别给出两种启动和退出Visual Basic系统的方法。 5． 简述“工程资源管理器”的主要功能。 6． 如何设置Visual Basic系统环境？ 7． “窗体设计器”的用途是什么？

8． “工具箱”中常用的内部控件有哪些？ 9． 属性窗口由几部分组成？ 10． 简述代码窗口的主要功能。

11． “代码”窗口与“立即”窗口有什么不同？

12． 简述创建Visual Basic应用程序的主要步骤。 13． 一个工程可能包含哪些类型的文件？

14． 在编写VB程序时，一行可以写多个语句、一个语句可以分多行写吗？该怎么写？ 15． 编写一个VB程序，要求窗体的标题是“我的第一个VB程序”，且在程序运行后，单击窗体显示一行文字“我正在学习用Visual Basic编写程序”。

第2章

1．回答下列问题：

（1）什么是对象，什么是类，构成一个对象的三要素是什么？ （2）解释属性、事件、方法这三个概念。 （3）简述事件驱动编程的基本要点。

（4）在设计窗体时，如果属性窗口、工具箱窗口等尚未打开，该如何打开？ （5）窗体的名称（Name）属性和Caption属性有何区别？ （6）标签控件与文本框控件主要的不同之处是什么？ （7）定时器的主要属性和事件是什么？ （8）赋值语句的双重功能是什么？ （9）设有以下事件过程：

Private Sub CmdDisplay_Click()

CmdDisplay.Caption=\程序设计\ End Sub

请问，该过程的事件名是什么？命令按钮的名称是什么？单击按钮后其标题是什么？

（10）在窗体上画两个文本框和一个命令按钮，并在代码窗口编写如下事件过程： Private Sub Command1_Click() Text1.Text=\

Text2.Text=Text1.Text Text1.Text=\End Sub

程序运行后，单击命令按钮，两个文本框各显示什么内容？

2．编写程序。

（1）设计一个窗体，当在窗体上双击鼠标时，能将窗体最大化，且窗体背景颜色设为蓝色。

（2）设计一个窗体，其中包含3个标签（LblOne、LblTwo、LblThree），Caption属性分别为“第一个标签”、“第二个标签”、“第三个标签”。当用鼠标单击任何一个标签时，其它两个标签的标题文本互换。

（3）在窗体上画一个文本框和两个命令按钮，当单击第一个命令按钮时，文本框消失；单击第二个命令按钮时，文本框重新出现，并在文本框中显示“VB程序设计”,字体为隶书、16磅、斜体。

（4）设计一个窗体，当单击“显示”按钮时，在文本框内显示“走进VB程序设计乐园！”；单击“清除”按钮时，清除文本框内的文本；单击“退出”按钮时，结束程序运行。程序运行结果如图2-20所示。

图2-20 显示文本

（5）设计一个如图2-21所示的倒计时窗体，在文本框Text1中设置定时时间（以分为单位），然后单击“开始”（Command1）按钮开始倒计时，倒计时时间显示在标签Label4上。

图2-21 倒计时程序的窗体设计和运行界面

第3章

1.VB定义了哪几种数据类型？变量有哪几种数据类型？常量有哪几种数据类型？

2.如果希望使用变量x来存放数据765432.123456，应该将变量x声明为何种类型？ 3.下列数据哪些是变量？哪些是常量？是什么类型的常量？

(1) name (2) \ (3) False (4) ff (5) \

(6) cj (7) \ (8) n (9) #11/16/1999# (10) 12.345 4.下列哪些符号不能作为VB的标识符? （1）XYZ （2）True1 （3）False （4）1ABC （5）A[7] （6）Y_1 （7）IntA （8）A-2 （9）A.3 （10）\5.在VB中，对于没有赋值的变量，系统默认值是什么？ 6.VB共有几种表达式？根据什么确定表达式的类型？

7.VB算术表达式a / (b + c / (d + e / Sqr(f)))写成数学表达式。 8.写出下列表达式的值。

(1) ( 2 + 8 * 3 ) / 2 (2) 3^2 + 8 (3) #11/22/99# – 10 (4) \

9.设A = 7，B = 3，C = 4，求下列表达式的值。 (1) A + 3 * C (2) A^2 / 6 3) A / 2 * 3 / 2 (4) A Mod 3 +B^3 / C \\ 5

10.写出下列函数的值。

(1) Int(–3.14159) (2) Sqr(Sqr(64))

(3) Fix(–3.1415926) (4) Int(Abs(99–100)/2) (5) Sgn(7*3+2) (6) Lcase(\ (7) Left(\ (9) Str(–459.65) (10) Len(\

第4章

1．回答下列问题：

（1）分支结构语句有几个？它们有什么区别？ （2）循环结构语句有几个？它们有什么区别？ （3）使用分支结构语句需要注意什么？ （4）使用循环结构语句需要注意什么？

（5）循环结构语句的功能可使用什么控件“替代”？它们各自有什么优点？ 2．下列各程序均有错误，指出并改正语句的错误，使其能输出正确的结果。 （1）窗体中命令按钮的Click（）事件代码如下： Private Sub cmd1_Click() Dim x As Integer x = 5

if x>=0 then x^2 End Sub

（2）窗体中命令按钮的Click（）事件代码如下： Option Explicit

Private Sub cmd1_Click() x = 5

If x >= 0 Then x = x + 5 Print x End Sub

（3）窗体中命令按钮的Click（）事件代码如下： Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 i = 1

Do Until s < 2000

s = s + i

i = i + 1

Loop

Print s End Sub

（4）窗体中命令按钮的Click（）事件代码如下： Private Sub cmd1_Click()

Dim x As Integer, y As Integer, s As Integer, i As Integer Dim t As Single i = 0 x = 1 y = 2

Do While i <= 10

s = s + y / x t = y

y = x + y x = t

Loop Print s End Sub

（5）窗体中命令按钮的Click（）事件代码如下： Private Sub cmd1_Click()

Dim i As Integer, j As Integer, k As Integer, x As Integer For i = 1 To 10 For j = 1 To 10 For k = 1 To 10 x = x + 1 Next k Next j

Next i End Sub

3．在窗体上添加一个命令按钮（Cmd1），根据命令按钮Click事件代码如下，写出下列程序的运行结果。

（1）Cmd1_Click（ ）事件代码： Private Sub cmd1_Click() For I = 1 To 4 For j = 0 To I

Print Chr$(65 + I); Next j Print Next I

End Sub （2）Cmd1_Click（ ）事件代码： Private Sub cmd1_Click() Dim i As Integer

x = InputBox(\请输入一个整数：\

x = IIf(x >= 0, 1, -1) Print x End Sub

（3）Cmd1_Click（ ）事件代码： Private Sub cmd1_Click() Dim i As Integer Print

Print \

Do While i < 100 i = i + 1

If i / 9 = Int(i / 9) Then Print i; Loop

End Sub （4）Cmd1_Click（ ）事件代码： Private Sub cmd1_Click()

Dim x As Integer, y As Integer, i As Integer x = 1 y = 2

Do Until y > 500 Print x, y x = x + y y = x + y Loop Print x

End Sub

（5）Cmd1_Click（ ）事件代码： Private Sub cmd1_Click()

Dim i As Integer, x3 As Integer, x5 As Integer, x7 As Integer

Print

Print \

Do

i = i + 1

Loop Until i >= 50 Print x3, x5, x7

End Sub 4．编写程序 （1）从键盘输入4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBox函数输入数据，在窗体上显示和及平均值。

（2）输出任意10个数中负数的个数，偶数的个数，奇偶数的和。 （3）用数字显示菱形图案。运行结果如图4-34所示。

图4-34 用数字显示菱形图案 图4-35 杨辉三角形

（4）编写一个程序打印如图4-35所示的杨辉三角形。

（5）求100～500之间的水仙花数（所谓水仙花数是指一个三位数，该数的各位数字立方之和等于该数本身。例如，153是一个水仙花数，因为13+53+33=153。

（6）用迭代法求某个数的平方根。1 ax1?(x0?)已知求平方根的迭代公式为： 2x0算法思想：对于一个问题的求解x，可由给定的一个初值x0，根据某一 x 迭代公式得到一个新的值x1，这个新值x1比初值x0更接近要求的值x； 再以新值作为初值，即：x1→x0,重新按原来的方法求x1,重复这一过和 直到|x1-x0|<ε(某一给定的精度,如0.00001)。此时可将x1作为问题的解。

（7）爱因斯坦的阶梯问题。设有一个阶梯，若每步跨两级，最后余一级；每步跨3级，最后余两级；每步跨5级，最后余6级，每步跨6级，最后余5级，只有每步跨7级，正好到阶梯顶。问共有多少阶梯？

（8）编写程序，把字符串逆序输出。

第5章

1．回答下列问题： （1）什么是数组？

（2）数组如何进行分类？ （3）什么情况下数组会超界？

（4）动态数组和静态数组使用时有何不同？ （5）在程序中引用控件数组有什么好处？

（6）Array函数的作用是什么？

2．在窗体上添加一个命令按钮，编写如下代码，写出下列语句的运行结果。 （1）Option Base 1

Private Sub Command1_Click() Dim a(4,4)

For i = 1 To 4

For j = 1 To 4

a(i,j)=(i-1)*3+j Next j Next i

For i = 3 To 4

For j = 3 To 4

Print a(j,i); Next j Print Next i End Sub

（2）Dim a

a = Array(1,2,3,4,5,6,7,8) i = 0

For k = 100 To 90 Step -2 s = a(i)^2

If a(i) > 3 Then Exit For i = i + 1 Next k

Print k;a(i);s

（3）Dim a(3,3) As Integer For m = 1 To 3

For n = 1 To 3

a(m,n)=(m-1)*3+n Next n

Next m

For m = 2 To 3

For n = 1 To 2 Print a(n,m) Next n Next m

（4）Const n = -5 : Const M = 6 Dim a(n To M)

For i = LBound(a,1) To UBound(a,1) a(i) = i Next i

Print a(LBound(a,1);a(UBound(a,1))

（5）Privat Sub Command1_Click()

Dim array1(10,10) As Integer Dim i,j As Integer For i = 1 To 3

For i = 2 To 4

array1(i,j) = i + j Next j Next i

Text1.Text=array1(2,3)+array1(3,4) End Sub

3．编写程序。

（1）某数组有20个元素，元素的值由键盘输入，要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个元素与第19个元素互换，…，第10个元素与第11个元素互换。输出数组原来各元素的值和对换后各元素的值。

（2）编写程序，建立并输出一个10×10的矩阵，该矩阵两条对角线元素为1，其余元素均为0。

（3）有一个6×6的矩阵，各元素的值由键盘输入，求全部元素的平均值，并输出高于平均值的元素以及它们的行、列号。

（4）矩阵转置。即将矩阵行、列互换：

2 3 4 5 6 7 8 9 2 6 1 5 1 5 1 2 3 4 转置 3 7 2 6 2 6 5 6 7 8 4 8 3 7 3 7 1 2 3 4 5 9 4 8 4 8 5 6 7 8 （5）利用在运行时产生的控件数组，构成一个国际象棋棋盘。如图5-24所示。要求： ①在设计时窗体上放一个Label控件,设置其Index属性为0，BackColor为黑色。 ②程序运行时自动产生64个Label控件数组元素，BackColor黑白交替。 ③当运行时单击棋格，显示对应的序号,并且将所有棋格颜色变反。

图5-24 国际象棋棋盘

（6）输出幻方阵。幻方阵也称魔方阵，是指由自然数1～n2（n为奇数）构成的方阵，其各行、各列以及对角线元素之和均相等。输出结果如图5-25所示。

图5-25 输出幻方阵

（7）已知某班学生m（m < 100）人，共n（n < 20）门课程。试按平均成绩输出学生平均成绩名次表（要求每个学生的信息包括名次、姓名、学号、平均成绩等项）。

提示：本题的关键是如何将排序处理与名次处理统一起来。显然名次问题并非就是排序问题，因为名次问题还必须考虑如何处理同名次者——成绩相同者必须列为同一名次，而同名次的处理则需用名次计数器与相应选择结构相配合来解决。此外，必须注意到学生姓名、学号、平均成绩是构成学生信息的不可缺少的重要组成部分，必须把它们看作一个整体来处理。因此，当需要交换两个学生的信息时，必须同时整体交换。

第6章

1．回答下列问题：

（1）建立通用过程的目的是什么？

（2）Private 和Public定义的Sub过程有什么不同？ （3）简述形参与实参的区别。

（4）调用Sub过程的两个语句形式有什么不同？ （5）形参与实参的传递方式有几种？有什么不同？ （6）Function 过程与Sub过程有什么区别？ （7）过程的作用域对过程调用有什么限制？ （8）动态变量与静态变量有什么区别？

（9）如何定义局部变量、窗体/模块级变量和全局变量？ （10）键盘事件的KeyCode码和KeyAscii码有什么不同？ 2．判断下列过程定义语句的正误。

（1）Private Sub A1(x ()) As Integer （2）Public Sub A1

（3）Private Sub A1(x() As Integer)

（4）Public Function F1(a1 AS Integer, b1 As Integer)

（5）Public Function F2(a1 AS Integer, b1 As Integer) As Single 3．已知Public Function F(x1 AS Integer, x2 As Integer) As Single和 Private Sub S(x As Integer)，判断下列调用过程的语句的正误。

（1）a=S(b) （2）Call S b （3）S b

（4）c=F(a,b) （5）F(a,b) 4．编写程序。

（

f(x,y,z)=

1）设

sin(x)sin(y)sin(z)??从键

sin(x?y)*sin(x?z)sin(y?z)*sin(y?x)sin(z?x)*sin(z?y)盘上输入x，y，z的值，求f(x,y,z) 的值。

（2）求P的值，P=1?111 ????1?21?2?31?2???10（3）设a为一个整数，如果能使a2的低位与a相同，则称a为“守形数”。例如，52

＝25，252＝625，则5和25都是守形数。试编写一个函数过程，利用该过程查找1～1000之间的所有守形数。

（4）某班有30名学生，按学号顺序输入了29名学生的入学成绩（注：可使用随机函数生成29个0～100之间的数据），学号为12号的学生成绩没有输入。请将12号学生的入学成绩插入到指定位置。

（5）编写一个子过程DelStr(s1,s2)，将字符串s1中出现的子字符串s2删去，结果还存放在s1中。例如，s1=”12345678AABD12345”，s2=”234”，结果为” 15678AABD15”。

（6）编写一个函数过程，将一个二进制字符串（全由0和1组成）转换成十进制整数。使用主调程序调用之，并显示二进制字符串和转换结果。

（7）斐波那契（Fibonacci）数列的第一项是1，第二项是1，以后各项都是前两项之和，试用递归算法和非递归算法各编写一个程序，求斐波那契数列前n项的值。

（8）已知求xn（n为整数）有如下关系： 1 (n=0) xn= xn-1 *x (n>0) xn+1 /x (n<0)

编写一个递归函数求xn。

（9）编写一个键盘事件过程，使得窗体上的文本框只能接收纯数字信息。

（10）使用鼠标事件，设计一个直接用鼠标画图的简单画图程序，画出的图形有红蓝两色，使用鼠标左键画图为蓝色，右键为红色。

第7章

1．回答下列问题：

（1）已学过的容器类控件有哪些？它们各自的功能是什么？ （2）什么是控件的“默认属性”？

（3）单选按钮与复选框的作用是什么？ （4）单选按钮为什么经常和框架配合使用？

（5）列表框与组合框在功能上有何共同之处？二者的Style属性有什么不同？ （6）图片框与图像框有何区别？

（7）形状控件的Shape属性起什么作用？

（8）ActiveX控件与内部控件在使用时有什么不同？ （9）滑动器控件和进度条控件有什么区别？ （10）滑动器控件与滚动条控件有何共同之处？ （11）设计窗体时使用选项卡控件有什么好处？

（12）多媒体控件的作用是什么？ 2．编写程序。

（1）设计一个窗体，模拟交通信号指示灯，程序运行结果如图7-36所示。

图7-36 模拟交通信号指示灯 图7-37 字符串反转

（2）设计一个窗体，使已知字符串反转，程序运行结果如图7-37所示。其中反转后的结果显示在图片框中。

（3）设计一个窗体，利用单选按钮和复选框控制文本的显示效果，程序运行结果如图7-38所示。

图7-38 文本显示效果控制

（4）编写一个程序，用以交换窗体中两个图片框中的图片。其中，图片的装载也在代码中完成。

（5）使用控件数组在窗体上添加6个不同样式的形状，并在图形内部设置不同的填充风格，且内部填充线条的颜色随机产生。程序的运行结果如图7-39所示。

图7-39 6个不同样式的形状

（6）设计一个窗体，利用单选按钮控制求N个数中最大数、最小数、N个数的和、N个数的积、N个数的平均值，以及N个数的排序结果，程序运行结果如图7-40所示。

图7-40 用单选按钮控制n个数的计算

（7）设计一个窗体，对文本的输出效果加以设计，程序的运行结果如图7-41所示，其中对“字体”、“大小”的控制采用列表框，对“效果”的控制采用组合框。

图7-41 文本的输出效果

（8）设计一个窗体，当用户输入出生年份，系统会判断出用户的属相，并在窗体中输出，程序运行结果如图7-42所示。

图7-42 输入年份判断属相 图7-43 图片的放大与缩小

（9）设计一个窗体，其运行界面图7-43所示。窗口中有图像框、一个滚动条和一个文本框。滚动条变化范围是0～10，当单击滚动条时，图像框中图片的大小随之发生改变，且在文本框中显示滚动条的数值。

（10）创建一个窗体，在窗体上添加3个Slider控件，设置其表示范围为[0,255]，运行时，用Slider控件调整窗体背景颜色的红、绿、蓝颜色值。

（11）使用SSTab控件创建包含4个选项卡的窗体，每个选项卡显示一首古诗词。

第8章

1．回答下列问题：

（1）绘制的图形在容器控件中的位置是由什么确定的？ （2）用户自定义坐标系有什么好处？

（3）什么是绝对坐标？什么是相对坐标？

（4）坐标度量单位可通过什么属性来设置？请写出几种常用度量单位。 （5）在程序代码中为FillColor等属性指定颜色的方式有几种？ （6）AutoRedraw属性有何作用？

（7）当用Line方法画线后，CurrentX与CurrentY在何处？

（8）Visual Basic在构造图形时，有几个图形层次？能否将标签放置到文本框上方？ 2．编写程序。

（1）通过随机指定当前坐标，使用Print方法在窗体上输出100个“★”。如图8-22所示。

图8-22 随机输出图形符号 图8-23 渐变效果

（2）在窗体上演示颜色的渐变过程，运行效果如图8-23所示。

（3）设计一个窗体，用画圆的方法绘制图形，程序运行结果如图8-24所示。

图8-24 用画圆的方法绘制图形 图8-25 用画圆的方法绘制图形

（4）设计一个窗体，用画点的方法绘制y=Sin(x)+Cos(x) 的函数曲线，程序运行结果如图8-25所示。

（5）利用Line方法在一个窗体上画随机射线，产生“礼花绽放”的效果。如图8-26所示。

33

图8-26 在窗体上画随机射线 图8-27 绘制系列正方形

（6）设计一个窗体，从窗体的左上角到右下角连续绘制一系列对角线长度逐步增大的正方形，并为每个正方形随机填充颜色。程序运行结果如图8-27所示。

（7）一块小石子掉进平静的水面，产生一圈圈的涟漪。编写程序，简单模拟这个动态效果。 （8）用两种方法编写程序，将窗体左边Picture1中的图片放大并显示到右边Picture2中，程序运行结果如图8-28所示（说明：一种采用PaintPicture方法，另一种采用在循环中用PSet和Point方法）。

图8-28 图片的放大

第9章

1．菜单有哪几种类型？应用程序中菜单的用途是什么？

2．菜单的访问键和快捷键有什么区别？如何为菜单设置访问键和快捷键？

3．工具栏的作用是什么？如何使得工具栏上的按钮和菜单命令在操作上保持一致？ 4．Visual Basic提供了哪些对话框函数？ 5．多重窗体与多文档有什么不同？

6．多重窗体如何调用，窗体间如何相互传递数据？

7．什么是多文档界面？与单文档界面相比较；多文档界面有什么特点？

8．试说明MDI窗体的用途，并说明如何将MDI 窗体设置为启动窗体。如何将普通的独立窗体设置为MDI子窗体？

9．创建一个记事本程序，具有简单的编辑功能，程序运行结果如图 0-1所示。具有

34

三个主要菜单：文件（包含新建、打开、保存功能），编辑（包含复制、剪切、粘贴功能）、格式（包含字体、背景颜色功能）试用通用对话框实现。

图 0-1 记事本程序

10．利用第8章学习的知识，创建一个多文档界面的画图软件。具有菜单栏和工具栏，菜单栏内容与工具栏一致，包括的菜单有：文件(新建、关闭)，图形(画圆、画线、画矩形)，绘图工具(铅笔、橡皮擦)，绘图参数(颜色、线型)。运行窗口如图 0-2所示，其中颜色设置采用通过对话框的形式，线型设置在新窗口打开。

图 0-2绘图程序

第10章

1．文件有几种分类，主要的类别有哪些？ 2．与文件操作的相关函数有哪些？

3．顺序文件、随机文件以及二进制文件的读写命令分别是哪些？ 4．文件的基本操作命令分别有哪些? 5．目录的基本操作命令分别有哪些？

6．创建一个窗体，完成顺序文件数据的输入输出功能，程序运行结果如图0-3所示。

35

图0-3顺序文件的操作 图 0-17随机文件的操作

7．创建一个窗体完成随机文件数据的输入输出功能,程序运行结果如图 0-17所示。 8．创建一个程序，完成文件的添加，程序运行结果如图 0-17所示。

图 0-17 文件添加

9．模拟一个文件选择窗体，如图0-18所示，并能完成图中所示的操作。

图 0-18 文件选择器

36

图0-3顺序文件的操作 图 0-17随机文件的操作

7．创建一个窗体完成随机文件数据的输入输出功能,程序运行结果如图 0-17所示。 8．创建一个程序，完成文件的添加，程序运行结果如图 0-17所示。

图 0-17 文件添加

9．模拟一个文件选择窗体，如图0-18所示，并能完成图中所示的操作。

图 0-18 文件选择器

36