高校问答台湾网民谈微信红包:vb的问题
来源：百度文库 编辑：高校问答 时间：2024/04/30 20:15:02
帮我看一下错在哪里
悬赏分：30 - 离问题结束还有 14 天 23 小时
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是我自己定义的一个子程序
我在编一vb拼图游戏,具体情况点这个,有能力的大侠能帮我解决
http://zhidao.baidu.com/question/8998168.html
悬赏分：30 - 离问题结束还有 14 天 23 小时
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是我自己定义的一个子程序
我在编一vb拼图游戏,具体情况点这个,有能力的大侠能帮我解决
http://zhidao.baidu.com/question/8998168.html
晕了,看错了
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