参考答案

'正确程序
Private Sub C1_Click()
    Dim k As Integer
    Form2.Show
    Form2.Print Form1.L1.Caption; Form1.Text1
    Form2.Print Form1.L2.Caption; Form1.Text2
    Form2.Print Form1.L3.Caption; Form1.Text3
    Form2.Print Form1.Frame1.Caption; "：";
    For k = 0 To 1
        If Form1.Op1(k).Value Then
            Form2.Print Form1.Op1(k).Caption
        End If
    Next k
End Sub
Private Sub Form_Load()
    Text2.PasswordChar = "*"
End Sub
Private Sub C1_Click()
    End
End Sub
Private Sub C2_Click()
    Unload Form2
End Sub