杭州交通信息网丝袜人妻被下药的故事:关于vb过程那块的表达式,在线等? 急!
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 23:49:15
设计名称为sum的sub的过程，sub拥有total=n+(n+1)+(n+2)+...+(n+m)并显示total综合结果的功能。代码为
01 private sub Form_Activate()
02 Sum 1,10
03 call Sum(5,12)
04 End sub
05 sub Sum(vstart As Integer,vEnd AsInteger)
06 Dim i As Integer
07 Dim total As Integer
08 For i=vstart to vEnd
09 total=total+i
10 Next
11 Print
12 Print " "&vstart&"加到"&Vend&"的总和"&total
13 End sub
我所不理解的是08和09这两行，total也没初始值啊，还有他怎么就表达出total=n+(n+1)+(n+2)+...+(n+m）这个表达式了啊，不理解
01 private sub Form_Activate()
02 Sum 1,10
03 call Sum(5,12)
04 End sub
05 sub Sum(vstart As Integer,vEnd AsInteger)
06 Dim i As Integer
07 Dim total As Integer
08 For i=vstart to vEnd
09 total=total+i
10 Next
11 Print
12 Print " "&vstart&"加到"&Vend&"的总和"&total
13 End sub
我所不理解的是08和09这两行，total也没初始值啊，还有他怎么就表达出total=n+(n+1)+(n+2)+...+(n+m）这个表达式了啊，不理解
每次定义数值型变量时，变量都被初始化为零
total始值为0
从理解上说明07-10等价于
do until n=m
n=n+1
total=total+n
loop
即
07 FOR I=n to m step 1
08 total=total+i
10 next i
Dim total As Integer定义时，自动赋给total一个初始值0
举例来说：
Sum(5,7)
For i=vstart to vEnd '这里vstart=5 vEnd=7
total=total+i
Next
i=5 total=0+5=5
i=6 total=5+6=11
i=7 total=11+7=18
即total=5+6+7=18