, , IfThenElse, Visual Basic.
IfThenElse, ( ).
: (Integer) (String). (Variant), , Visual Basic . .
, (File System Object). - . , .
MDIFrom:
Private Sub mnuAvtor_Click()
Private Sub mnuCreate_Click() , .
Private Sub mnuExit_Click() , .
2. frmIzm:
Private Sub cmdExit_Click() , pred.
Private Sub cmdEnd_Click() , test, , pred test, pred, .
Private Sub cmdRec_Click() .
Private Sub cmdOpen_Click() .
Private Sub cmdSave_Click() .
Private Sub cmdSled_Click() .
Private Sub Command1_Click() , test pred , test.
Public Sub cmdNext_Click() .
frmAvtor
Private Sub Command1_Click() ,
Ж 
//
Private Sub cmdRec_Click()
// ,
If opt1 = False And opt2 = False And opt3 = False Then
MsgBox (" ")
Else
Open k For Append As #1
Print #1, txtQuest.Text
// ,
If opt1 = True Then
Print #1, txtOtv1.Text & Chr(126)
Print #1, txtOtv2.Text
Print #1, txtOtv3.Text
End If
If opt2 = True Then
Print #1, txtOtv1.Text
Print #1, txtOtv2.Text & Chr(126)
Print #1, txtOtv3.Text
End If
If opt3 = True Then
Print #1, txtOtv1.Text
Print #1, txtOtv2.Text
Print #1, txtOtv3.Text & Chr(126)
End If
Close #1
End If
End Sub
|
