作文为我喝彩:关于vb过程那块的,在线等? 急!

来源：百度文库编辑：高考问答时间：2024/04/30 01:13:32

设计名称为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

Private Sub Form_Activate()
Sum 1, 10
Call Sum(5, 12)
End Sub

Private Sub Sum(vstart As Integer, vEnd As Integer)
Dim i As Integer
Dim total As Integer
For i = vstart To vEnd
total = total + i
Next
Print
Print " " & vstart & "加到" & vEnd & "的总和" & total
End Sub

测试通过

关于vb过程那块的,在线等? 急! 关于vb过程那块的表达式,在线等? 急! vb 编程的问题~^ ^~(要完整的过程)在线等 vb中反三角函数的用法（在线等急）数学问题!!!急!!!在线等!!!要解答过程的??????? 一个关于VB的程序编写!!在线等!! 关于VB数据库的!!着急用!!在线等!!! VB中listview控件。急，在线等！！ vb连接sql数据库~~~~在线等，急~~~~~~ vb窗口问题,在线等,急