Case else End select xt2 Text Text2 Text +s End Sub 5.分别选择”红”、”绿”、”蓝”复选框后,单击命令按钮 Command 1时,通过RGB函数调配的颜 色作为一个标签的背景色( Back Color Private Sub Command1_Click 0:g=0:b=0 If Check value =1 Then 复选 End if If Check2 value =I Then ”绿”复选框 g=255 f Check value =I Then ”蓝”复选框 End if abell.BackColor rGB(r, g, b) End Sub 6.程序代码如下 Private Sub Form Load LabClk. Caption =0 LabClk. Alignment =1 LabClk BorderStyle LabClk Fontsize 2 LabClk. FontName="黑体 TimClk. Interval =1000 End Sub Private Sub TimcClk TimerO LabClk. Caption=Val(LabClk Caption)+1 End Sub 7.在窗体上建立了两个文本框 TextI及Text2,两个命令按钮 Commandl及 Command2(“复制”及“粘 贴”)。在文本框Text1中输入文本“复制文本的演示程序” Private Sub Command1 Click “复制”按钮 Command2 Enabled True End Sub Private Sub Command2 Click “粘贴”按钮 Text2. Text Text seltext Commandl, Enabled False Command2 Enabled Fal End sub Private Sub Form Load Commandl Enabled= False Command2 Enabled False End Sub Private Sub Text1 MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Textl. SelLength >0 Then Commandl Enabled True End Sub 第5章《编程及上机调试》 和数为:1.21。程序代码如下 Private Sub Form Loado 0 For k =1 To l(4 Case Else s = "*" End Select Text2.Text = Text2.Text + s End Sub 5． 分别选择”红”、 ”绿”、 ”蓝”复选框后，单击命令按钮 Command1 时，通过 RGB 函数调配的颜 色作为一个标签的背景色（BackColor）。 Private Sub Command1_Click() r = 0: g = 0: b = 0 If Check1.Value = 1 Then '”红”复选框 r = 255 End If If Check2.Value = 1 Then '”绿”复选框 g = 255 End If If Check3.Value = 1 Then '”蓝”复选框 b = 255 End If Label1.BackColor = RGB(r, g, b) End Sub 6．程序代码如下： Private Sub Form_Load() LabClk.Caption = "0" LabClk.Alignment = 1 LabClk.BorderStyle = 1 LabClk.FontSize = 22 LabClk.FontName = "黑体" TimClk.Interval = 1000 End Sub Private Sub TimClk_Timer() LabClk.Caption = Val(LabClk.Caption) + 1 End Sub 7． 在窗体上建立了两个文本框 Text1 及 Text2，两个命令按钮 Command1 及 Command2(“复制”及“粘 贴”)。在文本框 Text1 中输入文本“复制文本的演示程序”。 Private Sub Command1_Click() '“复制”按钮 Command1.Enabled = True Command2.Enabled = True End Sub Private Sub Command2_Click() '“粘贴”按钮 Text2.Text = Text1.SelText Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Form_Load() Command1.Enabled = False Command2.Enabled = False End Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelLength > 0 Then Command1.Enabled = True End If End Sub 第 5 章《编程及上机调试》 1. 和数为：1.21。程序代码如下： Private Sub Form_Load() Show s = 0 For k = 1 To 100