|
Private Sub Command1_Click() Dim cs(11) Text2 = "" s = Split(Text1, ",") a = Split("子,丑,寅,卯,辰,巳,午,未,申,酉,戌,亥", ",") For i = 0 To 11 For j = 0 To UBound(s) If a(i) = s(j) Then cs(i) = cs(i) + 1 Next j Next i zj = cs(0) For i = 1 To 11 If cs(i) > zj Then zj = cs(i) Next i For i = 0 To zj For j = 0 To 11 If cs(j) = i Then zz = zz & a(j) Next j if zz<> "" then Text2 = Text2 & "出現(xiàn)" & i & "次： " & zz & vbcrlf zz="" Next i End Sub 記住把text2的mutiline設(shè)置成true |
|
|
