简单VB编程

来源：百度知道 编辑：UC知道 时间：2024/05/15 11:52:54
1+2+3+4+……+n
输入n，求和
用循环结构编写
能不能用button进行运行

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Text1.Text <> "" And IsNumeric(Text1.Text) Then
Dim vSum%
For i = 1 To Val(Text1.Text)
vSum = vSum + i
Next
Text2.Text = vSum
End If
End Sub