2. x=110 y=120 a=110 五、程序填空 (1) Single (2)a 3)RlenRwid (4)Area (5)8)0(7)1 (8)sum2 j (9)suml+sum2 (o)True 11)Back Color (12) 宋体” 六、编程题。 1.即:书上30页例17 Private Sub IblAdd Click Dim sl, s2, add As single sl= val(Text.Text) s2= Val(Text2Text) add=sl+s2 txtResultText= str(add) End sub Private Sub IblRemove Click) Dim sl s2. s as single sl= Val(Text.Text) s2= Val(Text2Text) txtResultText= Str(s) End sub 2.即:书上112页46题 Private Sub HScroll Change( Label2 Caption HScroll. value Forml Back Color RGB(Scroll Value, HScroll Value,1. 15 2. x= 110 y= 120 a= 110 b= 20 五、程序填空。 (1) Single (2) A (3) Rlen*Rwid (4) Area (5) 8 (6) 0 (7) 1 (8) sum2*j (9)sum1+sum2 (10)True (11) BackColor (12)” 宋体” 六、编程题。 1. 即：书上 30 页例 1.7 Private Sub lblAdd_Click( ) Dim s1, s2, add As Single s1 = Val(Text1.Text) s2 = Val(Text2.Text) add = s1 + s2 txtResult.Text = Str(add) End Sub Private Sub lblRemove_Click( ) Dim s1, s2, s As Single s1 = Val(Text1.Text) s2 = Val(Text2.Text) s = s1 - s2 txtResult.Text = Str(s) End Sub 2. 即：书上 112 页 4.6 题 Private Sub HScroll1_Change( ) Label2.Caption = HScroll1.Value Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value