1、在窗体上放置一个命令按钮，命名为CmdMaxSize. 2、取消窗体（Form）的最大化和最小化按钮
3、当单击CmdMaxSize按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。 4、同时可能使用热键Alt+L和Alt+B实现窗口放大或还原。
5、当窗体大小改变后，总是让CmdMaxSize按钮位于窗口的中央。 6、界面及功能设计请参考cx01.exe文件。
程序设计01题解：
一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Command1 属性 Caption Caption 属性值 Form1 最大化(&L) 备注 二、根据题意，对命令按钮Command1的Click事件编写如下事件过程代码： Private Sub Command1_Click()
If Command1.Caption = \"最大化(&L)\" Then Form1.WindowState = 2
Command1.Caption = \"还原(&B)\" Else
Form1.WindowState = 0
Command1.Caption = \"最大化(&L)\" End If
Command1.Left = (Form1.Width - Command1.Width) / 2 Command1.Top = (Form1.Height - Command1.Height) / 2 End Sub
程序设计02
1、窗体上有三个文体框，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显示在下面一个文本框中。
2、最下面一个文本框不能直接输入。
3、单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。 4、界面及功能设计请参考cx02.exe文件。
程序设计02题解：
一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Text1 Text2 属性 text text 属性值 空 空 备注 Text3 Label1 Label2 Label3 Command1 Command2 text Enabled Caption Caption Caption Caption Caption 空 False 商品单价： 商品数量： 应付款： 清除 计算 二、根据题意，对命令按钮Command1的Click事件和Command2的Click事件编写如下事件过程代码：
Private Sub Command1_Click() Text1.Text = \"\" Text1.SetFocus Text2.Text = \"\" Text3.Text = \"\" End Sub
Private Sub Command2_Click() Dim a, b, sum As Integer Text3.Enabled = True a = Val(Text1.Text) b = Val(Text2.Text) sum = a * b
Text3.Text = sum End Sub
程序设计03
1、按照Cx.exe所示在窗体上放置按钮和控件。
2、当单击“确定”按钮后，首先比较“用户名”和“原始密码”是否一致，若一致且都为“admin”，则继续执行步骤4；否则弹出消息框，提示用户出错，并让用户重新输入。 3、比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。 4、所有消息框按Cx.exe所示设计。
5、当单击“取消”按钮时，程序终止执行。 6、当按“Tab”键时，保证按照“用户名”、“原密码”、“新密码（N）”、“新密码（S）”、“确定”按钮和“取消”按钮顺序访问各控件。 7、界面及功能设计请参考cx03.exe文件。
程序设计03题解：
一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Text1 属性 text TabIndex 属性值 0 备注 Text2 text PassWordChar TabIndex text * 1 * 2 * 3 用户名 原密码 新密码 新密码 确定 4 取消 5 Text3 Text4 PassWordChar TabIndex text PassWordChar TabIndex Label1 Label2 Label3 Label4 Command1 Command2 Caption Caption Caption Caption Caption TabIndex Caption TabIndex 二、根据题意，对命令按钮Command1的Click事件和Command2的Click事件编写如下事件过程代码：
Private Sub Command1_Click()
If Text1.Text = \"admin\" And Text2.Text = \"admin\" Then If Text3.Text = Text4.Text Then
B=MsgBox (\"密码修改成功!\”修改密码”) Else
B=MsgBox(\"新密码有误，请重试\“修改密码”) Text3.Text = \"\" Text4.Text = \"\"
End If Else
B=MsgBox( \"用户名或密码无效，请重试！\“修改密码”) Text1.Text = \"\" Text2.Text = \"\" End If End Sub
Private Sub Command2_Click() end End Sub
程序设计04
1、在窗体上放置4个单选按钮，分别用于显示星期、年份、月份和日期。 2、在窗台上放置一个文本框，选中单选按钮时，显示相应的信息。 3、在窗体上放置一个命令按钮，单击按钮时退出应用程序。
4、界面及功能设计请参考cx04.exe 文件。
程序设计04题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Option1 Option2 Option3 Option4 Text1 Command1 属性 Caption Caption Caption Caption text Caption 属性值 显示星期几 显示年份 显示月份 显示日期 结束 备注 二、根据题意，对命令按钮Command1的Click事件编写如下事件过程代码： Private Sub Command1_Click() End End Sub
Private Sub Option1_Click()
Text1.Text = \"今天是星期\" & Str(Weekday(Date)) End Sub
Private Sub Option2_Click()
Text1.Text = \"今天是\" & Str(Year(Date)) &\"年\" End Sub
Private Sub Option3_Click()
Text1.Text = \"今天是\" & Str(Month(Date)) &\"月\" End Sub
Private Sub Option4_Click()
Text1.Text = \"今天是\" & Str(Day(Date)) &\"号\" End Sub
程序设计05
1、单击“坐标系”按钮，将图片框的坐标系统设置为原点在中央，x轴[-10,10]，y 轴[-10,10]，并画出该坐标系统；
2、单击“扇形”按钮,在图片框中画一个圆心在原点，半径为5,圆周为红色，线宽为2，内部为绿色，起始角为π/6，终止角为5π/6的扇形； 3、界面及功能设计请参考cx05.exe文件。
程序设计05题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。
控件名称 Form1 Command1 Command2 Command3 属性 Caption Caption Caption Caption 属性值 作图 坐标系 扇形 结束 备注 二、根据题意，对命令按钮的Click事件编写如下事件过程代码：
注：因本题单位不明确，故对x轴、y轴和圆半径乘以100后按默认单位处理 Const PI = 3.1415926
Private Sub Command1_Click()
Picture1.Scale (-10, 10)-(10, -10) Picture1.Line (-10, 0)-(10, 0) Picture1.Line (0, -10)-(0, 10) Picture1.CurrentX = 0 Picture1.CurrentY = 0 Picture1.Print \"(0,0)\" End Sub
Private Sub Command2_Click() Picture1.FillStyle = 0
Picture1.FillColor = vbGreen Picture1.DrawWidth = 2
Picture1.Circle (0, 0), 5, vbRed, -PI / 6, -5 * PI / 6 End Sub
Private Sub Command3_Click() End End Sub
程序设计06
1、按照cx06.exe所示在窗体上放置按钮和控件。
2、在输入或修改单科成绩的同时计算平均分，即在“高数”、“英语”和“计算机”文本框内容发生改变时，就要立即重新计算平均分，并将计算结果在平均成绩文本框中显示。 3、“平均成绩”文本框不允许编辑，即不能手工修改。
4、各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。
5、界面及功能设计请参考cx06.exe文件。
程序设计06题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Label1 Label2 属性 Caption Caption 属性值 高数 英语 备注 Label3 Label4 Text1 Text2 Text3 Text4 Caption Caption Text Text Text Locked 计算机 平均成绩 True 二、根据题意，对文本text1，text2，text3的Change事件编写如下事件过程代码： Private Sub Form_Load() Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\" Text4.Text = \"\" End Sub
Private Sub Text2_Change() If Val(Text2.Text) > 0 Then
Text4.Text = Trim(Str((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3)) End If End Sub
Private Sub Text3_Change() If Val(Text3.Text) > 0 Then
Text4.Text = Trim(Str((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3)) End If End Sub
Private Sub Text1_Change() If Val(Text1.Text) > 0 Then
Text4.Text = Trim(Str((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3)) End If End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc(\"9\") Or KeyAscii < Asc(\"0\") Then MsgBox \"不能输入非数字字符\" KeyAscii = 0 End If End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc(\"9\") Or KeyAscii < Asc(\"0\") Then MsgBox \"不能输入非数字字符\" KeyAscii = 0 End If End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc(\"9\") Or KeyAscii < Asc(\"0\") Then MsgBox \"不能输入非数字字符\" KeyAscii = 0 End If End Sub
程序设计07
1、窗体上三个文本框，上面两个用输入加数，单击“=”按钮，将两个数的和显示在下面一个文本框中。
2、三个文本框的对齐方式均为右对齐，设置相关属性使得下面一个文本框不能进行编辑操作。
3、设置相关属性使得上面两个文本框均不接受非数字键。
4、单击“清空”按钮，三个文本框内容被清空，同时第一个文本框得焦点。 5、界面及功能设计请参考cx07.exe文件。
程序设计07题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Label1 Command1 Command2 Text1、Text2、Text3 Text3 属性 Caption Caption Caption Caption Caption Alignment Locked 属性值 加法器 + = 清空 清空 1---Right Justify True 备注 二、根据题意，对各命令按钮的Click事件和各文本框的Change事件编写如下事件过程代码：
Private Sub Command1_Click()
Text3.Text = Trim(Str(Val(Text1.Text) + Val(Text2.Text))) End Sub
Private Sub Command2_Click() Text3.Text = \"\" Text2.Text = \"\" Text1.Text = \"\" Text1.SetFocus End Sub
Private Sub Form_Load() Text3.Locked = True End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc(\"0\") Or KeyAscii > Asc(9) Then KeyAscii = 0 End If End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc(\"0\") Or KeyAscii > Asc(9) Then KeyAscii = 0 End If End Sub
程序设计08
1、左边一个简单组合框，对文本框的字体进行设置； 2、右边一个简单组合框，对文本框的文字大小进行设置； 3、文本框中文字为“心想事成”
4、界面及功能设计请参考cx08.exe文件。
程序设计08题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Text1 Combo1 Combo2 属性 caption MinButton MaxButton Text Style Text Style Text 属性值 字体设置 False False 心想事称 1-simple combo 1-simple combo 备注 窗体中各控件的位置按样例画好 二、根题意，编写如下事件过程代码： Private Sub Form_Load() combo1.AddItem \"宋体\" combo1.AddItem \"黑体\"
combo1.AddItem \"楷体_GB2312\" combo2.AddItem 8 combo2.AddItem 9 combo2.AddItem 10 combo2.AddItem 11
combo2.AddItem 12 combo2.AddItem 14 combo2.AddItem 16 End Sub
Private Sub combo1_Click()
Text1.FontName = Combo1.Text End Sub
Private Sub combo1_Click()
Text1.FontSize = Val(Combo2.Text) End Sub
程序设计09
1、单击“添加”按钮，将本文框中的内容加到列表框中的第一项，如果文本框有内容,则给出提示“没有内容，不予贴加”
2、单击“删除”按钮，将选红表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
3、界面及功能设计请参考cx09.exe文件
程序设计09题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Text1 List1 Command1 Command2 属性 caption MinButton MaxButton Text Caption caption 属性值 添加和删除 False False 添加 删除 备注 窗体中各控件的位置按样例画好 二、根题意，编写如下事件过程代码： Private Sub Command1_Click() If Text1.Text = \"\" Then
MsgBox (\"没有内容，不予添加\") Else
List1.AddItem Text1.Text, 0 End If End Sub
Private Sub Command2_Click() If List1.ListIndex = -1 Then
MsgBox (\"请选择输出的项目\")
Else
List1.RemoveItem List1.ListIndex End If End Sub
Private Sub Form_Load() List1.AddItem \"Word\" List1.AddItem \"Excel\"
List1.AddItem \"PowerPoint\" List1.AddItem \"Outlook\" End Sub
程序设计10
1、在窗体上放置两个列表框控件，在它的Iist中输入一些内容。
2、当单击“ <”按钮时，把Iist2中的一项放到list1中，并且在list2中删除该项。 3、当单击“ <<”按钮时，把list1中，并且清空list2。
4、当单击“>”按钮时，把list2中选中的一项放到list2中，并且在list1中，并且在list1中删除该项。
5、当单击“>>”按钮时，把list1中所有的项放到list2中，并且清空list1。 6、当单击“结素“按钮时，退出应用程序。 7、界 面及功能设计请参考cx10.exe文件。
程序设计10题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 List1 List2 Command1 Command2 Command3 Command4 Command5 属性 list list caption caption caption caption caption 属性值 111,222 333,444 > >> << < 结束 备注 增加列表项 增加列表项 二、根据题意，编写如下事件过程代码： Private Sub Command1_Click() If List1.ListIndex = -1 Then
MsgBox \"请选择一列表项\" Else
List2.AddItem List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex End If End Sub
Private Sub Command2_Click() While List1.ListCount > 0
List2.AddItem List1.List(0) List1.RemoveItem 0 Wend End Sub
Private Sub Command3_Click() While List2.ListCount > 0
List1.AddItem List2.List(0) List2.RemoveItem 0 Wend End Sub
Private Sub Command4_Click() If List2.ListIndex = -1 Then
MsgBox \"请选择一列表项\" Else
List1.AddItem List2.List(List2.ListIndex) List2.RemoveItem List2.ListIndex
End If End Sub
Private Sub Command5_Click() End End Sub
Private Sub Form_Load() List1.AddItem \"111\" List1.AddItem \"222\" List2.AddItem \"333\" List2.AddItem \"444\" End Sub
程序设计11
1、窗体上有二个CheckBox，当这两个选项未被选定时，它们所在框架的其它控件不能使用。 2、如果单击“确定”按钮，则在按钮下面的标签中显示用户所选择的信息。 3、界面及功能设计请参考cx11.exe文件。
程序设计11题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 属性值 备注 Form1 Frame1 Label1 combo1 Label2 Text1 Frame2 Option1 Option2 Command1 Caption Caption caption text list Caption text Caption Caption Caption Caption Form1 计算机 品牌： 联想 联想，戴尔，正方 数量： 操作系统 Windows2000 Windows98 确定 二、根据题意，对命令按钮Command1的Click事件、复选框check的click事件和窗体的load事件编写如下事件过程代码： Private Sub Check1_Click() If Check1.Value = 1 Then Combo1.Enabled = True Text1.Enabled = True Else
Combo1.Enabled = False Text1.Enabled = False End If End Sub
Private Sub Check2_Click() If Check2.Value = 1 Then Option1.Enabled = True Option2.Enabled = True Else
Option1.Enabled = False Option2.Enabled = False End If End Sub
Private Sub Command1_Click() If Check1.Value = 1 Then
Label3.Caption = Combo1.Text & Chr(13) & Chr(10) & Text1.Text & Chr(13) & Chr(10) End If
If Check2.Value = 1 Then
If Option1.Value Then
Label3.Caption = Label3.Caption & Option1.Caption Else
Label3.Caption = Label3.Caption & Option2.Caption End If End If
End Sub
Private Sub Form_Load() Combo1.Enabled = False Text1.Enabled = False Option1.Enabled = False Option2.Enabled = False End Sub
程序设计12
1、按照cx12.exe所示在窗体上放置按钮和控件。
2、在“请输入”文本框中输入一个数字后，单击判断，可在“结果为显示判断结果。 3、若输入的不是数字，则弹出消息框，提示信息是“输入的不是数字，无法计算”。 4、界面及功能设计请参考cx12.exe文件。
程序设计13
1、可以在查找文本框中输入查找文字； 2、可以在替换为文本框中输入替换文字；
3、单击“替换”按钮，对文本框Text1中与查找内容匹配的文字进行替换操作； 4、文本框Text1可以多行显示文字；
5、界面及功能设计请参考cx13.exe文件。
程序设计12题解：
一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Text1 Label1 Label2 Label3 Command1 属性 text Caption Caption Caption Caption 属性值 请输入： 结果为： 判断 备注 二、根据题意，对命令按钮Command1的Click事件和Text1的KeyPress事件编写如下事件过程代码：
Private Sub Command1_Click()
Dim n As Integer, k As Integer, L As Integer, c As String, s As String '判断文本框中的内容是否为数字 s = Trim(Text1.Text) L = Len(s) For k = 1 To L c = Mid(s, k, 1)
If c > \"9\" Or c < \"0\" Then Exit For Next k
If k > L Then '是数字 n = Val(s)
For k = 2 To Int(Sqr(n))
If n Mod k = 0 Then Exit For Next k
If k > Int(Sqr(n)) Then
Label2.Caption = \"结果为：\" + Str(n) + \"是质数!\" Else
Label2.Caption = \"结果为：\" + Str(n) + \"不是质数!\" End If Else
MsgBox \"输入的不是数字，无法计算\" End If End Sub
程序设计13题解：
一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Label1 Label2 Command1 属性 Caption Caption Caption 属性值 查找： 替换为： 替换 备注 二、根据题意，对命令按钮Command1的Click事件编写如下事件过程代码： Private Sub Command1_Click() Dim fs As String Dim fL As Integer Dim rs As String Dim s As String Dim L As Integer Dim i As Integer fs = Text2.Text fL = Len(fs) rs = Text3.Text s = Text1.Text L = Len(s)
For i = L - f + 1 To 1 Step -1 If Mid(s, i, fL) = fs Then Text1.SetFocus
Text1.SelStart = i - 1 Text1.SelLength = fL Text1.SelText = rs End If Next i
End Sub
程序设计14
1、在窗体上创建一个label1控件用于显示程序名“简单动画”
2、在窗体上创建一个label2的控件数组，数组长度为6，用于显示动画图象“--” 3、在窗体上放置timer控件，用它来控制label2上的图象位置的变化。
4、单击“开始”按钮时label2上的图象开始移动，单击“结束”按钮图象停止移动，设置每一秒移动一个箭头。
5、界面及功能设置请参考cx14.exe文件。
程序设计14题解:
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Label1 Timer1 Command1 Command2 属性 Caption intetervel Caption Caption 属性值 简单动画 ----> 1000 演示 停止 备注 Label2（0，1，2，3，4，5） Caption 二、根据题意，对命令按钮的Click事件和计时器的Timer事件编写如下事件过程代码： Dim i As Integer
Private Sub Command1_Click()
If Command1.Caption = \"演示\" Then Timer1.Enabled = True End If End Sub
Private Sub Command2_Click()
If Command2.Caption = \"结束\" Then Timer1.Enabled = False End If End Sub
Private Sub Form_Load()
Timer1.Enabled = False label2(1) .Visible= false label2(2) .Visible= false label2(3) .Visible= false label2(4) .Visible= false label2(5) .Visible= false End Sub
Private Sub Timer1_Timer()
If i = 5 Then i = 0
Label2(i).Visible = True Label2(5).Visible = False
Else
i = i + 1
Label2(i).Visible = True Label2(i - 1).Visible = False
End If End Sub
程序设计15
1、单击“开始”按扭,标签“祝您考试成功”文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇,当标签移动到窗体外时,再从窗体的左边进入。同时“开始”按扭变为“停止”按扭。
2、单击“停止”按扭，标签“祝您考试成功”文字停止滚动。同时“停止”按扭变为“开始”按扭。
3、要求程序开始运行时，标签文字的字体为“宋体”、字形为“粗体”、大小为“二号”。 4、定时器的时间间隔为０.１秒。
5、界面及功能设计请参考cx15.exe文件。
程序设计15题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Label1 Timer1 Command1 属性 Caption MaxButton MinButton Caption Front ForeColor Interval Caption 属性值 字幕滚动 False False 祝您考试成功 宋体、二号、粗体 选红色 100 开始 备注 二、根据题意，对命令按钮的单击事件和计时器的Timer事件编写如下事件过程代码： Private Sub Command1_Click()
If Command1.Caption = \"开始\" Then Timer1.Enabled = True Else
Command1.Caption = \"开始\" Timer1.Enabled = False End If End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100 If Label1.Left > Form1.Width Then Command1.Caption = \"停止\" Label1.Left = -Label1.Width End If End Sub
程序设计16
1、单击“开始”按钮，标签“欢迎光临”文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。
2、单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮变为“开始”按钮。
3、要求标签文字在放大时保持水平居中。 4、定时器的时间间隔为0.2秒。
5、界面及功能设计请参考cx16.exe文件。
程序设计16题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Label1 Command1 Timer1 属性 Caption Caption AlignMent Caption Interval 属性值 字幕放大 欢迎光临 2-Center 开始 200 备注 二、根据题意，对命令按钮的Click事件和计时器的Timer事件编写如下事件过程代码：
Private Sub Command1_Click()
If Command1.Caption = \"开始\" Then Command1.Caption = \"停止\" Timer1.Enabled = True
Else
Timer1.Enabled = False
Command1.Caption = \"开始\"
End If End Sub
Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 2 End Sub
程序设计17
1、水平滚动条的取值范围[12，72]。改变滚动条可以控制标签文字的大小，并同时在文本框中显示标签的字号；
2、标签文字为“心想事成”，要求在改变字号时标签保持在窗体中水平居中；
3、文本框最多接受两个字符，当输入一个∈[12，72]的两位整数后，也可以改变标签文字的大小，并同时调整水平滚动条的滚动框位置； 4、界面及功能设计请参考cx17.exe文件。
程序设计17题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Label1 Text1 Hscroll1 属性 Caption MaxButton MinButton AutoSize Caption Text maxlength Min Max 属性值 改变字号 False False True 心想事成 2 12 72 备注 二、根据题意，对命令文本框Text1的Change事件和水平滚动条数组Hscroll1的Change事件编写如下事件过程代码： Private Sub Form_Load()
Label1.Left = Form1.Width / 2 - Label1.Width / 2 Text1.Text = HScroll1.Value End Sub
Private Sub HScroll1_Change()
Label1.FontSize = HScroll1.Value Text1.Text = HScroll1.Value
Label1.Left = Form1.Width / 2 - Label1.Width / 2 End Sub
Private Sub HScroll1_Scroll() HScroll1_Change End Sub
Private Sub Text1_Change() If Len(Text1.Text) = 2 Then
If Val(Text1.Text) >= 12 And Val(Text1.Text) <= 72 Then HScroll1.Value = Val(Text1.Text) label1.fontsize=val(text1.text)
Else
Text1.SetFocus Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End If End If End Sub
程序设计18
1、在窗体上放置一个水平滚动条、一个标签框和一个命令按钮。
2、单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。 3、界面及功能设计请参考cx18.exe文件。
程序设计18题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Label1 HScroll1 Command1 属性 Caption Caption 属性值 欢迎您的使用 结束 备注 水平滚动条 二、根据题意，对命令按钮Command1的Click事件和水平滚动条数组Hscroll1的Change事件编写如下事件过程代码： Private Sub Command1_Click() End End Sub
Private Sub Form_Load() HScroll1.Min = 0
HScroll1.Max =Label1.Width End Sub
Private Sub HScroll1_Change() Label1.Left = HScroll1.Value End Sub
Private Sub HScroll1_Scroll() HScroll1_Change End Sub
程序设计19
1、窗体上引入一个红色的圆形形状控体，圆的直径为3400Twips。
2、水平滚动条的最大值与圆的直径相同，初始值为最大值，SmallChange和LargeChange均为100Twips.
3、改变条的值可以控制圆形的直径，同时在标签Labe12中动态显示圆形的直径。 4、要求圆形的直径在变化时要保持圆形的位置不变。 5、界面及功能设计请参考cx19.exe文件。
程序设计19题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Shape1 Hscroll1 Label1 Label2 属性 Caption MinButton MaxButton fillcolor bordercolor fillstyle height Width shape Left top largechange Smallchange Value Max Caption Caption 属性值 改变大小 False False &H000000FF& &H000000FF& 0-solid 3400 3400 3-circle 600 100 100 100 3400 3400 圆直径为： 备注 窗体中各控件的位置按样例画好 二、根据题意，编写如下事件过程代码： Private Sub HScroll1_Change() Shape1.Height = HScroll1.Value Shape1.Width = HScroll1.Value
Shape1.Left = (Form1.Width - Shape1.Width) / 2
Shape1.Top = (Form1.Height - Shape1.Height) / 2 - 1000 End Sub
Private Sub HScroll1_Scroll() Call HScroll1_Change End Sub
程序设计20
1、窗体上放置两个文本框，分别用于输入身高和体重。
2、设置相关属性使得两个文本框文字对起方式均为右对起，最多接受3个字符，不接受数字键。
3、单击“健康状况”按纽，根据计算公式分别将提示信息显示在Labe15中。
计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。
4、界面及功能设计请参考cx20.exe文件。
程序设计20题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Label1 Label2 Label3 Label4 Label5 Command1 属性 Caption Caption Caption Caption Caption Caption 属性值 健康称 身高: 体重: cm kg 健康状况 备注 字体大小为3号 字体大小为3号 字体大小为3号 字体大小为3号 二、根据题意，对标签text1和text2的KeyPress事件和命令按钮Command1的Click事件编写如下事件过程代码： Private Sub Command1_Click() Dim m As Integer m = Text1.Text - 105
If Text2.Text > m * 1.1 Then
Label5.Caption = \"偏胖,注意节食\" ElseIf Text2.Text < m * 0.9 Then Label5.Caption = \"偏瘦,注意营养\" Else
Label5.Caption = \"正常,继续保持\" End If End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < asc(“0”) keyAscii > asc(“9”) Then KeyAscii = 0 End If End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub
程序设计21题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Label1 Label2 Text1 Timer1 Timer2 属性 Caption MaxButton MinButton Caption Font Alignment BorderStyle BackColor Caption Text Interval Interval 属性值 电子钟 False False 清空 宋体、粗体、二号 2---Center 1---FixedSingle 白色 闹钟时间 清空 1000 500 备注 二、根据题意，对窗体的Load事件、文本框Text1的KeyPress事件和定时器的Timer事件编写如下事件过程代码： „在窗体层定义
Private Sub Form_Load()
Label1.Caption = Format(Time, \"hh:mm:ss\") Timer2.Enabled = False End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text1.Enabled = False Timer2.Enabled = True End If End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, \"hh:mm:ss\") End Sub
Private Sub Timer2_Timer()
If Text1.Text <= Label1.Caption Then
If (Label1.BackColor = vbWhite) Then Label1.BackColor = vbRed Else
Label1.BackColor = vbWhite End If End If
End Sub
程序设计21
1、设计2个定时器，一个用于控制时间显示，时间间隔为一秒；一个用于判断闹钟时间，时间间隔为0.5秒，并且在未输入闹钟时间前不可使用。
2、标签Labell用于显示时间，宋体，粗体，斜体，二号，背景白色，字体居中对齐，固定边框。
3、在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器，如果时间超过闹钟时间，则标签的背景色用红白两色交替变换。 4、界面及功能设计请参考cx21.exe文件。
程序设计22
1、当在文本框中输入密码“1234567”，并按回车后，显示标签labe12为“欢迎光临！”。 如果输入的密码与“1234567”不吻合，显示标签Labe12为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；
如果第二次输入的密码仍然与“1234567”不吻合，显示标签Labe12为“非法用户，请退出程序！”，文本框就不能使用了。
2、文本框中输入的字符显示为*，并且最多可以接受7个字符。
3、标签控件Labe12的文字对齐方式为居中对齐，文字颜色红色，宋体、常规、三号；标签的大小随字体自动调整，一开始不可见。 4、界面及功能设计请参考cx22.exe
程序设计22题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Label1 Label2 Text1 属性 Caption Caption Caption AutoSize Front ForeColor Text PassWordChar MaxLength 属性值 密码检验 备注 输入密码后按回车 （提示：密码1234567） 初始清空 True 宋体、三号、常规 选红色 初始清空 * 7 二、根据题意，对窗体的Load事件和文本框Text1的KeyPress事件编写如下事件过程代码： Private Sub Form_Load() Label2.Enabled = False End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) Static n As Integer If KeyAscii = 13 Then Label2.Enabled = True
If Text1.Text = \"1234567\" Then Label2.Caption = \"欢迎光临！\" Else
Label2.Caption = \"密码不符，请再输入一遍！\" Text1.Text = \"\" n = n + 1 End If
If n = 2 Then
Label2.Caption = \"非法用户，请退出程序！\" Text1.Enabled = False End If End If End Sub
程序设计23
1、窗体上放置驱动器列表框、目录列表框和文件列表框三个控件，设置属性使得三个控件能够联动。
2、设置文件列表框只显示*.bap 和*.jpg类型的图片文件。
3、编写相关代码使得单击文件列表框上的图片文件名时，图片显示在图片框中 4、界面及功能设计请参考cx23.exe文件。
程序设计23题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Driver1 Dir1 File1 Picture1 属性 caption MinButton MaxButton 属性值 图片欣赏 False False 备注 窗体中各控件的位置按样例画好 二、根题意，编写如下事件过程代码： Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive End Sub
Private Sub File1_Click()
If Right(File1.Path, 1) = \"\\\" Then
f$ = Form1.File1.Path + Form1.File1.FileName Else
f$ = Form1.File1.Path + \"\\\" + Form1.File1.FileName End If
Picture1.Picture = LoadPicture(f$) End Sub
Private Sub Form_Load() Drive1.Drive = \"c:\\\"
File1.Pattern = \"*.bmp;*.jpg\" Dir1.Path = \"c:\\\" End Sub
程序设计24
1、文件列表框能过滤文本文件。
2、当单击某文本文件名后，在Textl显示文件名（包括路径），在Text2显示该文件内容。 3、当单击某文件文件名后，调用记事本程序对文件文件进行编辑。 4、界面及功能设计请参考cx24.exe文件。
程序设计24题解：
一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Text1 Text2 Label1 Driver1 Dir1 File1 属性 Text Text Caption Pattern 属性值 Text1 Text2 文件名 *.txt 备注 默认设置 默认设置 二、根据题意，编写如下事件过程代码： Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub
Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
Private Sub File1_Click() Dim f As String
If Right(File1.Path, 1) = \"\\\" Then
f = File1.Path + File1.FileName Else
f = File1.Path + \"\\\" + File1.FileName Text1.Text = f End If
Open f For Input As #1 Do Until EOF(1)
Line Input #1, nextline
Text2.Text = Text2.Text + nextline + Chr(13) + Chr(10) Loop Close #1 End Sub
Private Sub File1_DblClick()
Call Shell(\"c:\\winnt\\notepad.exe\End Sub
Private Sub Form_Load() Drive1.Drive = \"c:\" End Sub
程序设计25
1、窗体上引入一个通用对话框控件。 2、单击菜单“字体”，通用对话框，并对文本框字体进行修饰。 3、单击菜单“文字颜色”，通用对话框控件显示为颜色对话框，并对文体框文字颜色进行修饰。
4、单击菜单“背景颜色”，通用对话框控件显示为颜色对话框，并对文本框背景颜色进行修饰。
5、文本框设计为带垂直滚动条。
6、界面及功能设计请参考cx25.exe文件。
程序设计25题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 commondialog 属性 Caption MinButton MaxButton Caption 属性值 字体设置 False False 选择时间 备注 Text1 Multilane scrollbar text true 2-vertical 忆江南 最忆是杭州 在窗体上添加菜单，分别是 标题 字体 文字颜色 背景颜色 名称 Fontmenu Wcolormenu bcolormenu 二、根据题意，编写如下事件过程代码： Private Sub bcolormenu_Click() CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color End Sub
Private Sub fontmenu_Click() CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold
Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontItalic = CommonDialog1.FontItalic End Sub
Private Sub Form_Load()
CommonDialog1.FontName = \"宋体\" CommonDialog1.Flags = 2 End Sub
Private Sub wcolormenu_Click() CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color End Sub
程序设计26
1、设计4个命令按钮，分别实现“复制”、“剪切”、“粘贴”和“删除”功能； 2、文本框Text1可以多行显示文字；
3、界面及功能设计请参考cx26.exe文件。
程序设计26题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。
控件名称 Form1 Text1 Command1 Command2 Command3 Command4 属性 Caption Text MultiLine Caption Caption Caption Caption 属性值 编辑 Text1 True 复制 剪切 粘贴 删除 备注 程序代码 Private Sub Form_Load()
Clipboard.Clear End Sub
Private Sub Command1_Click()
Clipboard.SetText Text1.SelText Text1.SetFocus End Sub
Private Sub Command2_Click()
Clipboard.SetText Text1.SelText Text1.SelText = \"\" End Sub
Private Sub Command3_Click()
Text1.SelText = Clipboard.GetText Text1.SetFocus End Sub
Private Sub Command4_Click()
Text1.SelText = \"\" End Sub
程序设计27
1、在窗体上放置一个文本框控件数组，用于输入用户信息。
2、在文本框控件数组中输入相应信息后，点击“添加”后在组合框中会出现该项的姓名。 3、在组合框中选中某项，可以在文本框数组中显示该项的用户信息，点击“删除”，可以删除该项的所有信息。
4、界面及功能设计请参考cx27.exe文件。
程序设计27题解：
一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 属性值 备注 Form1 Combo1 Combo2 Combo3 Combo4 Text1（0） Text1（1） Text1（2） Text1（3） Label1 Label2 Label3 Label4 Command1 Command2 Caption text visible visible visible text text text text Caption Caption Caption Caption Caption Caption Form1 空 false false false 空 空 空 空 姓名 地址 邮编 电话 添加 删除 二、根据题意，对命令按钮Command1的Click事件和Command2的Click事件Combo1的Click事件编写如下事件过程代码： '在设置时，将combo2,combo3,combo4的Visible属性设置为False,分别用来保存地址、邮编、电话
Private Sub Combo1_Click() i = Combo1.ListIndex
Text1(0).Text = Combo1.List(i) Text1(1).Text = Combo2.List(i) Text1(2).Text = Combo3.List(i) Text1(3).Text = Combo4.List(i) End Sub
Private Sub Command1_Click() Combo1.AddItem Text1(0).Text Combo2.AddItem Text1(1).Text Combo3.AddItem Text1(2).Text Combo4.AddItem Text1(3).Text Text1(0).Text = \"\" Text1(1).Text = \"\" Text1(2).Text = \"\" Text1(3).Text = \"\" End Sub
Private Sub Command2_Click() Dim i As Integer
i = Combo1.ListIndex
If i >= 0 Then '当前表项被选中时删除数据 Combo1.RemoveItem i Combo2.RemoveItem i
Combo3.RemoveItem i Combo4.RemoveItem i Text1(0).Text = \"\" Text1(1).Text = \"\" Text1(2).Text = \"\" Text1(3).Text = \"\" End If End Sub
程序设计28
1、“菜单”框架中由复选框数组提供选择三种套餐，右边的文本框数组中可以输入数量； 2、要求文本框只能接受数字键；并且只有选取了相应的套餐后才可以进行输入， 3、单击“确定”按钮，统计点餐的金额，并用消息框显示出来； 4、界面及功能设计请参考cx28.exe文件。
程序设计28题解：
一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Check1（0） Check1（1） Check1（2） Frame1 Text1（0） Text1（1） Text1（2） Label1 Label2 Label3 Command1 属性 Caption MaxButton MinButton Caption Caption Caption Caption text Enabled text Enabled text Enabled Caption Caption Caption Caption 属性值 点餐 False False 儿童套餐13元 标准套餐18元 商务餐25元 菜单 空 False 空 False 空 False 份 份 份 确定 备注 二、根据题意，对命令按钮Command1的Click事件和Check1的Click事件Check2的Click事件Check3的Click事件编写如下事件过程代码： 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 End If End Sub
Private Sub Command1_Click() Dim TotalMoney As Integer Dim i As Integer TotalMoney = 0
If Check1(0).Value = 1 Then
TotalMoney = Val(Text1(0).Text) * 13 End If
If Check1(1).Value = 1 Then
TotalMoney = TotalMoney + Val(Text1(1).Text) * 18 End If
If Check1(2).Value = 1 Then
TotalMoney = TotalMoney + Val(Text1(2).Text) * 25 End If
MsgBox \"一共\" + Trim(Str(TotalMoney)) + \"元\" End Sub
程序设计29
1、窗体的右部是图片框，可以用鼠标左键进行绘图。 2、“选项”框中有两个单选钮控件，选择“细”时，绘图的线宽设置为1，选择“粗”时，绘图的线宽设置为5。 3、“选项”框中的“颜色”按钮打开通用对话框为颜色对话框，并设置绘图的颜色。 4、“选项”框架中的“清除”按钮用于清除图片框中的内容。 5、界面及功能设计请参考cx29.exe.文件。
程序设计29题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Frame1 Option1(0) Option1(1) Command1 Command2 Label1 属性 Caption MinButton MaxButton caption Caption Value Caption Caption Caption Caption 属性值 画板 False False 选项 细 true 粗 颜色 清除 绘图区 备注 窗体中各控件的位置按样例画好 二、根据题意，编写如下事件过程代码：
Dim startx As Single, starty As Single „在窗体层定义
Private Sub Command1_Click() CommonDialog1.ShowColor
Picture1.ForeColor = CommonDialog1.Color End Sub
Private Sub Command2_Click() Picture1.Cls End Sub
Private Sub Option1_Click(Index As Integer)
If Index = 0 Then Picture1.DrawWidth = 1 Else Picture1.DrawWidth = 5 End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then
Picture1.Line (startx, starty)-(X, Y) End If
startx = X: starty = Y End Sub
程序设计30
1、框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。 2、框架Frame2中有一个单选钮数组，可以选择宋体或楷体对标签中的文字进行修饰。 3、标签Labe11的文字内容为“Visual Basic程序设计”。宋体，常规，三号；文字对齐方式为居中。
4、界面及功能设计请参考cx30.exe文件。
程序设计30题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Frame1 Frame1 Check1(0) Check1(1) Option1(0) Option1(1) 属性 Caption MinButton MaxButton Caption Caption Caption Caption Caption Value Caption 属性值 字体设置 False False 字体样式 字体 粗体 斜体 宋体 true 楷体 备注 Label1 Font Alignment 常规、宋体、三号 2-center 二、根据题意，编写如下事件过程代码： Private Sub Check1_Click(Index As Integer)
If Check1(0).Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False If Check1(1).Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End Sub
Private Sub Option1_Click(Index As Integer) Select Case Index Case 0
Label1.Font.Name = \"宋体\" Case 1
Label1.Font.Name = \"楷体_gb2312\" End Select End Sub
程序设计31
1、单击“开始计时”按钮后,程序根据选择的时间开始倒计时，命令按钮变为不可使用。 2、倒计时过程是将剩余的时间显示在标签Labell中，直到0分0秒为止，改为显示“时间到！”：
3、框架“选择时间”内有一组单选钮控件数组，分别选择不同的时间值。只有选择时间后，命令按钮才可以使用。
4、界面及功能设计请参考cx31.exe文件。
程序设计31题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Frame1 Option1(0、1、2) Option1(0) Label1 Command1 Timer1 属性 Caption MinButton MaxButton Caption caption Value font Aligment Caption Interval enabled 属性值 倒计时 False False 选择时间 1分钟、5分钟、10分钟 True 宋体、粗体、三号 2---Center 计时开始 1000 false 备注 是数组，由三个垂直排列的单选按钮组成 二、根据题意，编写如下事件过程代码： Dim nSecond As Integer
Private Sub Command1_Click() If Option1(0).Value Then nSecond = 60
ElseIf Option1(1).Value Then nSecond = 300 Else
nSecond = 600 End If
nSecond = 60
Timer1.Enabled = True
Command1.Enabled = False Frame1.Enabled = False End Sub
Private Sub Timer1_Timer() nSecond = nSecond - 1
Label1.Caption = nSecond \\ 60 & \"分\" & (nSecond Mod 60) & \"秒\" If nSecond <= 0 Then Timer1.Enabled = False Command1.Enabled = True Frame1.Enabled = True End If End Sub
程序设计32
1、要求命令按钮数组构成数字键，单击数字按钮，将拨号的内容显示在文本框Text1中； 2、单击“重拨“按钮，再现原来的拨号过程：（提示：再现过程由定时器实现） 3、定时器的时间间隔为0.5秒；
4、文本框最多接受10个字符：宋体，粗体，三号，兰色号； 5、界面及功能设计请参考cx32.exe文件。
程序设计32题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 Text1 属性 Caption Text MaxLength Font 属性值 拨号盘 清空 10 宋体、粗体、三号 备注 Command（0） Command（1） „„ Command（9） Command2 Timer1 ForeColor Caption Caption Caption Caption Interval 兰色 0 1 9 重拨 500 命令按钮数组 二、根据题意，对命令按钮数组Command1和Command2的Click事件及Timer1控件的Timer事件编写如下事件过程代码： Dim NumStr As String Dim i As Integer
Private Sub Command1_Click(Index As Integer)
Text1.Text = text1.text & Command1(Index).Caption End Sub
Private Sub Command2_Click() Timer1.Interval = 500 NumStr = text1.text Text1.Text = \"\" i = 1 End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + Mid(NumStr, i, 1) i = i + 1
If i > Len(NumStr) Then Timer1.Interval = 0 End If End Sub
程序设计33
1、在窗体上放置一个“三原色配比与预览”的框架，框架内有三个水平滚动条构成的控件数组，滚动条的取值范围为0——255；还有一个长方形形状控件。
2、拖动滚动条的滚动框来选择红、绿、兰三原色的配色取值，配色通过形状控件的填充效果动态显示。
3、单击“应用”按钮，将调配好的颜色作为标签文字“坚持就是胜利！”的文字颜色。 4、标签文字“坚持就是胜利！”字体为“楷体GB2312”。大小“二号”，设置相关属性使得标签在窗体中水平居中并且标签的大小随显示内容自动调整。 5、界面及功能设计请参考cx33.exe文件。
程序设计33题解：
一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。
控件名称 Form1 Frame1 Hscroll1 Label1 Label2 Label3 Shape1 Command1 Label4 属性 Caption MinButton MaxButton Caption Min Max Caption Caption Caption FillStyle Caption Caption Aligment 属性值 调色板 False False 三原色配比与预览 0 255 红 绿 监 0---Solid 应用 坚持就是胜利！ 2---Center 备注 是数组，由三个水平滚动条组成。 字体：楷体GB2312 字号：二号 二、根据题意，对命令按钮Command1的Click事件和水平滚动条数组Hscroll1的Change事件编写如下事件过程代码：
Dim r As Integer, g As Integer, b As Integer Private Sub Form_Load() r = HScroll1(0).Value g = HScroll1(1).Value b = HScroll1(2).Value
Shape1.FillColor = RGB(r, g, b) Label4.ForeColor = RGB(r, g, b) End Sub
Private Sub HScroll1_Change(Index As Integer) r = HScroll1(0).Value g = HScroll1(1).Value b = HScroll1(2).Value
Shape1.FillColor = RGB(r, g, b) End Sub
Private Sub HScroll1_Scroll(Index As Integer) Call HScroll1_Change(Index) End Sub
Private Sub Command1_Click()
Label4.ForeColor = RGB(r, g, b) End Sub
程序设计34
1、程序启动后窗体正中央有一个直径为500Twips的红色圆球。
2、第一次单击菜单“启动”，圆球先向右上角方向运动，碰壁后改变方向。水平、垂直方向的移动速度均为100Twips/间隔。 3、单击菜单“停止”，圆球停止运动，再单击菜单“启动”，圆球继续运动。 4、定时器时间间隔为0.1秒。
5、界面及功能设计请参考cx34.exe文件。
程序设计34题解：
一、根据题目要求，在Form1窗体上画出各控件，并按下表对窗体和各控件设置属性值。 控件名称 Shape1 Timer1 属性 BackStyle BorderColor Shape Height Width Interval 属性值 1---Opaque 红色 3---Circle 500 500 100 备注 将Shape1放在窗体正中 二、根据题意，编写如下事件过程代码： Dim dx As Integer, dy As Integer Private Sub Form_Load() dy = 100 dx = 100
Timer1.Enabled = False End Sub
Private Sub qidong_Click() Timer1.Enabled = True End Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + dx Shape1.Top = Shape1.Top + dy
If Shape1.Left < 0 Or (Shape1.Left > Form1.ScaleWidth - Shape1.Width) Then dx = -dx End If
If Shape1.Top < 0 Or (Shape1.Top > Form1.ScaleHeight - Shape1.Height) Then dy = -dy End If End Sub
Private Sub tingzhi_Click() Timer1.Enabled = False End Sub
因篇幅问题不能全部显示，请点此查看更多更全内容