UC知道VB中报错：byref argument type mismatch什么问题啊！
来源：百度知道 编辑：UC知道 时间：2024/05/08 19:26:26
源程序
Private Sub Command1_Click()
Dim chx As String * 1
Dim num As Integer
chx = "*"
num = 8
Call triangle(chx, num)
chx = "$"
triangle chx, num / 2
End Sub
Private Sub triangle(str As Integer, n As Integer)
Dim I As Integer, J As Integer
For I = 1 To n
For J = 1 To I
Print str;
Next J
Print
Next I
End Sub
不知道为什么报错 啊！
帮手一下怎样改啊！谢了
Private Sub Command1_Click()
Dim chx As String * 1
Dim num As Integer
chx = "*"
num = 8
Call triangle(chx, num)
chx = "$"
triangle chx, num / 2
End Sub
Private Sub triangle(str As Integer, n As Integer)
Dim I As Integer, J As Integer
For I = 1 To n
For J = 1 To I
Print str;
Next J
Next I
End Sub
不知道为什么报错 啊！
帮手一下怎样改啊！谢了
在你的Private Sub triangle(str As Integer, n As Integer) 方法中，参数str 是Integer类型。而你调用的时候：Call triangle(chx, num) 中的chx是String 类型当然不匹配了。
你把Private Sub triangle(str As Integer, n As Integer)改成
Private Sub triangle(str As String , n As Integer)就可以了
chx 不是 Integer