极其简单基础的程序。

Question

有一组数，s1，s2,s3，s50
怎么求和。

Answer 1

dim n as double
n=s1+s2+s3+...+s50

Answer 2

那就一个一个的加呗~
Dim i As Integer
Dim b As Long
 For i = 1 To 50
   b = s(i) + b
 Next

Answer 3

逗号打错了，应该都在底下，大鸟 为什么定义b为long

Answer 4

当初始化变量时，数值变量被初始化为 0，变长的字符串被初始化为一个零长度的字符串 ("")，而定长的字符串则用 0 填充。Variant 变量被初始化为 Empty。用户自定义类型的变量的每个元素作为各自独立的变量进行初始化。定义为哪种类型的变量要看你的数值的类型，要考虑溢出的问题。

Answer 5

Dim ary() As Long
Private Sub Form_Load()
    ReDim ary(49) As Long
    
    '别忘给数组赋值
    .....
    .....
    .....    MsgBox sums()
    
End SubFunction sums() As Long
    Dim i As Integer
    For i = 0 To UBound(ary)
       sums = sums + ary(i)
    Next
End Function

Answer 6

Dim i As Integer
Dim b As Long
 For i = 1 To 50
   b = s(i) + b
 Next
是不应该这样写
Dim i As Integer
Dim b As Long
 For i = 1 To 50
   b = s(i) + b
 Next  i
这个i 需要写上么

Answer 7

如果是一个字符串，就用Split函数读入到一个一维数组中。
如果一个数组，直接用上面的方法。