VB期末考试题(第1套)

1下列语句都是在Form中定义，__C____是错的。

A.Public a3 As Integer

B.Private Const A2 = 8

C.Public Const A1 = 2u

D.Private a4 As Integer

2 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

For i = 1 To 4

If i = 1 Then x = i

If i <= 4 Then x = x + 1

Print x;

Next i

End Sub

程序运行后，单击命令按钮，其输出结果为：___A___。

A. 2 3 4 5

B. 1 2 3 4

C. 2 3 4 4

D. 3 4 5 6

3如果要在菜单中添加一个分隔线，则应将其Caption属性设置为__A____。

A.–

B.*

C.&

D.＝

4下列程序段的执行结果为___B___。

A = 0:

B = 1

Do

A = A + B

B = B + 1

Loop While A < 10

Print A; B

A. A B

B.10 5

C.0 1

D.10 30

5设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是___A___。

A.menu1.Visible=False

B.menu1.Enabled=False

C.menu1.Visible=True

D.menu1.Enabled=True

6. 以下叙述中正确的是___C___。

A.可以在运行期间改变窗体的Name属性的值

B. 窗体的Name属性值是显示在窗体标题栏中的文本

C. 窗体的Name属性指定窗体的名称，用来标识一个窗体

D. 窗体的Name属性值可以为空

7. 下列不能打开菜单编辑器的操作是__A____。

A. 按Shift+Alt+M

B. 单击工具栏中的"菜单编辑器"按钮

C. 执行"工具"菜单中的"菜单编辑器"命令

D. 按Ctrl+E

8. 在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。

设有如下的类型和变量声明：

Private Type Person

name As String*8

major As String*20

End Type

Dim p As Person

设文本框中的数据已正确地赋值给Person类型的变量p，当单击"保存"按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是__A___。

A. Open "c:\Test2.dat" For Random As #1 Len = Len(p)

Put #1,1,p

Close #1

B. Open "c:\Test2.dat" For Output As #1

Put #1,1,p

Close #1

C. Open "c:\Test2.dat" For Random As #1 Len = Len(p)

Get #1,1,p

Close #1

D. Open "c:\Test2.dat" For Random As #1

Get #1,1,p

Close #1

9. 以下关于图片框控件的说法中，错误的是__B____。

A. 可以通过Print方法在图片框中输出文本

B. 用Stretch属性可以自动调整图片框中图形的大小

C. 图片框控件可以作为容器使用

D. 清空图片框控件中图形的方法之一是加载一个空图形

10.在窗体上画一个文本框（其名称为Text1）和一个标签（其名称为Label1）。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述

操作的事件过程是：__A____。

A. Private Sub Text1_Change()

Label1.Caption = Text1.Text

End Sub

B. Private Sub Label1_Change()

Label1.Caption = Text1.Text

End Sub

C. Private Sub Text1_Click()

Label1.Caption = Text1.Text

End Sub

D. Private Sub Label1_Click()

Label1.Caption = Text1.Text

End Sub

11.以下语句用于打开一个顺序文件Open "C:\MyFile.txt" For OutPut 但该语句的一个重要错误是没有__B____。

A. 指定打开文件名

B. 指定文件号

C. 指定打开方式

D. 指定文件类型

12. 在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：

Private X As Integer

Private Sub Command1＿Click()

X=5:Y=3

Call proc(X,Y)

Label1.Caption=X

Label2.Caption=Y

End Sub

Private Sub proc(ByVal a AS Integer,ByVal b As Integer)

X=a*a

Y=b+b

End Sub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是__A____。

A.25和3

B.5和3

C.25和6

D.5和6

13.要利用通用对话框控件来显示“保存文件”对话框，需要调用控件的__C____方法。

A. ShowColor

B. ShowOpen

C. ShowSave

D. ShowPrinter

14.以下Case语句中错误的是___A___。

A. Case Is>10 And Is<50

B. Case Is>10

C. Case 0 To 10

D. Case 3,5,Is>10

15. 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim x As Integer, n As Integer

x = 1

n = 0

Do While x < 20

x = x * 3

n = n + 1

Loop

Text1.Text = Str(x)

Text2.Text = Str(n)

End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别是___D___。

A.15和1

B.600和4

C.195和3

D.27和3

16. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim a(10,10) As Integer

For i=1 To 3

For j=1 To 3

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

Print a(i,j);

Next j

Print

Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是__A____。

A. 1 2 3

4 5 6

7 8 9

B. 1 2 3

2 4 6

3 6 9

C. 2 3 4

3 4 5

4 5 6

D. 1 4 7

2 5 8

3 6 9

17.要使目录列表框（名称为Dir1）中的目录随着驱动器列表框（名称为Drive1）中所选择的当前驱动器的不同而同时发生变化，则应___C___。

A.在Drive1中的Change事件中，书写语句

Dir1.Path=Drive1.Drive

B. 在Dir1中的Change事件中，书写语句

Dir1.Path=Drive1.Drive

C. 在Drive1中的Change事件中，书写语句

Dir1.Path=Drive1.Drive

D. 在Dir1中的Change事件中，书写语句

Dir1.Path=Drive1.Drive

18.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是__D____。

A. "文本文件(.txt)|.txt"

B. "text(.txt)||*.txt"

C. "text(.txt)*(.txt)"

D. "text(.txt)|*.txt"

19.以下叙述中错误的是__A____。

A. 在Visual Basic中，对象所能响应的事件是由系统定义的

B. Visual Basic中允许不同对象使用相同名称的方法

C. 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定

D. Visual Basic中的对象具有自己的属性与方法

20. 在窗体上有一个名为Textl的文本框。当光标在文本框中时，如果按下字母键"A"，则被调用的事件过程是___C___。

A. Form_KeyPress( )

B. Textl_LostFocus( )

C. Textl_Change( )

D. Textl_Click( )

21. 设a=6，则执行 x=IIF(a>5,-1,0)后，x的值为__B____。

A. 5

B.-1

C.0

D.6

22. 大部分控件都没有的属性是___D___。

A. Name

B. Top

C. Visible

D. Interval

23. 以下叙述中错误的是__B___。

A. 一个工程可以包括多种类型的文件

B.程序运行后，在内存中只能驻留一个窗体

C. Visual Basic应用程序既能以编译方式执行，也能以解释方式执行

D. 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

24. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是___D___。

A. Cancel

B. Value

C. Enabled

D. Default

25. 以下能够正确计算n!的程序是__D____。

A. Private Sub Command1＿Click()

n=5:x=1

Do

x=x*i

i=i+1

Loop While i

Print x

END Sub

B. Private Sub Command1＿Click()

n=5:x=1:i=1

Do

x=x*i

i=i+1

Loop While i

Print x

END Sub

C. Private Sub Command1＿Click()

n=5:x=1:i=1

Do

x=x*i

i=i+1

Loop While i>n

Print x

END Sub

D. Private Sub Command1＿Click()

n=5:x=1:i=1

Do

x=x*i

i=i+1

Loop While i<=n

Print x

END Sub

26. 用下面的语句所定义的数组的元素个数是：__C____。Dim arr(3 To 5,-2 to 2)

A.24

B.12

C.15

D.20

27. 以下正确的叙述是：___B___。

A. 如下Select Case语句中的Case表达式是错误的：

Select Case x

Case 1 to 10

......

End Select

B. Select Case语句中的测试表达式只能是数值表达式或字符串表达式

C. 在执行Select Case语句时，所有的Case子句均按出现的次序被顺序执行

D. Select Case语句中的测试表达式可以是任何形式的表达式

28. 窗体在屏幕上显示后有__A____种方法可以清除它。

A. 3种

B.1

C.4

D.2

29.以下有关数组定义的语句序列中，错误的是___D___。

A. Dim arr2() As Integer

Dim size As Integer

Private Sub Command2_Click()

size=InputBox("输入:")

ReDim arr2(size)

……

End Sub

B. Static arr1(3)

arr1(1)=100

arr1(2)="Hello"

arr1(3)=123.45

C. Option Base 1

Private Sub Command3_Click()

Dim arr3(3) As Integer

……

End Sub

D. Dim n As Integer

Private Sub Command4_Click()

Dim arr4(n) As Integer

……

End Sub

30.表达式 5 Mod 3 + 3 \ 5 * 2的值是__A____。

A.2

B.4

C.6

D.0

1假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的15个属性。请在划线处将程序补充完整。

Private Sub Form_Click()

Static x As Integer

Cls

Print "Mousepointer Property is now "; x

Form1.__ MousePointer____=x

x = x + 1

If x = 15 Then x = 0

End Sub

2.在执行KeyPress事件过程时，KeyASCII是所按键的_ASCII_____值。对于有上档字符和下档字符的键，当执行KeyDown事件过程时，KeyCode是下档字符的ASCII值。

3. 在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer

For i=1 To 10

a(i)=i

Next

Call swap( _a_____ )

For i=1 To 10

Print a(i);

Next

End Sub

Sub swap(b() As Integer)

n= __Ubound(b)或10____

For i=1 To n/2

t=b(i)

b(i)=b(n)

b(n)=t

__n=n-1____

Next

End Sub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。

4.文件的打开和关闭语句分别是open和__Close____。

5. 在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：

Option Base 1

Private Sub Command1_Click( )

Dim Arr

Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)

pos=0

neg=0

For k=1 To 10

If Arr(k)>0 Then

__pos=pos+Arr(k)____

Else

__neg=neg+Arr(k)____

End If

Next k

Print pos,neg

End Sub

以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。

6.快捷键Ctrl+O的功能相当于执行__文件____菜单中的打开工程命令，或者相当于单击工具栏上的打开工程按钮。（假设工作环境是中文VB）

7.在窗体上画一个文本框和一个标签，其名称分别为Text1和Label1，然后编写如下程序：Function fun(s As Integer)

For i = 1 To s

Sum = Sum + i

Next i

fun = Sum

End Function

Private Sub Form_Click()

Text1.Text = Str(fun(5))

End Sub

Private Sub Text1_Change()

Label1.Caption = "VB Programming"

End Sub

程序运行后，单击窗体则文本框中显示的内容是__15____，而在标签中显示的内容是_ VB Programming _____。

8.下列表达式有错误,正确的写法应该是_(a+b+c)/80-5/(d+e)_____。

[(a+b)+c]/80-5÷(d+e)

9.在窗体上画一个文本框和一个图片框，通过属性窗口设置图片框Picture1的AutoRedraw 属性为True。然后编写如下两个事件过程：

Private Sub Form_Load()

Text1.Text = "计算机"

End Sub

Private Sub Text1_Change()

Picture1.Print "等级考试"

End Sub

程序运行后，在文本框中显示内容是_计算机_____，而在图片框中显示的内容是__等级考试____。

10.在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题

分别为"城市名称"和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示"已成功添加新输入项。"，如图所示。如果输入的项目己存在，则在Label2中给出提示"输入项已在组合框中。"。请填空。

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

For i= 0 To Combo1.ListCount-1

If Combo1.Text= __Combo1.list(i)____ Then

Label2.Caption="输入项已在组合框中。"

Exit Sub

End If

Next i

Label2.Caption="已成功添加新输入项。"

Combo1._AddItem_____ Combo1.Text

End If

End Sub

11.以下程序的功能是：把顺序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。

Private Sub Command1_Click

Dim inData As String

Text1.Text=""

Open "smtext1.txt" _For Input_____ As ___#2___

Do While __ NOT EOF(2) ____

Input #2,inData

Text1.Text=Text1.Text & inData

Loop

Close #2

End Sub

12.窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为"Sum"的标签，一个名称为Command1、标题为"计算"的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击"计算"按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load()

For i = 1 To 100

If i Mod 7 = 0 Then

___ List1.AddItem i ________

End If

Next

End Sub

Private Sub Command1_Click()

Sum = 0

For i=0 To_ List1.ListCount-1 ____

Sum =Sum+__ List1.List(i) ________

Next

Text1.Text = Sum

End Sub

13.在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：

Function Fun(x As Integer, ByVal y As Integer) As Integer

x = x + y

If x < 0 Then

Fun = x

Else

Fun = y

End If

End Function

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = -10:

b = 5

Text1.Text = Fun(a, b)

Text2.Text = Fun(a, b)

End Sub

程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是_-5_____和___5___。

14.在窗体上画一个命令按钮，然后编写如下事件过程：

a = InputBox("请输入一个整数")

B = InputBox("请输入一个整数")

Print a + B

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为___321456___。

15. 在窗体上画一个名称为Command1的命令按钮，编写如下事件过程

Private Sub Command1＿Click

Dim a As String

a=__”123456789”_______

For i=1 To 5

Print Space(6-i);Mid$(a,6-i,2*i-1)

Next

End Sub

程序运行后，单击命令按钮，要求在窗体上显示的输出结果为

5

456

34567

2345678

123456789

请填空。

16. 设有如下程序：

Private Sub Form_Click()

Cls

a$="ABCDFG"

For i=1 To 6

Print Tab(12-i);_ Mid(a,7-i)或Right(a,i) _____

Next i

End Sub

程序运行后，单击窗体，结果如图所示，请填空。

17. 由Array函数建立的数组的名字必须是__Variant____类型。

18.有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框（见图）。合法编号的组成是：前2个字符是大写英文字母，第3个字符是"-"，后面是数字字符（至少1个）。下面程序可实现此功能，请填空。

Dim k%, n%

n = Len(_Text1.text_____)

For k=1 To IIf(n>3,n,4)

c = Mid(Text1.Text,k,1)

Select Case k

Case 1,2

If c<"A" Or c>"Z" Then

MsgBox("第"&k&"个字符必须是大写字母！")

SetPosition k

Exit For

End If

Case 3

If c<>"-" Then

MsgBox("第"&k&"个字符必须是字符""-""")

SetPosition k

Exit For

End If

Case Else

If c<"0" Or c>"9" Then

MsgBox ("第" & k & "个字符必须是数字！")

SetPosition k

Exit For

End If

End Select

Next k

End Sub

Private Sub SetPosition(pos As Integer)

Text1.SelStart=pos-1

Text1.SelLength=__1____

Text1._SetFocus_____

End Sub

19.为了执行自动拖放，必须把DragMode属性设置为__1____，而为了执行手动拖放，必须把该属性设置为___0___。

20.菜单编辑器可分为3个部分，即数据区、_编辑区_____和菜单项显示区。

1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画一个水平滚动条，其名称为HScroll1，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：

1）窗体标题为“设置滚动条属性”

2）滚动条所能表示的最小值和最大值分别为0和200

3）程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为2

4）程序运行后，单击滚动框前面或后面的部位时，滚动框移动的增量值为10

5）滚动框的初始位置为100

程序的运行情况如图所示。

要求：

不要编写任何代码。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为sj32.vbp，窗体文件

名为sj32.frm。

**********************************************************************

（2）在名称为Form1的窗体上画一个文本框，其名称为Text1（如图1所示），编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗

体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上

角。

程序的运行情况如图2所示。

要求：

不得使用任何变量；只允许通过修改属性的方式移动文本框。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为sj33.vbp，窗体文件

名为sj33.frm。

图1 图2

解析：第1小题：

新建一个工程，在窗体上添加一个水平滚动条HScroll1，并将其Max属性设置为200，LargeChange属性设置为10，SmallChange属性设置为2，Value属性设置为100。再选中窗体，设置其Caption属性为“设置滚动条属性”。

最后按照题目要求保存文件即可。

第2小题：

新建一个工程，在窗体上添加一个文本框Text1，打开代码窗口，在其中添加如下代码：Private Sub Form_Click()

Text1.Left = 0

Text1.Top = 0

Private Sub Text1_Change()

Text1.Top = 0

Text1.Left = Form1.Width - Text1.Width

End Sub

按照题目要求保存文件即可完成本题。

2.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

（1）在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。

**********************************************************************

（2）在名称为Form1的窗体上画一个文本框，名称为Text1；再画一个命令按钮，名称为C1，标题为"移动"（如图所示）。请编写适当的事件过程，使得在运行时，单击"移动"按钮，则文本框水平移动到窗体的最左端。程序中不得使用任何变量。

*注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt6.vbp，窗体文件名为sjt6.frm。

解析：

第1小题

文本框的Text属性

设置或返回文本框编辑区中的文本，其语法为：

文本框名.Text = 字符串

文本框的Change事件

当用户向文本框中输入新信息，或当程序把Text属性设置为新值时，就会触发Change事件。解题方法：

新建一个名为Form1的窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出两个文本框。

打开代码窗口，输入如下的代码：

Private Sub T1_Change()

T2.Text = T1.Text

End Sub

按要求保存文件即完成本题。

Left属性

Left属性用来设置或返回控件的左边与容器左边的距离。

解题方法：

新建一个名为Form1的窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。

点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出一个命令按钮，通过属性窗口设置其Name属性为"C1",Caption属性为"移动"。

打开代码窗口，输入如下的代码：

Private Sub C1_Click()

Text1.Left = 0

End Sub

按要求保存文件即完成本题。

3.（1）在窗体上建立一个名称为Text1的文本框，然后建立两个主菜单，其标题分别为"商品类别"、"帮助"，名称分别为vbMenu和vbHelp，其中"商品类别"菜单包括"百货"、"食品"、"家电"三个子菜单，名称分别为vbMenu1、vbMenu2、vbMenu3。程序运行后，如果在"商品类别"的下拉菜单中选择"百货"，则在文本框内显示："大类核算"；如果选择"食品"，则在文本框内显示："中类核算"；如果选择"家电"，则在文本框内显示："小类核算"（要求：不能使用任何变量，直接显示字符串）。

*注意：

保存时必须存放在考生文件夹下，窗体文件名为wy21.frm，工程文件名为wy21.vbp。

***********************************************************************

（2）在考生文件夹中有文件wy22.vbp及其窗体文件wy22.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件夹和文件名。

本题描述如下：

窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为"爱心社"和"学通社"。要求程序运行后，如果只选中Ch1，单击窗体，则在文本框中显示"报名参加爱心社"；如果只选中Ch2，然后单击窗体，则在文本框中显示"报名参加学通社"；如果同时选中 Ch1 和Ch2，单击窗体，则在文本框中显示"报名参加爱心社和学通社"；如果Ch1和Ch2都不选取，在单击窗体后，则在文本框中什么都不显示。

解析：1、菜单编辑器窗口分3个部分，即数据区、编辑区和菜单项显示区。数据区用来输入或修改菜单项、设置属性；编辑区用来对输入的菜单项进行简单编辑，并可设置菜单的层次；单击相应的菜单在弹出的代码窗口中加入相应的代码。

2、CheckBox控件：该控件可用来提供True/False或者Yes/No选项。组中可以使用CheckBox 控件显示多项选择，从而可选择其中的一项或多项。也可以通过对Value属性编程设置CheckBox的值。

4.（1）在考生文件夹下有工程文件wy39.vbp及窗体文件wy39.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在窗体中有两个命令按钮，名称分别是C1和C2,标题分别是"修改窗体图标"和"修改窗体标题"。要求程序运行后，点击C1命令按钮，则将窗体标题栏中的图标换为图标文件3.ico（该文件在考生文件夹下）；点击C2命令按钮，则将窗体标题修改为"窗体"。

***********************************************************************

（2）在考生文件夹下有工程文件wy40.vbp及窗体文件wy40.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹。

本题描述如下：

窗口中有一个名称为Picture1的图片框，一个名称为HScroll1的滚动条，三个命令按钮，名称分别为Command1，Command2，Command3，标题分别为"运行"、"暂停"、"结束"，一个时钟控件，名称为Timer1。程序运行后：

1）单击"运行"按钮后，使小球围绕大球转动，并可以使用滚动条调节转动的速度。

2）单击"暂停"按钮后，暂停小球的转动；按"结束"按钮结束程序。

5.在名称为Form1的窗体上建立一个文本框（名称为Text1，MultiLine属性为True，ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为"读入数据"和"计算保存"，如图所示）。要求程序运行后，如果单击"读入数据"按钮，则读入"in4.txt"文件中的100个整数，放入一个数组中（数组下界为1），同时在文本框中显示出来；如果单击"计算保存"按钮，则计算其中前50个数之和，并把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件"out4.txt"中。（在考生的文件夹下有标准模块mode2.bas，其中的putdata过程可以把结果存入指定的文件，考生可以把该模块文件添加到自己的工程中，直接调用此过程）。

注意：文件必须存放在考生文件夹下，窗体文件名为wy23.frm，工程文件名为wy23.vbp，计算结果存入out4.txt文件，否则没有成绩。

解析：语法

Write #filenumber, [outputlist]将数据写入顺序文件。

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]用于打开文件

Do [{While | Until} condition]

[statements]

[Exit Do]

[statements]

Loop当条件为True时，或直到条件变为True时，重复执行一个语句块中的命令。