计算机操作、求解。。。大哥大姐些，帮哈忙操作题（每题12分，共36分）1．补充完善下列程序段(每小题3分，共12分)。①从键盘输入圆的半径R，输出圆的周长L和面积S。DimRAsSingleDimLAsSi

Question

计算机操作、求解。。。大哥大姐些，帮哈忙
操作题（每题12分，共36分）
1．补充完善下列程序段(每小题3分，共12分)。
① 从键盘输入圆的半径R，输出圆的周长L和面积S。
Dim R As Single
Dim L As Single
Dim S As Single
_____=InputBox("输入半径R ")
L=2*3.14*R
S=3.14*R*R
Print "圆的周长L= ";L
Print "圆的面积S= ";S
② 计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ________ Then
Y=0
Else
Y=20*(X-20)
End If
Print "行李费= ";Y
③ 求s=2+4+6+……+100之和。
Dim i As Integer
Dim s As Integer
s=0
For i=2 To 100 Step 2
s=_________
Next i
Print s
④ 输出100以内（包含100）能被3整除的数。
Dim I As Integer
I=1
Do
If I Mod 3=0 Then
Print I
End If
I=I+1
Loop Until _________
2. 有一张单据上有一个5位数的号码67□□8，其中百位和十位上的数字看不清了，但知道该数能够被78整除，也能被67整除，下面是用穷举法求出该号码的程序段：
Dim a As Integer, b As Integer
Dim n As Long
For a = 0 To 9
For b = 0 To ①
n = 67008 + ② * 100 + b * 10
If n Mod 78 = 0 ③ n Mod 67 = 0 Then
Print ④
End If
Next b
Next a
请将应填写的内容写在下面相应的空格内并运行程序写出该号码(每空3分，共12分)。
①_____________
②_____________
③_____________
④ _____________
3．编写程序计算表达式a=|-3.6|+123×sin67°的值（圆周率∏的值取3.14，计算结果用取整函数保留整数部分，每小题3分，共12分）。
① |-3.6|写成VB表达式应为：_____________________
② sin67°写成VB表达式应为：______________________
③ 在VB环境下编写程序并运行：
Private Sub Command1_Click()
Dim a As Single
a = Abs(-3.6) + 123 * Sin(67 * 3.14 / 180)
a = Int(a)
Print a
End Sub
④ 该程序的运行结果是：____________

Answer 1

1.1 R
1.2 X<=20
1.3 s+i
1.4 l>100