VB编程，急

来源：百度知道 编辑：UC知道 时间：2024/05/21 15:51:55
大家帮个忙，刚学 VB,不知怎么编做这个题。答案最好带解释过程，谢谢
请编写一段VB程序，编写计算1+2+3+……+n的通用过程。（15分）
要求：
1)建立一个计算用函数OneToN,该函数调用N，返回1+2+3+……+n的计算结果；
2)在文本框Text1中输入n的具体数字后，点击按钮Command1后，文本框Text2中出现计算结果。

Private Sub Command1_Click()
Text2.text = OneToN(val(Text1.text)) ’课直接用text1,因为text1的默认属性为text
End Sub

Public Function OneToN（n%) as integer 'Public表示公用
for i=1 to n
sum=sum+i
next '为了不写错，NEXT后面一半不接任何东西
OneToN=sum
End Function

Private Sub Command1_Click()
TEXT2.TEXT= add(Val(Text1.Text))
End Sub

Function add(N As Integer)
Dim i, result As Integer
result = 0
For i = 1 To N
result = result + i
Next i
add = result
End Function

Text2.value=(1+val(Text1.value))*val(Text1.value)/2

Private Sub Command1_Click()
Text2 = AddN(Text1)
End Sub

Function AddN&(n%)
Dim i%
For i = 1 To n
AddN = AddN + i
Next
End Function

和楼上的一样啊

Dim i as integer
Dim lngJG as long
lngJG = 0
for i= 1 to n
lngJG=lngJG+i
Next i
print "结果",lngJG
END