![]() |
#2
风吹过b2013-11-10 19:25
|
以下代码进行编译时总是弹出提示“类型不匹配,缺少数组或用户定义类型”
Private Type PaiType '定义一个结构体为PaiType
PaiZhi As Integer
PaiHua As Integer
Pai As Integer
End Type
Private Sub Form_Load()
Dim Pais(52) As PaiType '定义了52个结构数组元素用作牌信息
Call XiPaiGuoCheng(Pais) ’执行洗牌过程--实参为结构数组名
End Sub
Private Sub XiPaiGuoCheng(Pais_c() As PaiType) '定义洗牌过程--形参为区别实参在结构数名后加了“_c”
……
……
……
End Sub