歼20和歼10外形:VB高手们,帮帮忙,为什么我的运行不来啊
来源:百度文库 编辑:神马品牌网 时间:2024/05/03 02:43:03
Private Sub Form_click()
Dim i As Integer, y As Integer, k As Integer
n = InputBox("输入n", "")
i = 1
y = 1
For i = 1 To n
k = k * i
y = y + k
Next i
Text1.Text = "y=" & Str(y)
End Sub
Dim i As Integer, y As Integer, k As Integer
n = InputBox("输入n", "")
i = 1
y = 1
For i = 1 To n
k = k * i
y = y + k
Next i
Text1.Text = "y=" & Str(y)
End Sub
给K赋值了吗?