vb问题。。在线的。，，

程序填空：
用For Next循环编制程序，计算1+2+3+…+N和N!的值
Private Sub Command1_Click( )
Dim n As (1), sum1 As Long, sum2 As Long
n = Val ( Text1 . Text )
sum1 = (2)
sum2 = (3)
For i = 1 To n
sum1 = sum1 (4) i
sum2 = sum2 (5) i
Next i
Text2 . text = sum1
Text3 . text = sum2
End Sub

2．编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形面积。
Private Sub Form_Click( )
Dim A As Single, B As (1)
A = Val(InputBox("What is the length? "))
B =Val( InputBox("What is the width? "))
Call Recarea ( (2) , B )
End Sub
Sub Recarea(Rlen As Single, Rwid As Single)
Dim Area As Single
Area = (3)
MsgBox "Total Area is " & (4) ‘输出矩形面积
End Sub

3.求1到8的阶乘之和。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
Dim sum1 As Long, sum2 As Long
n = (1)
sum1 = (2)

vb问题。。在线的。，， VB的一个小问题 在线等 VB编程的问题，在线等！！！ vb的数据库问题--在线等答案 VB的Combo中的问题！在线等！ vb问题在线等！！！！！！！！！！ VB 问题 在线等！ VB 问题...在线等... 在线等待vb问题 vb open 问题！在线等待！！