8、'（1）删除①②③及下划线，填空完成程序。
'（2）已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取3.14，求该三角形的面积。
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码
Private Sub Command1_Click() a = 15
b = ___①___
s = 0.5 * a * b * ___②____(41 * 3.14 / 180) ____③____= s End Sub
Private Sub Form_Load() End Sub 答案
Private Sub Command1_Click() a = 15 b = 18
s = 0.5 * a * b * Sin(41 * 3.14 / 180) Text1.Text = s End Sub
9、'（1）删除①②③及下划线，填空完成程序。
'（2）完善程序代码实现求5+10+15+20+?+40+45+50+?+100的值。 '(运行结果为1050)
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click() Dim I As Integer Dim S As Integer S = S + I
For I = 100 To 5 Step -5 S = S + I
Next I
Print \ End Sub
10、'（1）删除①②③及下划线，填空完成程序。
（'2）输入车程公里数，单击按钮“应收车费”后，在Label1输出车程，在Label2中输出车费。
'收费标准：3公里内（包括3公里）起步价12元；
'超过3公里，但10公里内(包括10公里)，则3公里内收费12元，超出部分每公里2元；
'如果超过10公里，则10公里内收费26元，超出部分每公里3元。其程序实现如下：
'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click() x = Val(Text1.Text)
If x > 0 And x <= 3 Then y = 12
If x > 3 And x <= 10 Then y = 12 + (x - 3) * 2 If x > 10 Then y = 26 + (x - 10) * 3 If x <= 0 Then y = 0
Label1.Caption = x & \公里\Label2.Caption = y & \元\End Sub
11、
'在Text1中输入一个整数，单击“判断”按钮，在Label1中显示“正数”、“零”或者“负数”！
'注：①运行时，把红色下划线删除 '②不能删除注释语句 Private Sub Command1_Click() Dim x As Integer
x = Text1.Text '第一空 If x > 0 Then '第二空
Label1.Caption = \正数\ElseIf x < 0 Then '第三空 Label1.Caption = \负数\Else
Label1.Caption = \零\End If End Sub
此题先添加按钮，再改按钮的caption属性
12、百钱买百鸡
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer For a = 1 To 20
For b = 1 To 33 c = 100 - a - b
If a * 5 + b * 3 + c * (1 / 3) = 100 Then Print a, b, c End If Next b Next a End Sub 13、
* *** ***** ******* ********* *********** *************
Dim i,j As Integer
For i=1 To 7 Print Tab(10-i); For j=1 To 2*i-1
Print “*”; Next j Next i
14、
@ Dim i,j As Integer @@ For i=1 To 6 @@@ Print Tab(10-i); @@@@ @@@@@ @@@@@@ 15、
For j=1 To i Print “@”; Next j Print Next i