Question

求解，此为vb程序题

1.Function func()
Dim A As Single
Dim L As Single
A = 8
L =___________________

func = "圆锥的体积L=" & L
End Function
2.Function func()
Dim i As Single
Dim s As Single
s = 0
For i = 5 To _________ Step 5
s = s + i
Next i

func = s
End Function
3.Function func()
Dim R As Single
Dim H As Single
Dim V As Single
R = 1
H = 10
V = ________________________

func = "圆柱的体积V=" & V
End Function
4.Function func()
Dim i As Single
Dim s As Single
s = 0
For i = 1 To 100
s = s + __________
Next i

func = s
End Function
5.Function func()
Dim x As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim s As Integer
x = 345
a = x \ 100
b = _____________________
c = x Mod 10
s = a + b + c
func = "各位数字之和s=" & s
End Function
6.
function func()
Dim x As Single
Dim a As Single
a = 898
If a <= 500 Then
_______________________________
Else
x = 500 + (a - 500) * 0.8
End If

func = "应付金额" & x
End Function
7.Function func()
Dim a As Integer
Dim b As Integer
Dim t As Integer
a = 3
b = 4
________________
a = b
b = t

func = "a=" & a & " b=" & b
End Function
8.Function func()
Dim i As Single
Dim s As Single
s = 0
For i = 10 To 1 Step _____________________
s = s + i
Next i

func = s
End Function
顺便问一下，function是什么意思，它是干什么的

Answer 1

第一题无解，圆锥的体积公式是：底面积乘以高/3，你这里给的A是底面积还是高呀，是半径还是直径呀，都没有说明也没有给另一个参数。
第二题也无解，可以看出是求和，从5开始，但是到几没有说明。
第三题：3.14*R^2*H
第四题：i，看样子应该是求1到100的和
第五题：(x - a * 100) \ 10
第六题无解，没有给出当a大于500时的公式
第七题：t = a，样子是a，b互换
第八题：-1，求的是1到10的和
function是定义一个带返回值的函数
你这个题都没有说明题意，我给出的答案也只是根据题上写的程序猜测的。
望采纳。。。。

Answer 2

3.V = (1 / 3) * (R * R * 3.142) * H
自定义函数，Custom Functions Some call the procedure.
不用管它是什么意思，用惯了、熟练了、自然而然知晓了。