关于VB程序设计

来源：百度知道编辑：UC知道时间：2024/05/08 08:42:51

程序如下: 总在第五行出现"无效限定符"的提示,请高手解答!
Private Type player
hm As String * 3
cj As Single
End Type
Private Sub command1_Click()
Dim a() As player, i%, j%, t%
ReDim a(1 To 10) As player
a.hm = Array("011", "095", "041", "070", "008", "009", "021", "061", "006", "004")
a.cj = Array(12.4, 11.1, 13.6, 12.1, 12.4, 10.4, 14.4, 15.1, 15.4, 11.4)
For i = 1 To n - 1
k = i
For j = i + 1 To n
If a(k) < a(j) Then k = j
Next j
t = a(j): a(j) = a(k): a(k) = t
Next i
Print "=========排序后=========="
For i = 1 To UBound(a)
Print a(i).hm; a(i).cj
Next i

End Sub

使用的时候a不能直接用必须为a(i)的方式
Array函数的返回值是一个Variant型的，例如：
dim v as Variant
v=Array("011", "095")

'修改后如下：
'=============================================
Private Type player
    hm As String * 3
    cj As Double
End Type
Private Sub command1_Click()
    Dim a() As player, i%, j%, n%
    Dim t As player
    Dim s1, s2
    n = 10
    ReDim a(1 To n) As player
    s1 = Array("011", "095", "041", "070", "008", "009", "021", "061", "0

关于vb程序设计。关于VB程序设计 VB程序设计交通灯程序设计关于一个vb程序设计的问题关于VB 循环结构程序设计的问题 vb程序设计: vb 程序设计 VB程序设计 Vb 程序设计高手进来看看，一个关于VB的程序设计题！