UC知道vB编程的问题
来源：百度知道 编辑：UC知道 时间：2024/05/12 01:04:00
编写一个子程序1+2+3+。。。。n的子程序用主程序调用两次使第一次打印s=1+2+.....50,第2次打印s=1+2+....100定义自己名字开头字母为文件名
Private Sub Form_Click()
Dim s1 As Integer
Dim s2 As Integer
s1 = plass(50)
s2 = plass(100)
Print (s1)
Print (s2)
End Sub
Public Function plass(n)
Dim sum As Integer
Dim i As Integer
For i = 1 To n
sum = sum + i
Next
plass = sum
End Function
这样应该可以了,调试下看看.
For i = 1 To 100
if i<=50 then a = a + i
b = b + i
Next i
Print a, b