Private Sub Form__[8] Combo1.Enabled =False Textl.Enabled =False End Sub Private Sub Check2__Click() Option1.Enabled = False Option2.Enabled =False End Sub Private Sub [9] Combo1,Enabled = Not Combo1.Enabled Textl.Enabled = Not Text1.Enabled Option1.Enabled= Not Option1.Enabled Option2.Enabled= Not Option2.Enabled End Sub Private Sub Commandl_Click() If Check1.value = 1 Then Label1.Caption =Label1.Caption & [10] &vbCrlf Label1.Caption = Label1.Caption & [11] & vbClf End If If Check2.value=1 Then If Option1.value = True Then Label1.Caption=Label1.Caption&"现金付款"&vbCrLf Else Label1.Caption=Label1.Caption&"转帐付款"&vbCrLf End If End If End Sub 注:vbCrLf为回车符。