微信支付取消验证码:VB高手们,帮帮忙,为什么我的运行不来啊
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/05 20:33:02
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赋值了吗?