急!!!100分 VB求数据处理

Question

http://home.51.com/photo.view.php?user=wlm1314&id=100086396&gid=115574#100086396

Answer 1

Option Explicit
Private Str(1 To 3) As StringPrivate Sub Form_Load()
  List1.AddItem 3
  List1.AddItem 2
  List1.AddItem 5
  List1.AddItem 4
  List1.AddItem 2
  List1.AddItem 4
  List1.AddItem 6
End SubPrivate Sub Command1_Click()
On Error Resume Next
Dim i As Integer
Dim j As Integer
Dim l As Integer
Open "C:\111.txt" For Output As #1For i = 0 To List1.ListCount - 1
  Print #1, "Q-" & i + 1
  For j = 1 To List1.List(i) - 1
     Print #1, "Q-" & i + 1 & "-" & j
  Next
Next
Close #1
l = Shell("notepad.exe C:\111.txt", 1)
End Sub

Answer 2

Private Sub Command1_Click()
    Dim i As Integer
    Dim intCs As Integer
    Dim intC As Integer
    Dim intOld As Integer
    
    With List1
        For i = 0 To .ListCount - 1
            If i > 0 Then
                If .List(i) <> .List(i - 1) Then
                    intC = intC + 1
                    intCs = 0
                Else
                    intCs = intCs + 1
                End If
                
                Print "Q-" & intC + 1 & IIf(intCs > 0, "-" & intCs, "")
            Else
                Print "Q-1"
            End If
        Next i
    End With
    
End SubPrivate Sub Form_Load()
    With List1
        .AddItem "3"
        .AddItem "3"
        .AddItem "3"
        .AddItem "2"
        .AddItem "2"
        .AddItem "5"
        .AddItem "5"
        .AddItem "5"
        .AddItem "5"
        .AddItem "5"
        .AddItem "4"
        .AddItem "4"
        .AddItem "4"
        .AddItem "4"
        .AddItem "2"
        .AddItem "2"
        .AddItem "4"
        .AddItem "4"
        .AddItem "4"
        .AddItem "4"
        .AddItem "6"
        .AddItem "6"
        .AddItem "6"
        .AddItem "6"
        .AddItem "6"
        .AddItem "6"        
    End With
    
End Sub

Answer 3

看不出来是什么关系,只知道,list的数目和序列有点关系.出处呢,没法判断

Answer 4

每输出一行,在前面再输出其行数:如:
1
Q-1
2
Q-1-1
3
Q-1-2
4
Q-2
5
Q-2-1
6
Q-2-2
...

Answer 5

Private Sub Command1_Click()
    Dim i As Integer
    Dim intCs As Integer
    Dim intC As Integer
    Dim intOld As Integer
    
    With List1
        For i = 0 To .ListCount - 1
            If i > 0 Then
                If .List(i) <> .List(i - 1) Then
                    intC = intC + 1
                    intCs = 0
                Else
                    intCs = intCs + 1
                End If
                Print i + 1
                Print "Q-" & intC + 1 & IIf(intCs > 0, "-" & intCs, "")
            Else
                Print "1"
                Print "Q-1"
            End If
        Next i
    End With
    
End SubPrivate Sub Form_Load()
    With List1
        .AddItem "3"
        .AddItem "3"
        .AddItem "3"
        .AddItem "2"
        .AddItem "2"
        .AddItem "5"
        .AddItem "5"
        .AddItem "5"
        .AddItem "5"
        .AddItem "5"
        .AddItem "4"
        .AddItem "4"
        .AddItem "4"
        .AddItem "4"
        .AddItem "2"
        .AddItem "2"
        .AddItem "4"
        .AddItem "4"
        .AddItem "4"
        .AddItem "4"
        .AddItem "6"
        .AddItem "6"
        .AddItem "6"
        .AddItem "6"
        .AddItem "6"
        .AddItem "6"        
    End With
    
End Sub结果
1
Q-1
 2 
Q-1-1
 3 
Q-1-2
 4 
Q-2
 5 
Q-2-1
 6 
Q-3
 7 
Q-3-1
 8 
Q-3-2
 9 
Q-3-3
 10 
Q-3-4
 11 
Q-4
 12 
Q-4-1
 13 
Q-4-2
 14 
Q-4-3
 15 
Q-5
 16 
Q-5-1
 17 
Q-6
 18 
Q-6-1
 19 
Q-6-2
 20 
Q-6-3
 21 
Q-7
 22 
Q-7-1
 23 
Q-7-2
 24 
Q-7-3
 25 
Q-7-4
 26 
Q-7-5

Answer 6

Option Explicit
Private Str(1 To 3) As StringPrivate Sub Form_Load()
  List1.AddItem 3
  List1.AddItem 2
  List1.AddItem 5
  List1.AddItem 4
  List1.AddItem 2
  List1.AddItem 4
  List1.AddItem 6
End SubPrivate Sub Command1_Click()
On Error Resume Next
Dim i As Integer
Dim j As Integer
Dim l As IntegerDim Count As LongOpen "C:\111.txt" For Output As #1For i = 0 To List1.ListCount - 1
  Count = Count + 1
  Print #1, Count
  Print #1, "Q-" & i + 1
  For j = 1 To List1.List(i) - 1
     Count = Count + 1
     Print #1, Count
     Print #1, "Q-" & i + 1 & "-" & j
  Next
Next
Close #1
l = Shell("notepad.exe C:\111.txt", 1)
End Sub