VB课后习题全部答案

课后答案网，用心为你服务！ www.khdaw.com

16、

Private Sub Check1_Click() If Check1.Value = 1 Then Label2.Font.Italic = True ElseIf Check1.Value = 0 Then Label2.Font.Italic = False End If End Sub

Private Sub Check2_Click() If Check2.Value = 1 Then Label2.Font.Bold = True ElseIf Check2.Value = 0 Then Label2.Font.Bold = False End If End Sub

Private Sub Command1_Click() End End Sub

Private Sub Option1_Click()

If Option1.Value Then Label2.Font.Size = 12 Label2.Refresh End Sub

课后答案网，用心为你服务！ www.khdaw.com Private Sub Option2_Click()

If Option2.Value Then Label2.Font.Size = 14 Label2.Refresh End Sub

Private Sub Option3_Click()

If Option3.Value Then Label2.Font.Size = 16 Label2.Refresh End Sub

Private Sub Option4_Click()

If Option4.Value Then Label2.Font.Name = \宋体\ Label2.Refresh End Sub

Private Sub Option5_Click()

If Option5.Value Then Label2.Font.Name = \隶书\ Label2.Refresh End Sub

Private Sub Option6_Click() If Option6.Value Then Label2.Font.Name = \黑体\ Label2.Refresh End Sub 17、

课后答案网，用心为你服务！ www.khdaw.com

18、

课后答案网，用心为你服务！ www.khdaw.com 第四章

1. B 2. 见教材P40-41 3. 不对，通用过程也可以存在于窗体模块中 4. 见教材P43 5. 字符串型常量的界定符是双引号\，日期型数据的界定符是磅号#。A、B是字符型，C、D是日期型，E、F不属于任何类型。

6. 合法变量名有：A、C、D （VB中合法变量名只能由字母、数字和下划线构成，并且只能以字母开头）

7. 见教材P46 8. (1) a/(b+c/d) (2) (sqr(x^2+1)+x)^(1/3)

(3) (2*y)/((a*x+b*y)*(a*x-b*y)) (4) 1+1/(1+1/m) (5) (d/3)^(2*x)/2 (6) log(y+cos(x)^2) (7) fabs((exp(x)+sin(x)^3)/(x+y))

(8)log((exp(x*y)+fabs(tan(z)^-1+cos(x)^3))/(x+y-z)) 9. (1)(2) (A+B)/(A-B) (3)(4) A*B*C/((D+1)*Y) (5)(6) (X*Y)^5

10. A x+y<10 and x-y>0

B x*y>0 and x=fix(x) and y=fix(y) C A=0 XOR B=0

D C1+C2+C3>=255 and C1>90 and C2>90 and C3>80 11. T F F F F 12. BCDE （A会发生溢出的错误）

13. (1) \ (4) 3548 (5) \ (8) 3548 14. 以2为底的X的对数：log(x)/log(2) 15. C 16. z=Inputbox(\输入一个数：\，\程序示例\，1.5) 17. Msgbox \的值1.5大于0\，48，\程序示例\18.

Option Explicit

Const PI As Single = 3.14159 Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, area As Single a = Val(Text1.Text) b = Val(Text2.Text)

c = Val(Text3.Text) * PI / 180 '角度角转换为弧度角 area = a * b * Sin(c) / 2

Text4 = CStr(Format(area, \使纯小数能出现整数位的0 End Sub