VB书本实验5答案

实验5 常用控件

一、实验目的和要求

了解常用控件数组的编程方法

二、实验内容（题目来自教材第五章 第六大题 7）．

程序7.(p150)

提示：

1） 号码按钮用命令按钮数组（0-9）；

2） 拨号、取消等按钮因为功能相差较大就不需要用数组控件；

3） 定义一个窗体级变量存放用户拨的号码，以便在定时器中使用。

过程设计：

Dim nums As String '存放用户拨的号码

Private Sub Form_Load()

Dim i As Integer

For i = 0 To 9

Command1(i).Caption = i

Command1(i).Enabled = False

Next i

Command2.Caption = "删除"

Command3.Caption = "拨号"

Command4.Caption = "取消"

Command5.Caption = "重拨"

Command6.Caption = "退出"

Label1.Caption = ""

Form1.Caption = "拨号程序"

Timer1.Interval = 1000

Timer1.Enabled = False

End Sub

Private Sub Command1_Click(Index As Integer) '拨号码

Label1.Caption = Label1.Caption & Command1(Index).Caption

End Sub

Private Sub Command2_Click() '删除(号码中最右边的一位)

If Label1.Caption <> "" Then

Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)

End If

End Sub

Private Sub Command3_Click() '拨号

For i = 0 To 9

Command1(i).Enabled = True

Next i

End Sub

Private Sub Command4_Click() '取消

Label1.Caption = ""

End Sub

Private Sub Command5_Click() '重拨

nums = Label1.Caption '保存号码

Label1.Caption = "" '清除原号码

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer() '重拨定时器

Static i As Integer

If Label1.Caption = nums Then

Timer1.Enabled = False

i = 0

Else

Label1.Caption = Label1.Caption & Mid(nums, i + 1, 1)

i = i + 1

End If

End Sub

Private Sub Command6_Click() '退出

End

End Sub

补充题

请参考考Design05.exe文件的运行结果，新建一个Design05.Vbp工程，完成“调色板”程序的设计（其中窗体文件请命名为Design05.frm）。

1）在窗体上放置一个“三原色配比与预览”的框架，框架内有三个水平滚动条构成的控件数组，滚动条的取值范围为0--255；还有一个长方形形状控件。

2）拖动滚动条的滚动框来选择红、绿、兰三原色的配色取值，配色通过形状控件的填充效果动态显示。

3）单击“应用”按钮，将调配好的颜色作为标签文字“坚持就是胜利！”的文字颜色。

4）标签文字“坚持就是胜利！”字体为“楷体_GB2312”，大小“二号”，设置相关属性使得标签在窗体中水平居中并且标签的大小随显示内容自动调整。

提示：建立HScroll1数组控件。

Private Sub Command1_Click()

Label4.ForeColor = Shape1.FillColor

End Sub

Private Sub Form_Load()

Label4.Left = (Form1.ScaleWidth - Label4.Width) \ 2

End Sub

Private Sub HScroll1_Change(Index As Integer)

Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)

End Sub

Private Sub HScroll1_Scroll(Index As Integer)

Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)

End Sub

实验提交说明：

1）在D）盘建立个人文件夹，名称为学号后三位与姓名，如001张三；

2）在个人文件夹中按实验题建子文件夹，如1；

3）建立的VB工程保存在各题的子文件夹中；

4）对个人文件夹压缩为rar或zip格式；

5）发邮件到xxl@主题：VB 001张三实验5。