关于一个循环的问题！！

Question

想作一个数的累加！！
输入7次整形数值，将7次的数值相加然后求和，怎么做？！
如果求和后再就平均数呢？！
很弱智的问题，希望各位大虾赐教！！

Answer 1

定义一个数组,
dim Cnum(6) as long
定义两个长整型变量
dim rc,sc as long
把七个数据分别保存在七个数组变量中,
然后相加
rc=Cnum(0)+Cnum(1)+............+Cnum(6)
结果保存在rc中,求平均数
sc=rc/7
结果保存在sc中

Answer 2

能告诉怎么用循环作吗？！
作业题！！
不会作，请高手教路！！
如果是用数组的话请问如何将inputbox中输入的值赋给数组？！
请告诉我详细点的源代码～～～谢谢啦！！

Answer 3

dim sumnum as long
dim avgnum as longfor i=0 to 6
    sumnum=sumnum+clng(inputbox("input number"))
next
avgnum=sumnum\7
msgbox sumnum
msgbox avgnum

Answer 4

Private Sub Form_Load()
    Dim i As Integer, sum As Integer
    Dim stmp As String
    
    For i = 1 To 7
        stmp = InputBox("请输入第" + CStr(i) + "个数字", "输入数字", 0)
        If IsNumeric(stmp) Then sum = sum + Val(stmp)
    Next
    
    Me.AutoRedraw = True
    Me.Print "和为" + CStr(sum)
    Me.Print "平均值为" + CStr(sum / 7)
End Sub

Answer 5

up
dim i as integer

Answer 6

再问cooly，如果我要限制我的取值范围呢？！
比如说我的取值范围要在－40到60之间呢？！

Answer 7

Private Sub Form_Load()
    Dim i As Integer, sum As Integer
    Dim stmp As String
    dim f as integer
    For i = 1 To 7
        f=1
        do while f=1
            stmp = InputBox("请输入第" + CStr(i) + "个数字(40-60)", "输入数字", 0)
            if stmp>40 and stmp<60 then
                If IsNumeric(stmp) Then sum = sum + Val(stmp)
                f=2
            end if
        end do
    Next
    
    Me.AutoRedraw = True
    Me.Print "和为" + CStr(sum)
    Me.Print "平均值为" + CStr(sum / 7)
End Sub