VB语言程序设计试题库.doc

VB程序设计
一、判断题
1. 同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。（ X ）
2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（ ? ）
3. 单选按钮与复选框对象的Value属性类型不同，且只能取值True和False。（ √ ）
4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。（ ? ）
5. 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。（ √ ）
6. “A=B=C”是一个合法的Visual Basic语句。（ ? ）
7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。（ ? ）
8. Visual Basic程序的运行可以从 Main（）过程启动，也可以从某个窗体启动。（ √ ）
9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。（? ）
10. 对于文件系统控件，当驱动器控件Drivel中的驱动器符改变时，文件夹列表控件Dir1中显示的文件夹也作相应的改变，可以在Drive1中的Change事件中使用如下命令。Dir1. Path＝ Drive1. Drive（ √ ）
11. 滚动条控件可作为用户输入数据的一种方法。（ √ ）
12. 单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。（ ? ）
13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。（ √ ）
14. Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。（ √ ）
15．注释语句REM可自成一语句。（ √ ）
16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress（ ?）
17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。（ √ ）
18. 当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。（? ）
19．执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。（ √ ）
2.句“FontName="宋体" ”与“Form1.FontName="宋体" ”的作用完全相同，无一例外。（ ?）
21局变量只能在窗体的通用区内用Public或global定义。（ ? ）
22. 在盘驱动器列表框Drivel的Change事件过程中，代码Dirl. Path＝Drivel . Drive的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相应改变。（ √ ）
23．直到型循环至少能执行一次循环体。（ √ ）
24. Variant是一种特殊的数据类型，Variant类型变量可以存储除定长字符串数据及自定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、Error和Null等特殊值。（ √ ）
25. 如果一个菜单项的 Visible属性为False，则它的子菜单也不会显示。（ √ ）
26.运行程序后在同一窗体上不可能同时选中两个单选钮。（ ? ）
27. 窗体的 Enabled属性值为 False时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。（ √ ）
28．定时器的interval属性值为0时，不会发生timer事件。（ √ ）
29. 框架控件和形状控件都不能响应用户的鼠标的单击事件。（ ? ）
30. 在一个窗体的代码中不能使用Unload语句来卸载本窗体，即一个窗体只能由其他窗体卸载。（ ? ）
31．移动图片框时,以该图片框为载体的各控件的Left 和 Top属性值不变。（ √ ）
二．单选题
32. 组合框的Change（ ）事件在下列那种情况下发生？( C )
A、在程序改变控件的大小时发生 B、用户在下拉列表中改变选项时发生
C、用户在编辑文本区内容时发生 D、当程序改变组合框的Style属性时发生
33. 为了使标签框的中的文字能自动折行，必须同时设置下面 两个属性为True。（ D ）
A、Caption和AutoSize B、AutoSize和Aligment
C、Visible 和Enable D、AutoSize 和WordWarp
34.如果希望文件列表框只显示可执行文件，应该修改（ B ）属性。
A、Pattern B、Filter C、Path D、FileName
35.为了使某个命令按钮处于不可用状态，应该设置该命令按钮的 属性。（ B ）
A、Default B、Enabled C、Cancel D、TabIndex
36.通用对话框控件的返回值FileName表示所选择文件的（ B ） 。
A、路径名 B、全名 C、文件主名 D、文件扩展名
37.关于单选按钮和复选框，下列说法正确的是：( C )
A、单选按钮和复选框的Value属性值可能是0或1
B、同一窗体上的单选按钮只能有一个处于选中状态
C、复选框不支持DblClick事件
D、单选按钮选中状态的改变只能由用户进行，而不能由程序设置
38.下列控件中哪个控件没有Change事件( D )
A、滚动条 B、目录列表框 C、标签 D、单选按钮
39.菜单项显示分隔线是通过设置（ A ）属性来实现的。
A、Caption B、Visible C、Checked D、Enabled
40.运行时组合框控件Comb1中所选择的表项，可以表示为（ C ）。
A、Comb1.Text B、Comb1.List C、Comb1.ListIndex D、Comb1.ListCount
41.要使Shape控件以实心方式填充，应该设置其（ B ）属性。
A、FillColor B、FillStyle C、BackStyle D、Shape
42.向文本框中输入一个字符，下列 事件不会发生。（ C ）
A、Change B、KeyPress C、GotFocus D、KeyDown
43.下面关于框架、复选框和单选钮的叙述，正确的是 。（ B ）
A、框架没有Caption属性，而复选框和单选钮都有Caption属性
B、一个框架中的复选框有可以多个被选中
C、一个窗体中单选钮有且只有一个可以被选中
A、 可以把窗体中已存在的单选钮拖到框架中，成为框架中的一员
44.用户在窗体上单击时，将先后触发该窗体的( D )
A、MouseDown事件、Click事件、MouseMove事件、MouseUp事件
B、Click事件、MouseDown事件 、MouseUp事件、MouseMove事件
C、MouseDown事件、Click事件、MouseUp事件 、MouseMove事件
D、MouseDown事件 、MouseUp事件、 Click事件、 MouseMove事件
45.下面 方法不属于列表框和组合框。（ A ）
A、Cls B、AddItem C、GetFocus D、RemoveItem
46.在图片框控件Picture1上坐标(x,y)处画一个绿色点，写作( D ) 。
A、Pset(x,y),Rgb(0,255,0) B、Picture1.Pset(x,y),Green
C、Pset(x,y),vbGreen D、Picture1.Pset(x,y),vbGreen
47.下面关于滚动条和计时器控件的叙述，其中错误的是 。（ B ）
A、当滚动条的Value值改变时，发生Change事件
B、当拖动滚动条时，释放鼠标时发生Scroll事件
C、计时器控件在运行时是不可见的
D、计时器和滚动条控件都有Enable属性
48.单击滚动条两端的任一个滚动箭头，将触发该滚动条的 ( C ) 事件。
A、Scroll B、KeyDown C、Change D、Dragover
49.设置某子菜单项的Caption（标题）属性为“画图（&D）”，ShortCut（快捷键）属性为“Ctrl+L”。启动工程时，下面 不会触发该子菜单的Click事件。（ D ）
A、打开主菜单，按D键 B、直接按Ctrl+L 键
C、用鼠标单击该子菜单项 D、打开主菜单，按Alt+D
50.要改变控件的宽度，应修改该控件的 ( C ) 属性。
A、Top B、Left C、Width D、Height
51.顺序文件有三种打开方式，下面 种不是。（ A ）
A、Random B、Input C、Output D、Append
52．( C ) 对象不能作为控件的容器。
A、Form B、PictureBox C、Shape D、Frame
53. 将命令按钮Command1设置为不可见，应修改命令按钮的 ( A ) 属性。
A、Visible B、Value C、Caption D、Enabled
54．下列数据类型中，占用内存最小的是( B ) 。
A、Boolean B、Byte C、Integer D、Single
55. ( D ) 对象具有Clear方法。
A、图片框 B、窗体 C、复选框 D、列表框
56．一个对象可以执行的动作和可被对象识别的动作分别称为( B ) 。
A、事件、方法 B、方法、事件
C、属性、方法 D、过程、事件
57．已知A、B、C中C最小，则判断 A、B、C可否构成三角形 3条边长的逻辑表达式是( B )。
A、A＞=B And B＞=C And C＞0 B、A＋C＞B And B＋C＞A And C＞0
C、(A＋B＞=C Or A－C＜=C) And C＞0 D、A＋B＞C And A－B＞C And C＞0
58.将通用 对话框CommonDialog1的类型设置成“另存为”对话框，可调用该控件的的 （ B ） 方法。
A、ShowOpen B、ShowSave C、ShowColor D、ShowFont
59．下面( C )是日期型常量。
A、“12/19/99” B、12/19/99 C、#12/19/99# D、｛12／19／99｝
60. 重新定义图片框控件的坐标系统，可采用该图片框的 （ A ） 方法。
A、Scale B、ScaleX C、ScaleY D、SetFocus
61．____D___ 对象不具有Caption属性。D
A、Label B、Option C、Form D、Timer
62．Integer类型的变量可存的最大整数是( D ) 。
A、255 B、256 C、32768 D、32767
63．要改变控件的宽度，应修改该控件的( C )属性。
A、Top B、Left C、Width D、Height
64.对于窗体级变量，以下说法错误的有： （ B ）
A、所在窗体的各子程序都可以访问
B、其他窗体的子程序不能访问
C、所在窗体的子程序能访问用Private定义的窗体级变量
D、一定要在所在窗体的通用区内定义
65．在窗体Forml的Click事件过程中有以下语句：（ C ）
“Label1. Caption＝”“Visual Basic”若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为 。
A、“Label” 、 “Label” B、“Labei1” 、 “Visual Basic”
C、“Label1” 、 “Label1” D、Caption 、 “Label”
66. 下面关于变量的作用域和生存周期的描述正确的是( C )
A、全局变量可在窗体的通用区内定义
B、窗体级变量与静态变量具有相同的作用域和生存周期
C、同一过程中用“ Dim ”定义的局部变量和用“ Static ”定义的局部变量具有相同的作用域
D、同一过程中用“ Dim ”定义的局部变量和用“ Static ”定义的局部变量具有相同的生存周期
67．一个菜单项是不是一个分隔条，由( B ) 属性决定。
A、Name（名称） B、Caption C．Enabled D、Visible
68.Integer类型的变量可存的最大整数是 。（ D ）
A、255 B、256 C、32768 D、32767
69．下面( B )对象在运行时一定不可见。
A、Line B、Timer C、Text D、Option
70． 形状控件所显示的图形不可能是( D )。
A、圆 B、椭圆 C、圆角正方形 D、等边三角形
71．以下( A )方式打开的文件只能读不能写。
A、Input B、Output C、Random D、Append
72. 对象不具有Caption属性。（ D ）
A、Label B、Option C、Form D、Timer
73．由 For k＝35 TO 0 Step 3： Next k 循环语句控制的循环次数是( A )
A、0 B、12 C、-11 D、-10
74.以下( A )方式打开的文件只能读不能写。?
A、Input B、Output C、Random D、Append
75.由 For k＝35 TO 0 Step 3： Next k 循环语句控制的循环次数是( A )
A、0 B、12 C、-11 D、-10
76.想要改变控件在窗体中的左右位置，可以修改该控件的( B )属性。
A、Top B、Left C、Width D、Right
77.要在文件列表框中显示不同类型的文件可以通过设置( A )属性
A、Pattern B、Path C、Filename D、ListIndex
78.窗体的DrawWidth属性值设置为大于1时，下列( C )属性会失去作用
A、Backcolor B、FillStyle C、Drawstyle D、Fillcolor
79．如果在图片框上使用绘图方法绘制一个圆，则图片框的( A )属性不会对该圆的外观产生影响。
A、Backcolor B、ForeColor C、DrawWidth D、Drawstyle
80. 菜单编辑器中呈现以下状态，程序运行后下列( D )操作无法执行“复制”功能
A、 打开“编辑”菜单后按下“C”

B、直接按下 Ctrl+C
C、鼠标单击“复制”菜单项
D、 “ Alt+E ”——〉“ Alt+C ”
三．填空题
81．VB的字符串运算符有 __+__ 和 & 两种,其中运算符两边的表达式类型必须为字符型的运算符是___??&__ 。???
82. 设x=6,y=4,z=7,下面表达式的值是true _x>y and y>x-z or x<y and not 2*y >z
83. 设n是一个自然数，那么求n的位数L的表达式可以是L= __ len(str(n))-1___。
[例如：若n=12345，则L=5]
84. 在打开某窗体时，初始化该窗体中的各控件，应选用load事件。
85．滚动条的当前值用 __ value ___表示。
86. 设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是((Int(x)+1)\2)*2+l（或（（Fix(x)+1）\2）*2+1）。
87. 在代码设计中，为了给某控件的BackColor属性赋一个颜色值，可以有三种方法获得颜色，它们分别是QBColor()函数、颜色常数和___ RGB( ) 函数____。
88. a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是a1=a3 Xor a2=a3（或a1=a3 And a<>a3 Or a1<>a3 And a2=a3） 。
89. 以图片框Picture1的中心为圆心，以1000为半径在Picture1上画一个圆的方法是 _ picture1.circle (picture1.width/2,picture1.height/2),1000_____ 。
90. 设init的初值为10 ，则由下列循环语句控制的循环次数是 6 。
Do While init >=5
Init=init-1
Loop
91. 窗体的 Enabled属性值为_ False _____时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。
92. 在Visual Basic中，变量从它的作用范围来看。可分为全局变量、模块级变量和局部变量3种。
93．Visual Basic提供了对文件的三种存取方式,分别是 __ Input __ 、__ output ___ 和 __ Append ___ 。
94. 8语句Picture1.Circle(800,1000),500的含义是以图片框Picture1中的（800，1000）为圆心，以500为半径画一个圆。
95.用Visual Basic开发应用程序的"三步曲"是：__界面设计___、__属性设置_____和__代码设计____。
96．在VB中,若要产生一消息框,则可用函数__ msgbox __ 来实现。
97.已知n为一个三位正整数，写出求n中十位数的Visual Basic表达式__(n\10) mod 10____。
98．若要获得用户在驱动器列表控件中所选择的驱动器,可通过访问该对象的__ Drive ___ 属性来实现。
99. 表达式（4.8\2）*7 Mod 3.14的运行结果是___2____。
100. 目录列表框（DirListBox）中，当前文件夹对应项目的ListIndex属性值为___ -1 ___。
101．利用Line方法可以画 __直线___ 、__矩形___ 和 __实心矩形___ 。
102．Visual Basic的菜单可分为 __下拉式__ 菜单和 ____弹出式___ 菜单两种。
103.在Visual Basic中，___文件列表框_____和 ____通用对对话框_____控件具有Filename属性。
104．在VB中,用于产生输入对话框的函数是__ Inputbox ___，其返回值类型为__字符型___ ，若要利用该函数接收数值型的数据，则可利用__ Val ___ 函数对其返回值进行转换而得到。??? ????
105.用PictureBox和Image控件装载图形图像时，为了使图形图像与所在的控件大小相等，可以改变
106.形状的Shape属性可以取___6____个值，分别代表各种不同的形状。
107.如果在图片框上使用绘图方法绘制一个圆，则图片框的_ Backcolor _属性不会对该圆的外观产生影响。PictureBox的___ stretch ___ 属性和Image的__ autosize __ 属性。
108． 求ａ与ｂ之积除以ｃ的余数，用 VB表达式为 ___mod((a*b)/c) ___ 。
109. Visual Basic常见控件中可以作为其他控件容器的控件有__框架___ 和_图片框_ 。
110．Visual Basic的菜单可在__菜单编辑器__中设计完成。若要使某项菜单在运行时不可见,可设置该菜单对象的____Visible _____ 属性为False来实现；若要使某项菜单在运行时失效,则应设置菜单项对象__ Enabled ___属性为False。
111. 在代码设计中，为了使定时器Timer1能处于关闭状态，使系统不响应它的Timer()事件，可以设置Timer1.Enabled=False 或__ timer1.Interval=0___。
112. 表达式Chr(Asc(“R”)- Asc(“A”) +Asc(“a”))的值是___ r ___。
113．Print Mid$(Str$(-1234),3，2)的结果为__23?___ 。
程序阅读题
四、阅读下列程序，写出运行结果。
1、 程序1
Private Sub Command1_Click()
??Dim x As Integer, s As Integer
??x = Val(InputBox("请输入一个正整数="))
??If x < 5 Then
????s = s * x
??Else
??s = s + x
??End If
??text1.Text = "s=" + Str(s)
End Sub
程序运行时连续3次单击Command1，且设输入的数是5，2和4时，分别写出文本框Text1.Text的值。
2、 程序2
Private Sub Form_Click()
??Form1.Cls
??w = 3
??For k = 2 To 6 Step 2
?????Form1.Print "w="; w, "k="; k
?????w = w + 1
??Next k
??Form1.Print "w="; w, "k="; k
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
3、 程序3
Private Sub Form_Click()
??Dim x As String
??Dim i As Integer, n As Integer
??Form1.Cls
??x = "ABCDEFGHKL"
??n = Len(x)
??For i = n To 1 Step -2
?????Form1.Print Tab(20 - i); Mid(x, i, 1)
?????Next i
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
4、 程序4
??Dim a As Integer, y As Integer
??Private Sub Form_Load()
??Open "c:\a1.dat" For Output As #1
??Close #1
End Sub
Private Sub Command1_Click()
??Open "c:\a1.dat" For Append As #1
??Call aa(5)
??y = y + a
??Print #1, "y="; y, "a="; a
??Close #1
End Sub
Sub aa(i As Integer)
??x = 1
??Do Until x > i
?????a = a + x
?????x = x + 3
??Loop
End Sub
写出程序运行时连续3次单击Command1后，a1.dat文件的最终结果。
程序阅读题答案 ：1.
s=5
s=10
s=40
2.
w=3 k=2
w=4 k=4
w=5 k=6
w=6 k=8
3.
?L
??H
???F
????D
?????B
4.
y=5 a=5
y=15 a=10
y=30 a=15
五.程序填空题
仔细阅读下列各小题的程序说明和相应的程序，在每小题提供的若干可选答案中，挑选一个正确答案。
1. 【程序说明】
本程序求3～100之间的所有素数（质数）并统计个数，同时将这些素数从小到大依次写入顺序文件 e：\dataout.txt，素数的个数显示
在窗体Form1上。
【程序】
Private Sub Command1_Click()
???Dim count As Integer, flag As Boolean
???Dim ti As Integer, t2 As Integer
?????（1）
???count = 0
???For ti = 3 To 100
?????flag = True
?????For t2 = 2 To Int(Sqr(t1))
??????If （2） Then flag＝ False
?????Next t2
?????（3）
???count = count + 1
???Write #1, t1
???End If
???Next t1
?????（4） ???Close #1
End Sub
（1）A、Open e:\dataout.txt For Output As #1
?????????B、Open e:\dataout.txt For Input As #1
?????????C、Open e:\dataout.txt For Output As #2
?????????D、Open e:\dataout.txt For Output As #1
(2) A、t2\t1=0 B、t1 Mod t2=0 C、t1\t2=0 D、t2 Mod t1=0
（3）A、If flag Then B、If t2>t1 Then
?????????C、If t1>t2 Then D、If t2>int(sqr(t1)) Then
(4) A、 Forml.Print"素数个数：" ; count
?????????B、 Print #l "素数个数：";Count
?????????C、 Form1.Print"素数个数："； count
?????????D、 Form1.Print"素数个数："： Count
2. [程序说明]
由输入对话框输入n（设n为大于零且小于30的自然数），计算下列表达式并在标签框Label1上显示。
　　１/(１*2)+1/(2*3)+1/(3*4)+……+1/(n*(n+1))
【程序】
Private Sub Form_Click()
Dim n As Integer, sum As Double, k As Integer
Do （5）
?????????n = Val(InputBox("n=", "请重输"))
Loop
sum = 0
?????????（6）
Do
?????????k = k + 1
?????????sum= （7）
Loop Until k >= n
Label1.Caption = "Sum" + Str(sum)
End Sub
(5) A、While n<=O or n>=30 B、While n<=O And n>=30
?????????C、Until n>0 Or n< 30 D、Until n> =0 and n<= 30
(6) A、k=2 B、k=1 C、K=-1 D、k=0
(7) A、1/(k*(k+1)) B、l/(k-1)*k
?????????C、sum+1/(k*(k+1)) D、sum+1/k*(k+1)
3. 【程序说明】
本程序用于处理文本框Textl.Text中的内容，假设文本框中有偶数个字符。要求将文本框从头尾至中间依次各取字符，组成一个新的字符串str2，并在窗体上输出。

【程序】
Private Sub Form_Click()
Dim Str1 As String, Str2 As String
Str1 = TeXt1.Text
Str2 = ""
m = 0
Do （8）
?????????Str2= Str2+ （9）
?????????Str2= Str2+ （10）
?????????m = m + l
Loop
forml.Print Str2
End Sub
(8) A、While m ?????????C、Until m> Len(Str1)/2 D、Until m< Len(Str1)/2
(9) A、Mid(str1,m,1) B、 Mid(str1,len(str1)-m,1)
?????????C、Mid（m,Strl,l） D、Mid（Str1,m+l,1）
(10) A、Mid(str1,len(str1)-m+1,1)
?????????B、Mid(str1,m,1)
?????????C、Mid(str1,len(str1)-m,1)
?????????D、 Mid(str1,len(str1)-m+1,1)

程序填空题答案：DBACADCADC
六、 程序填空题
1. 下面是一个求n!的自定义函数代码。
Private Function JC(n As Integer) As Long
Dim Result As Long
If p = 1 Then
???Result = 1
Else
???Result = （1）
End If
JC = （2）
End Function
2. 下面的程序完成以下功能：单击窗体上的“测试”（Command1）按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框（Text1）中。
Private Sub Command1_Click()
Dim St1, St2 As String
Dim Ch As （3）
Dim L As Integer
St1 = InputBox("请输入一串字符", "字符串输入")
L = （4）
St2 = ""
For i = 1 To L
???Ch = Mid(St1, i, 1)
If (Ch > "A" And （5） ) Or (Ch > "a" And Ch < "z") Then
???St2 = St2 + Ch
End If
Next i
Text1.Text = （6）
End Sub
3. 下面的程序完成以下功能：窗体上有两个命令按钮“产生”（Command1）和“排序”（Command2）。单击“产生”按钮时，随机产生10个[1，20]范围内的整数放在数组A中，并在窗体上输出。单击“排序”按钮时，用选择法排序这10个数并输出。
Dim A(10) As Integer
Private Sub Command1_Click()
Dim i As Integer
Randomize
Print "排序前的数列："
For i = 1 To 10
???A(i) = （7）
Print Str(A(i)) + " ";
Next i
Print
End Sub
Private Sub Command2_Click()
Dim i, j, Min, Temp As Integer
Print
Print "选择排序后的数列："

For i = 1 To 9
Min = A(i)
For j = （8） To 10
???If A(j) < Min Then
?????Temp = A(j)
?????A(j) = （9）
?????Min = Temp
???End If
Next j
A(i) = Min
（10）
For i = 1 To 10
???Print Str(A(i)) + " ";
Next i
Print
End Sub
程序填空题答案 ：(1) n*Jc(n-1) (2) result (3) string (4) len(str) (5) ch<"z" (6) st2 (7) int(Rnd*20)+1 (8) I+1 (9) min (10) next i
七、程序填空题
1. 程序说明：利用一个计时器，一个标签框和两个命令按钮制作一个动态秒表，
????单击“结束”命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行
????了0小时2分10秒”。（假设对象的属性都在程序代码中设定） 一个动态秒
程序代码如下
Dim x As Long
Dim h As Integer, m As Integer, s As Integer
Private Sub Form_Load()
??Form1. Caption = "动态秒表(小时:分:秒)"
??Command1. Caption = "开始[&S]"
??Command2. Caption = "结束[&E]"
??Label1. Alignment = 2
??Label1. Caption = "0:0:0"
??Timer1. Interval = （1）
??Timer1. Enabled = False
??x = 0
End Sub
Private Sub Command1_Click()
??（2）
End Sub
Private Sub Command2_Click()
??Timer1. Enabled = False
??x = （3）
??Label1. Caption = "运行了" + Str(h) + "小时" + Str(m) + "分" + Str(s)+ "秒"
End Sub
Private Sub Timer1_Timer()
??x