Private Sub Form_Load() Command2.Enabled = False End Sub
2．【程序说明】窗体上有两个命令按钮：Command1（显示）和Command2（退出）。下列程序运行时，“显示”按钮能响应，“退出”按钮不能响应；单击“显示”按钮后，在窗体上显示一个用字符“*”组成的5层的金字塔，同时“显示”按钮不能响应，“退出”按钮能响应。
Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 5 Print Spc(5 - i);
For j = （1） : Print \ Print Next i
Command1.Enabled = False （2） End Sub
Private Sub Command2_Click() End End Sub
Private Sub Form_Load() Command1.Enabled=True （3） End Sub
3．【程序说明】下列程序能在一定范围内找出所有素数，要求：文本框用来输入所要找的数的范围，且只能先在Text1（必须大于1）输入结束后才能在Text2（必须大于Text1中的数）中输入，按回车键表示输入结束。在Text2输入结束后，才能单击“Command1”（确定）命令按钮，并在窗体上输出该范围内的所有素数。
以上过程可重复。
Private Sub Form_Load()
Command1.Enabled = False: （1） End Sub
Private Sub Command1_Click()
Dim n As Integer, m As Integer, i As Integer, p As Integer n = Val(Text1.Text): m = Val(Text2.Text) For i = n To m （2）
Do While p< = Int(Sqr(i))
If i Mod p = 0 Then Exit Do Else p = p + 1 Loop
If p > Int(Sqr(i)) Then （3） Next i
Text1.Text = \
Text1.Enabled = True: Text2.Enabled = False Command1.Enabled = False End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If （4） Then Text1.Text = \ Else
Text2.Enabled = True: Text1.Enabled = False End If End If End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) If （5） Then
If Val(Text2.Text) <= Val(Text1.Text) Then Text2.Text = \ Else
Text2.Enabled = False Command1.Enabled = True End If End If End Sub
4．【程序说明】以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。 Private Sub cmdDel_Click() i = 0
Do While i< （1）
If List1.Selected(i) = True Then （2） Else
（3） End If Loop End Sub
5．【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。 各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后秒表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟和秒数）。
Dim x As Long
Private Sub Form_Load()
Timer1.Interval = 1000: Timer1.Enabled = False End Sub
Private Sub Command1_Click() Cls x = 0
（1） End Sub
Private Sub Command2_Click()
Dim h As Integer, m As Integer, s As Integer Timer1.Enabled = False h = （2） m = （3） s = x Mod 3600 Mod 60
Print \运行了\小时\分\秒\End Sub
Private Sub Timer1_Timer() （4） Label1.Caption = x End Sub
6．【程序说明】本题是利用计时器控件来实现文字的水平移动，要求：
（1）运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。
（2）文字移动时颜色不断产生随机变化。 Private Sub Form_Load() Form1.WindowState = 2 Timer1.Interval = 100 End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) （1） = Label1.Left + 150
If Label1.Left >= Form1.Width Then （2） End Sub
六、程序设计题
1．在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。
运行时，“Command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用Visual Basic！”，同时标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。
2．编程，查看所按键的ASCII码：在文本框控件内输入某个字符，用标签控件显示输入字符的ASCII码。
3．编程，建立1个文本框用于输入口令（显示为“*”，按回车键作为结束）、1个命令按钮（标题为“进入”）。运行时，“进入”按钮不能响应，直到输入的口令正确时才响应。输入口令时，有相应的提示信息。当单击“进入”按钮时，在窗体上显示“欢迎进入！”。
4．编程，窗体标题为“猜数游戏”。
基本要求：单击“出题”按钮则生成一个1～100间的随机整数；然后在文本框中输入若干数（以回车键结束），大于或小于随机数则给出提示信息，猜1个数超过10次不可再猜该数。
其他要求：根据猜数的次数给出评语；出题、猜数可重复进行；随机数产生后锁定“出题”按钮、激活文本框控件，猜数结束后锁定文本框控件、激活“出题”按钮。
5．编制一个演示文本操作的程序，界面如图10-3所示，要求各命令按钮为一个控件数组。 （1）程序刚运行时3个命令按钮均不能响应。
（2）当选择文本之后Label1显示响应的提示，“剪切”和“复制”按钮能够响应。 （3）单击“剪切”或“复制”按钮后，所有按钮中只有“粘贴”按钮能响应。 （4）单击“粘贴”按钮后，3个命令按钮都不能响应。
图10-3 程序设计题5的窗体界面
6．编程，运行时界面如图10-4所示，选中不同单选按钮时在文本框中显示不同的内容。
图10-4 程序设计题6的窗体界面
7．在上题的基础上，增加1个组合框选择日期的格式（年-月-日、月-日-年、日-月-年）。 8．编程，用户界面如图10-5所示（可先用Form_Load添加几个单词到列表框）。要求： （1）单击“添加单词”按钮，将Text1中的单词添加到列表框，并使Text1获得焦点，可直接输入另一个单词。
（2）单击“删除单词”按钮，删除列表框中被选中的列表项。 （3）单击“全部删除”按钮，删除列表框中的全部表项。 （4）单击“退出”按钮，结束该程序。
9．编制1个用于进制转换的应用程序，运行时的界面如图10-6所示。
图10-5 程序设计题8的界面设计 图10-6 程序设计题9的界面设计
10．设计一个字幕推出程序。程序界面如图10-7所示，标签的字号在定时器的控制下每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，定时器停止响应Timer事件。字号放大的速度由水平滚动条控制，部分程序已经设计如下：
Private Sub Form_Load()
Label1.Left = Width / 2 - Label1.Width / 2 Label1.AutoSize = True
HScroll1.Min = 1: HScroll1.Max = 1000
HScroll1.SmallChange = 10: HScroll1.LargeChange = 100 HScroll1.Value = 500: Timer1.Interval = 500 End Sub
请设计其他事件过程。