中国古代狩猎:帮我看一下错在哪里

来源：百度文库编辑：高校问答时间：2024/04/27 16:35:35

Private Sub Command1_Click(i As Integer, j As Integer, m As Integer, n As Integer)
i = InputBox("请输入列数m:", m)
j = InputBox("请输入行数n:", n)
If i < 2 Or i > 4 Then
MsgBox ("对不起,你所输入的数字有误,数字只能是2,3,4")
End If
i = Int(InputBox("请输入列数m:", m))
If j < 2 Or j > 4 Then
MsgBox ("对不起,你所输入的数字有误,数字只能是2,3,4")
End If
j = Int(InputBox("请输入行数n:", n))
k = i * j
init k
Command1.Enabled = False
End Sub
编译时说是过程声明与同名事件不匹配,哪位高手帮我看一下,怎么改
忘了说了,出错行是Private Sub Command1_Click(i As Integer, j As Integer, m As Integer, n As Integer)
i = InputBox("请输入列数m:", m) ,
高手们能讲得具体点,我刚看vb1星期,现在要编个游戏,init是我自己定义的一个子程序

i = InputBox("请输入列数m:", m)
j = InputBox("请输入行数n:", n)
i = Int(InputBox("请输入列数m:", m))
j = Int(InputBox("请输入行数n:", n))

这些InputBox里怎么多了这么多东西?你最近在看C语言吗

应改成
i = InputBox("请输入列数m:")
j = InputBox("请输入行数n:")
i = Int(InputBox("请输入列数m:"))
j = Int(InputBox("请输入行数n:"))

===
对不起,看错了

Private Sub Command1_Click(i As Integer, j As Integer, m As Integer, n As Integer)

改成
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, n As Integer

Dim i As Integer, j As Integer, m As Integer, n As Integer

这么写不对
Command1_Click(i As Integer, j As Integer, m As Integer, n As Integer)

Private Sub Command1_Click()

init k
这句看不懂。。

帮我看一下错在哪里大家帮我看一下错在哪里? 帮我看一下java程序的出错在哪里这是我自己编的一个程序，帮我看一下错在哪里？这是我自己编的一个程序，帮我看一下错在哪里？帮我看一下错在哪里我调用不了检查的脚本 pascal编程帮我看一下，我编的错在哪里谁帮我看一下这几个成语错在哪里？大家帮我看一下哪里错了？VBS的大家帮我看一下哪里错了？VBS的