09VB上机参考答案-2

VB后半学期练习题

1、 编制通用函数过程，计算1+2+……+N 的值。在窗体的Click事件中调用该函数。 Private Function sum(n As Integer) As long Dim i As Integer For i = 1 To n sum = sum + i Next i End Function

Private Sub Form_Click() Print sum(100) '任意选取一个数对函数过程进行调试就可 End Sub

2、 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。 Private Function fact(n As Integer) As Double Dim i As Integer

fact = 1 '必须赋初值 For i = 1 To n fact = fact * i Next i End Function

Private Sub Form_Click() Print fact(5) End Sub

3、 编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。在窗体

的Click事件中调用该函数。

Private Function prime(n As Integer) As Boolean ' Boolean逻辑型 Dim i As Integer If n < 2 Then prime = False Else

For i = 2 To Int(Sqr(n))

If n Mod i = 0 Then Exit For Next i

If i > Int(Sqr(n)) Then prime = True Else

prime = False End If End If End Function

Private Sub Form_Click() Print prime(4),prime(7) End Sub

4、 编制一个判断奇偶数的Function函数过程。在窗体的Click事件中调用该函数，输入一个整数，判断

其奇偶性。比如：输入10则显示“10是偶数”，输入3则显示“3是奇数” Private Function Odd(n As Integer) As string

If n Mod 2 = 0 Then

Odd =n & “是偶数” Else

Odd = n & “是奇数”

End if End Function

Private Sub Form_Click() Print Odd(4),Odd(5) End Sub

5、 新建一个工程，完成“密码检验”程序的设计。具体要求如下：

（1）参照运行时界面完成界面设计。（2）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。（3）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。（4）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；

1

VB后半学期练习题

如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。

Private Sub Form_Load()

Label1.Caption = \输入密码后按回车\chr(13) & chr(10) & \（提示：密码1234567）\ Text1.PasswordChar = \ Text1.MaxLength = 7 End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) Static n As Integer 'n用来记录输入次数 If KeyAscii = 13 Then '表示单击回车后 If Text1.Text = \ Then '判断密码是否正确 Label2.Caption = \欢迎光临！\ Label1.Visible = False Text1.Visible = False

Else

n = n + 1 '计算输入次数

If n<2 Then

Label2.Caption = \密码不符，请再输入一遍！\ Text1.Text = \ Else

Label2.Caption = \非法用户，请退出程序！\ Text1.Enabled = False '文本框不可用 End If End If End If End Sub

6、 新建一个工程，完成“编辑”程序的设计。具体要求如下：（1）窗体的标题为“编辑”。（2）窗体中有以

下控件：一个文本框、四个命令按钮。（3）完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。

Private Sub Command1_Click()

Clipboard.Clear Clipboard.SetText Text1.SelText End Sub

Private Sub Command2_Click() Clipboard.Clear

Clipboard.SetText Text1.SelText

Text1.SelText = \ End Sub

Private Sub Command3_Click()

'清除剪贴板中的内容' '将选中文本送入剪贴板

'清空文本框内被选中的文本'

2

VB后半学期练习题

Text1.SelText = Clipboard.GetText End Sub

Private Sub Command4_Click()

Text1.SelText = \ End Sub

Private Sub Form_Load() Text1.Text = \End Sub

'将剪贴板上的文本复制到指定文本框的光标处'

'清空文本框内被选中的文本'

7、

新建一个工程，完成“替换”程序的设计。具体要求如下： (1) 窗体的标题为“替换”。

(2) 窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。

(3) 完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击

“替换”按钮执行。

Private Sub Command1_Click()

Dim len1 As Integer, len2 As Integer, len3 As Integer len1 = Len(Text1) '计算文本框1的长度放入变量len1中 len2 = Len(Text2) '计算文本框2的长度放入变量len2中 len3 = Len(Text3) '计算文本框3的长度放入变量len3中 Do While i <= len1 - len2

If Text2 = Mid(Text1, i + 1, len2) Then '判断文本是否与查找的对象一致 Text1.SetFocus Text1.SelStart = i

Text1.SelLength = len2 Text1.SelText = Text3 i = i + len3 '替换后光标的位置 len1 = len1 - len2 + len3 Else

i = i + 1 End If Loop End Sub

8、 新建一个工程，完成“字体修饰” 程序的设计。具体要求如下：

（1） 按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。

（2） 框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。 （3） 框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。

（4） 标签Label1的文字内容为“Visual Basic程序设计“，宋体，常规，三号；文字对齐方式为居

中。

3

VB后半学期练习题

Private Sub Check1_Click(Index As Integer) Select Case Index Case 0

If Check1(0).Value = 1 Then Label1.FontBold = True Else

Label1.FontBold = False End If Case 1

If Check1(1).Value = 1 Then Label1.FontItalic = True Else

Label1.FontItalic = False End If End Select End Sub

Private Sub Option1_Click(Index As Integer) Select Case Index Case 0

Label1.FontName = \宋体\ Case 1

Label1.FontName = \楷体_gb2312\ End Select End Sub

9、 新建一个工程，完成“点餐”程序的设计。具体要求如下： （1） 窗体的标题为“点餐”。

（2） 窗体中有以下控件：一个框架控件作为容器，内有三个复选框数组、对应三个文本框数组、

三个标签框、一个命令按钮。

（3） 要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；如果没有选取

大套餐，那么文本框不能编辑，并清空。

（4） 完成以下功能：选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。

Private Sub Form_Load() Form1.Caption = \点餐\Command1.Caption = \确定\Frame1.Caption = \菜单\

Check1(0).Caption = \儿童套餐馆18元\Check1(1).Caption = \标准套餐23元\Check1(2).Caption = \商务餐28元\For i = 0 To 2

Label1(i).Caption = \份数\ Check1(i).Value = 0 Text1(i).Enabled = False Next End Sub

Private Sub Check1_Click(Index As Integer)

If Check1(Index).Value = 1 Then '若当前复选框被选中,文本框被启用,同时获得焦点 Text1(Index).Enabled = True Text1(Index).SetFocus Else

Text1(Index).Text=\

Text1(Index).Enabled=False

4

VB后半学期练习题

End If End Sub

Private Sub Command1_Click() Dim a%, b%, c%, sum% a = Val(Text1(0).Text) b = Val(Text1(1).Text) c = Val(Text1(2).Text)

sum = a * 18 + b * 23 + c * 28

MsgBox \一共\元\总价\End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

If KeyAscii < 48 Or KeyAscii > 57 Then '输入非数字时弹出对话框,同时文本框重新获得焦点 KeyAscii = 0

MsgBox \请输入数字\ Text1(Index).SetFocus End If End Sub 10、 某公司对员工的工资进行调整：若原有工资大于等于1000元，增加工资35%；若小于1000元

大于等于800元，则增加工资25%；若小于800元，则增加工资15%。请根据用户输入的原有工资，计算出增加后的工资。

Private Sub Command1_Click()

Text1.SetFocus Text1.Text = \Text2.Text = \

Option1.Value = False Option2.Value = False Option3.Value = False End Sub

Private Sub Command2_Click() End End Sub

Private Sub Option1_Click()

If Val(Text1.Text) >= 1000 Then

Text2.Text = Val(Text1.Text) * 1.35 End If End Sub

Private Sub Option2_Click()

If Val(Text1.Text) >= 800 And Val(Text1.Text) < 1000 Then Text2.Text = Val(Text1.Text) * 1.25 End If

5

VB后半学期练习题

End Sub

Private Sub Option3_Click()

If Val(Text1.Text) < 800 And Val(Text1.Text) > 0 Then Text2.Text = Val(Text1.Text) * 1.15 End If End Sub

11、 设计一个“家电提货单”管理程序，程序运行界面如下图所示。具体要求如下：

（1）单击“确定”后，根据选择的内容将清单及总价在列表框中列出。

（2）每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空。 （3）“清除”按钮用于清空列表框中的项目。 （4）所有文本框只接受数字。

Private Sub Check1_Click(Index As Integer) Text1(Index) = \

If Check1(Index).Value = 1 Then Text1(Index).SetFocus End If End Sub

Private Sub Command1_Click() Dim i As Integer

Dim sum As Long, n%

Dim title As String, price As Integer sum = 0

For i = 0 To 4 Select Case i Case 0

title = \电视机\ price = 3580 Case 1

title = \微波炉\ price = 660 Case 2

title = \电冰箱\ price = 1850 Case 3

title = \ price = 2880 Case 4

title = \分体空调\ price = 5500 End Select

If Check1(i).Value = 1 And Text1(i).Text <> \ List1.AddItem title & Text1(i).Text & \台\

6

VB后半学期练习题

sum = sum + Val(Text1(i)) * price n = n + Val(Text1(i)) End If Next i

If sum <> 0 Then

List1.AddItem \共: \台 \合计金额:\元\ End If End Sub

Private Sub Command2_Click() List1.Clear End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

If KeyAscii < 48 Or KeyAscii > 57 Then '输入非数字时弹出对话框,同时文本框重新获得焦点 KeyAscii = 0

MsgBox \请输入数字\ Text1(Index).SetFocus End If End Sub

12、 设计一个“个人资料”输入窗口，程序运行界面如下图所示。具体要求如下：

（1）按照运行界面设计窗体，其中“民族”用组合列表框显示。

（2）单击“确定”按钮，将个人资料信息输出在“个人资料”框架的标签框中。

Private Sub Form_Load() '初始化民族组合框 Combo1.AddItem \回族\ Combo1.AddItem \汉族\ Combo1.Text = \汉族\ '组合框的默认值为汉族 End Sub

Private Sub Command1_Click()

Dim Sex As String, Hobby As String If Option1.Value Then '判断性别 Sex = Option1.Caption Else

Sex = Option2.Caption End If '判断爱好

If Check1.Value = 1 Then Hobby = Hobby & \ ' Hobby为变量名，存放爱好 If Check2.Value = 1 Then Hobby = Hobby & \ If Check3.Value = 1 Then Hobby = Hobby & \ If Check4.Value = 1 Then Hobby = Hobby & \ '显示

7

VB后半学期练习题

Label4.Caption = Txtname.Text & \ \ \ \ 爱好： \

' Txtname表示姓名文本框的名称，Txtage表示年龄文本框的名称 End Sub

Private Sub Command2_Click() End End Sub 13、 新建一个工程，完成应用程序的设计。具体要求如下：

（1） 按照下图所示在窗体上放置按钮和控件。品牌用组合框显示。

（2） 窗体上有两个CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。 （3） 如果单击“确定”按钮，则在按钮下面的标签框中显示用户所选择的信息。

Private Sub Form_Load() Combo1.Enabled = False Label3.BorderStyle = 1 Text1.Enabled = False Frame1.Caption = \ End If Frame2.Caption = \End Sub Check1.Value = 0 Private Sub Check2_Click() Check2.Value = 0 If Check2.Value = 1 Then Text1.Text = \ Option1.Enabled = True End Sub Option2.Enabled = True Private Sub Check1_Click() Else If Check1.Value = 1 Then Option1.Enabled = False

Text1.Enabled = True Option2.Enabled = False Combo1. Enabled = True End If

Else End Sub

Private Sub Command1_Click() Label3.Caption = \

If Check1.Value = 1 Then

Label3.Caption = Label3.Caption + \计算机:\

Label3.Caption = Label3.Caption + Combo1.Text + Text1 + \台\ End If

If Check2.Value = 1 Then

Label3.Caption = Label3.Caption + \操作系统\ If Option1.Value = True Then

Label3.Caption = Label3.Caption + Option1.Caption Else

Label3.Caption = Label3.Caption + Option2.Caption End If End If End Sub 14、

（1） 参照运行时界面完成界面设计。（2）单击“添加单词”按钮，将Text1中的单词添加到列表框，

并使Text1获得焦点，可直接输入另一个单词。（3）单击“删除单词”按钮，删除列表框中被选中的列表项。（4）单击“全部删除”按钮，删除列表框中的全部表项。（5）单击“退出”按钮，结束该程序。

8

VB后半学期练习题

Private Sub Command1_Click() If Text1.Text<>\ List1.AddItem Text1.Text Text1.Text=\ Text1.SetFocus End If End Sub

Private Sub Command2_Click() If list1.listindex<>-1 then 15、

List1.removeitem list1.listindex

End if End Sub

Private Sub Command3_Click() List1.Clear End Sub

Private Sub Command4_Click() End End Sub

（1）参照运行时界面完成界面设计。（2）列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。（3）单击“添加”按钮（Command1），将文本框中的内容回到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。（4）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。

Private Sub Form_Load() End Sub List1.AddItem \Private Sub Command1_Click() List1.AddItem \ If Text1.Text = \ List1.AddItem \ MsgBox (\没有内容,不予添加\ List1.AddItem \ Else

Form1.Caption = \添加和删除\ List1.AddItem Text1.Text, 0 '添加到第一项 Form1.BorderStyle = 1 '固定边框 Text1.Text = \Command1.Caption = \添加\ Text1.SetFocus Command2.Caption = \删除\ End If Text1.Text = \End Sub

Private Sub Command2_Click()

If List1.ListIndex = -1 Then '如果没有选中任何一项,则该属性值为-1 MsgBox (\请选择输出的项目\ Else

List1.RemoveItem List1.ListIndex End If End Sub 16、 （1）参照运行时界面完成界面设计。（2）窗体的上边有一个文本框Text1，文字内容为“心想事成”，Font：宋体、常规、三号。（3）左边简单组合框Combo1，有三项内容，分别是“左对齐、居中、右对齐”，单击时对文本框的对齐方式进行设置。（3）右边简单组合框Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击时对文本框的字型进行设置。

9

VB后半学期练习题

Private Sub Combo1_Click() Select Case Combo1.Text Case \左对齐\

Text1.Alignment = 0 Case \居中\

Text1.Alignment = 2 Case \右对齐\

Text1.Alignment = 1 End Select End Sub

Private Sub Combo2_Click() Select Case Combo2.ListIndex 17、

Case 0

Text1.FontBold = False Text1.FontItalic = False Case 1

Text1.FontItalic = True Case 2

Text1.FontBold = True Case 3

Text1.FontBold = True Text1.FontItalic = True End Select End Sub

（1）参照运行时界面完成界面设计。（2）能完成以下功能：单击“产生”按钮，实现随机产生10个两位正整数，在左边列表框内显示；单击“—>”按钮，把左边列表框中的偶数全部移到右边列表框中。

Private Sub Form_Load() Private Sub Command2_Click() List1.Clear Dim i As Integer List2.Clear i = 0 End Sub Do Until i >= List1.ListCount Private Sub Command1_Click() '产生 If Val(List1.List(i)) Mod 2 = 0 Then Dim i As Integer List2.AddItem List1.List(i) Randomize List1.RemoveItem i List1.Clear Else List2.Clear i = i + 1 For i = 1 To 10 End If List1.AddItem (Int(Rnd * 90) + 10) Loop Next i End Sub End Sub 18、 设计一个程序在两个列表框之间进行操作。

(1)>>>：移动选择的表项至右边列表框（允许选多个） (2)<：移动表项至左边列表框

(3)全选：将所有表项添加至右边列表框( 全部右移) (4)还原：将所有表项添加至左边列表框( 全部左移)

10

VB后半学期练习题

固定边框。（4）窗体的下半部有一个标签Label2，标题为“闹钟时间：”；Label2的右边是文本框Text1。（5）在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2，如果Label1显示的时间超过闹钟时间，则标签Label1的背景色按红白两色交替变换。

Private Sub Form_Load() Timer1.Interval = 1000 Timer2.Interval = 500

Form1.Caption = \电子钟\ Timer2.Enabled = False

Label1.BackColor = vbWhite End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

Timer2.Enabled = True End If End Sub 28、

Private Sub Timer1_Timer() Label1.Caption = Time End Sub

Private Sub Timer2_Timer()

If Label1.Caption > Text1.Text Then

If Label1.BackColor = vbWhite Then Label1.BackColor = vbRed Else

Label1.BackColor = vbWhite End If End If End Sub

（1）参照运行时界面完成界面设计。（2）窗体的左边有一个框架Frame1，标题为“选择时间”；框架内有一组单选按钮控件数组，从上到下为Option1（0）、Option1（1）、Option1（2），标题分别为“1分钟”、“5分钟” 、“10分钟”。默认选择为1分钟。（3）标签Label1，用于显示倒计时的剩余的时间。（4）单击“开始计时”按钮（Command1）后，程序根据选择的时间开始倒计时，同时命令按钮变为不可使用，框架也不可使用。（5）当剩余时间到0分0秒时，改为显示“时间到！”。（6）定时器Timer1的时间间隔为1秒。

Dim X As Integer

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Form_Load() Timer1.Enabled = False Label1.Caption = \ X = 60

Timer1.Interval = 1000 End Sub

Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 X = 60 Case 1 X = 300 Case 2 X = 600 End Select End Sub

Private Sub Timer1_Timer() If X = 0 Then

Label1.Caption = \时间到!\ Timer1.Enabled = False Command1.Enabled = True Frame1.Enabled = True Else

X = X - 1

Label1.Caption = Str(X \\ 60) + \分\秒\ Command1.Enabled = False Frame1.Enabled = False End If

16

VB后半学期练习题

End Sub 29、 设计一个“秒表计时”程序，运行界面如下图所示。具体要求如下：

（1）标签Label1用来显示累计的时间，Caption初值设置为0，Autosize设置为True，字体、字号、颜色等属性自定。

（2）定时器Timer1的Interval设置为1秒，Enabled初值设为False。

（3）命令按钮Command1的标题设置为“计时开始”用来启动计时器，当计时开始后标题变为“停止”用来关闭计时器，同时以消息框显示一共运行几小时几分几秒。

Dim n As Integer

Private Sub Command1_Click()

Dim hh As Integer, mm As Integer, ss As Integer If Command1.Caption = \计时开始\ Timer1.Enabled = True n = 0

Command1.Caption = \停止\ Else

Timer1.Enabled = False hh = n \\ 3600

mm = (n Mod 3600) \\ 60 ss = n Mod 60

MsgBox \一共运行了\小时\分\秒\ Command1.Caption = \计时开始\ Label1.Caption = \ End If End Sub

Private Sub Timer1_Timer() n = n + 1

Label1.Caption = n End Sub

30、

利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，运行界面如下图所示。单击“开始”按钮，秒表开始计时，单击“结束”按钮，秒表结束计时，并在标签框显示运行时间，如“运行了0小时2分10秒”。

17

VB后半学期练习题

Dim x As Long

Dim h As Integer, m As Integer, s As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click() Timer1.Enabled = False

Label1.Caption = \运行了\小时\分\秒\End Sub

Private Sub Form_Load()

Form1.Caption = \动态秒表（小时：分：秒）\ Command1.Caption = \开始[&S]\ Command2.Caption = \结束[&E]\ Label1.Alignment = 2 '居中对齐 Label1.Caption = \ Timer1.Interval = 1000 Timer1.Enabled = False x = 0 End Sub

Private Sub Timer1_Timer() x = x + 1 h = x \\ 3600

m = (x Mod 3600) \\ 60 s = x Mod 60

Label1.Caption = Str(h) + \End Sub 31、 设计一个“字幕升起”程序，运行界面如下图所示。具体要求如下：

（1）将标签（Label1）的标题设为“欢迎使用VB”，字体设为“楷体”，大小为“三号”。

（2）单击“开始”按钮，标签文字在定时器的控制下自动从下向上移动，移动距离为每个时间间隔100缇，当标签移动到窗体外时，再从下面进入，同时“开始”按钮变为“停止”按钮。单击“停止”按钮，标签文字停止移动，同时“停止”按钮变为“开始”按钮。

（3）定时器的时间间隔由滚动条决定，范围为0.1秒~1秒。默认值为0.3秒。

Private Sub Form_Load() Timer1.Enabled = False VScroll1.Value = 300 End Sub

Private Sub Command1_Click()

If Command1.Caption = \开始\ Timer1.Enabled = True

Command1.Caption = \停止\ Else

Timer1.Enabled = False Command1.Caption = \开始\ End If

18

VB后半学期练习题

End Sub

Private Sub VScroll1_Change()

Timer1.Interval = VScroll1.Value End Sub

Private Sub VScroll1_Scroll() Call VScroll1_Change End Sub

Private Sub Timer1_Timer()

Label1.Top = Label1.Top - 100 If Label1.Top < 0 Then

Label1.Top = Form1.ScaleHeight End If End Sub 32、

（1）参照运行时界面完成界面设计。（2）滚动条的取值范围均为0-255。（3）在框架内的右边还有文本框控件。（4）拖动三个滚动条的滚动框来选择红、绿、兰三原色的配色取值，并通过文本框的背景色动态显示调色效果。（5）单击“应用“按钮（COMMAND1），将调配好的颜色应用为标签LABEL2的文字颜色。

Private Sub Command1_Click()

Label4.ForeColor = Text1.BackColor End Sub

Private Sub HScroll1_Change(Index As Integer)

Text1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub

Private Sub HScroll1_Scroll(Index As Integer) Call HScroll1_Change(Index) End Sub

33、

（1）参照运行时界面完成界面设计。（2）窗体的上边有一个文本框Text1，设置为最多接受10个字符；Font宋体、粗体、三号；文字颜色兰色。（3）用命令按钮数组Command1（0）~Command1（9）构成数字键，数字键标题正好命令按钮数组的下标一致。单击数字键按钮，将拨号的内容显示在文本框中。（4）单击“重拨”按钮（Command2），再现原来的拨号过程；（提示：再现过程由定时器实现）（5）定时器Timer1的时间间隔为0.5秒。

Dim s As String, i As Integer Private Sub Form_Load() Timer1.Enabled = False Text1.Text = \

19

VB后半学期练习题

End Sub

Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text & Index End Sub

Private Sub Command2_Click() Timer1.Enabled = True s = Text1.Text Text1.Text = \End Sub

Private Sub Timer1_Timer() i = i + 1

Text1.Text = Text1.Text & Mid(s, i, 1) If i > Len(s) Then

Timer1.Enabled = False i = 0 s = \End If End Sub

34、

（1）参照运行时界面完成界面设计。（2）在窗体上创建一个Label2的控件数组，数组长度为6，用于显示动画的图像“--->”。（3）在窗体上放置一个timer控件，用它来控制Label2上的图像位置的变化。（4）单击“开始”按钮时label2上的图像开始移动，单击“结束”按钮图像停止移动，设置每一秒移动一个箭头。

Private Sub Form_Load() Dim i As Integer For i = 0 To 5

Label2(i).Visible = False Next i

Timer1.Enabled = False End Sub

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

35、 设计一个“霓虹灯”程序，运行界面如下图所示。具体要求如下：

（1）在窗体上创建一个Label1控件数组，数组长度为7，分别用于显示“V”、“B”、“编”、“程”、“俱”、“乐”、“部”。

（2）在窗体上放置一个Timer控件，用它来控制Label1上的文字依次自动出现，时间间隔为1秒。

Private Sub Timer1_Timer() Static k As Integer For i = 0 To 5

Label2(i).Visible = False Next i

Label2(k).Visible = True k = k + 1 If k > 5 Then k = 0 End If End Sub

Dim k as Integer

……

20

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