Question

vb题目，急求答案，请高手解答

补充程序
1、 Dim r As Single , V As single ,f As Single
Const pi=3.14159
r=_________________
v=4/3*pi*r^3
f=4*pi*r^2
text2.text=v
___________________________
End sub

2、求累加和1 + 2 + 3 +…+ 100。
Private Sub Command1_Click()
Dim intSum As Integer, n As Integer
intSum = 0: n = 1
Do While n <= 100
______________
n = n + 1
Loop
Label2.Caption = _____________________
End Sub

Answer 1

1.
第一个空填：val(trim(text1.text))
第二个空填：text3.text=f

2.
第一个空填：sum=sum+n
第二个空填：sum