f Check value =I Then ”蓝”复选框 End if Labell BackColor RGB(r, g, b) 6.程序代码如下: Private Sub Form Load o LabClk. Caption =0 LabClk. Alignment =1 LabClk. Fontsize =2 LabClk. FontName="黑体 TimClk. Interval =1000 Private sub timclk LabClk. Caption (LabClk. Caption)+I End sub 7.(1)Chr(KeyAscii) (2)ElseIf Chr(KeyAscii) (3)CheC= CheC-l (4)Chec (5)Is>0或Else 第5章习题 单选题 7.(1)B,(2)C,G3)B B 二、填空题 1.(1)4次,n=13(2)3次,n=8(3)3次,n=27(4)3次,n=10(5)1次,n=12 2.(1)Len(s)(2)Mid(s, k, 1) ( 3)c+t(4)Text2Text 3.(1)t=1(2)n=n+1 (3)t=t*2 5. Text 6.下拉列表框 7. AddItem, Removeltem ux Clear 8.(D)Itema(2)Itemd (3)Item (4)ItemA 9.(1)Mid(x,p+3)(2)p+4(3)nsur(p,x,"123") 编程及上机调试 1.和数为:1.21。程序代码如下 Private Sub Form Load 0 For k =1 To l +1/(1+k*4) Next k Print s End sub 2.程序代码如下 Form Load Dim i As Integer, a As Integer, b As Integer, c As Integer Show For i =100 To 999 t(i/100) b=Int(i-100*a)/10) c=i-100*a-10* If a s a a+ b* bb+ c*c* c=i then6 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． (1) Chr(KeyAscii) (2) ElseIf Chr(KeyAscii) (3) CheC = CheC - 1 (4) CheC (5) Is > 0 或 Else 第 5 章习题 一、单选题 1．A 2. B 3．(1)C，(2)B 4．B 5．C 6．A 7．(1)B，(2)C，(3)B 8. B 9. B 10. B 二、填空题 1．(1)4 次，n=13 (2)3 次，n=8 (3)3 次，n=27 (4)3 次，n=10 (5)1 次，n=12 2．(1) Len(s) (2) Mid(s, k, 1) (3) c + t (4) Text2.Text 3．(1) t = 1 (2) n = n + 1 (3) t = t * 2 4. 0 5. Text 6. 下拉列表框 7. AddItem ，RemoveItem 或 Clear 8．(1)ItemA (2) ItemD (3) ItemD (4) ItemA 9．(1) Mid(x, p + 3) (2) p + 4 (3) InStr(p, x, "123") 编程及上机调试 1. 和数为：1.21。程序代码如下： Private Sub Form_Load() Show s = 0 For k = 1 To 100 s = s + 1 / (1 + k * 4) Next k Print s End Sub 2. 程序代码如下： Private Sub Form_Load() Dim i As Integer, a As Integer, b As Integer, c As Integer Show For i = 100 To 999 a = Int(i / 100) b = Int((i - 100 * a) / 10) c = i - 100 * a - 10 * b If a * a * a + b * b * b + c * c * c = i Then Print i