UC知道请高手看看这段vb代码那个地方类型不匹配，应该怎么办！
来源：百度知道 编辑：UC知道 时间：2024/06/19 13:29:23
Private Sub Command1_Click()
Dim n, k As Integer
k = 1
n = InputBox("请输入自然数", "统计")
If n > 0 Then
For i = 1 To n Step 1
k = k * i
Next i
ElseIf n = 0 Then
k = 1
Else
msgbox "请输入自然数", "错误提示"
End If
Text1.Text = Str$(k)
End Sub
Dim n, k As Integer
k = 1
n = InputBox("请输入自然数", "统计")
If n > 0 Then
For i = 1 To n Step 1
k = k * i
Next i
ElseIf n = 0 Then
k = 1
Else
msgbox "请输入自然数", "错误提示"
End If
Text1.Text = Str$(k)
End Sub
Private Sub Command1_Click()
Dim k As Integer
Dim i As Integer
Dim n As Integer
k = 1
n = Val(InputBox("请输入自然数", "统计"))
If n > 0 Then
For i = 1 To n
k = k * i
Next i
ElseIf n = 0 Then
k = 1
Else
MsgBox "请输入自然数", , "错误提示"
End If
Text1.Text = Str$(k)
End Sub
首先，对i进行变量声明，再就是MsgBox "请输入自然数", , "错误提示"必须在之间加上逗号。
n = InputBox("请输入自然数", "统计") 这个吧。
Text1.Text = Str$(k) 改成 Text1.Text = String(k)试试
Dim n, k As Integer应该分开分别写吧，Dim n！，k!