, - ( ). , , , . , . .
:
Click - . .
Change - .
:
( MultiLine)
Style - :
0 - ComboBox ( ).
1 - ComboBox .
2 - 0 , .
.
. : , , (.7.25).
. 7.25. .
Private Sub Command1_Click()
Dim As String, As String, As String
Dim As String, As String, As String
Dim As String
Open "c:\person.txt" For Append As #1
Do Until txtFam.Text = ""
= txtFam.Text
= txtName.Text
= txtOtch.Text
= txtTab.Text
= lstRasr.Text
If Option1.Value = True Then
= ""
Else
= ""
End If
If Check1 = 0 Then
= ""
Else
= ""
End If
txtFam.Text = ""
txtName.Text = ""
txtOtch.Text = ""
txtTab.Text = ""
Print #1, ; ","; ; ","; ; ","; ; ","; _
; ","; ; ",";
Loop
Close #1
End Sub
Private Sub Form_Load()
lstRasr.AddItem "10"
lstRasr.AddItem "11"
lstRasr.AddItem "12"
lstRasr.AddItem "13"
lstRasr.AddItem "14"
lstRasr.AddItem "15"
lstRasr.AddItem "16"
lstRasr.AddItem "17"
End Sub
1) - ?
2) ?
3) - ?
4) ? - .
5) WINDOWS- ?
6) ? Visual Basic.
7) ?
8) ?
|
|
9) Visual Basic?
10) Visual Basic?
11) ?
12) ?
13) ?
14) Visual Basic?
15) ?
16) ?
17) ?
18) ?
Visual Basic?
19) ?
20) . ?
21) , , .
1. S :
N | : | |
q 7 q 8 q 4 q 3 q 5 | DEFINT I,J,X,S DIM A(3,3) AS INTEGER FOR I=1 TO 3 FOR J=l TO 3 A(I,J)=ABS(2*I-J) NEXT J,I S=0 FOR I=1 TO 3 X=A(I,I) FOR J=I TO 3 IF A(I,J)=X THEN S=S+A(I,J) END IF NEXT J NEXT I PRINT S |
B
N | ||
q 21 q 22 q 33 q 14 q 18 | DEFINT I,N,E A$="dfeadefa" N=LEN(A$) B$="" FOR I=1 TO N-1 C$=MID$(A$, I+1) IF INT(LEN(C$)/2)>1 THEN B$=B$+C$ END IF NEXT I E=LEN(B$) PRINT E |
B
N | ||
q 22 q 44 q 1 q 2 q 6 | DEFINT I,N,E A$="dfeadefa" N=LEN(A$) B$="" FOR I=1 TO N-1 C$=MID$(A$, I+1) IF INT(LEN(C$)/2)<1 THEN B$=B$+C$ END IF NEXT I E=LEN(B$) PRINT E |
B
N | ||
q 3 q 21 q 5 q 4 q 1 | DEFINT I,N,E A$="dfeadefa": N=LEN(A$) B$="" FOR I=1 TO N-1 C$=MID$(A$, I+1) E=LEN(C$) MOD 3 IF E=2 THEN B$=B$+MID$(C$,1,2) END IF NEXT I E=LEN(B$) PRINT E |
B
N | ||
q 1 q 23 q 4 q 2 q 3 | DEFINT I,N,E A$="dfeadefa":N=LEN(A$) B$="" FOR I=1 TO N-1 C$=MID$(A$, I+1) E=LEN(C$) MOD 2 IF E=0 THEN B$=B$+MID$(C$,1,1) END IF NEXT I E=LEN(B$) PRINT E |
B
N | ||
q 7 q 8 q 4 q 5 q 22 | DEFINT I,N,E A$="dfeadefa":N=LEN(A$) B$="" FOR I=1 TO N-1 C$=MID$(A$, I+1) E=LEN(C$) MOD 3 IF E=1 THEN B$=B$+MID$(C$,1,3) END IF NEXT I E=LEN(B$) PRINT E |