Question

写VB程序计算出N1到N2之间不包括N1和N2所有整数累加的结果

写VB程序计算出N1到N2之间不包括N1和N2所有整数累加的结果

Answer 1

Dim N1 As Long, N2 As Long, s As Long, i As Long
N1 = Val(InputBox("请输入N1"))
N2 = Val(InputBox("请输入N2（必须大于N1）"))
For i = N1 + 1 To N2 - 1
      s = s + i
Next
MsgBox "计算结果为：" & s

Answer 2

Sub s()
    Dim n1%, n2%, sm&, i%
    n1 = InputBox("n1=")
    n2 = InputBox("n2=")
    For i = n1 + 1 To n2 - 1
        sm = sm + i
    Next
    MsgBox sm
End Sub