1.
.
2.
2.1. .
2.2. , .
. .
Option Base 1
Public C(2, 2) As Variant
Public i, j As Integer
Private Sub Command1_Click()
Cls
c1$ = " "
For i = 1 To 2
For j = 1 To 2
t$ = " " + Str(i) + " " + Str(j)
C(i, j) = InputBox(c1$, t$)
Next j
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 2
For j = 1 To 2
t$ = " " + Str(i) + " " + Str(j)
Print "C[" + Str(i) + ", " + Str(j) + "]="; C(i, j)
Next j
Next i
End Sub
Private Sub Command3_Click()
Max = C(1, 1)
For i = 1 To 2
For j = 1 To 2
If C(i, j) > Max Then
Max = C(i, j)
End If
Next j
Next i
Print "max=", Max
End Sub
.
1. ?
2. ?
.
1. .
2. .
3. .
4. .
14
1.
.
2.
2.1. .
2.2. .
Dim q As Integer '
Dim r As Integer '
Dim rate(1 To 4) As Integer '
Dim comment(1 To 4) As String
'
Dim f As String
'
Sub NextQuestion()
If Not EOF(1) Then '
'
Line Input #1, f
Label1.Caption = f
'
Line Input #1, f
Option1.Caption = f
Line Input #1, f
Option1.Tag = f
' : 1 - , 0 - ;
' 0 1
Tag
' Option
Line Input #1, f
Option2.Caption = f
Line Input #1, f
Option2.Tag = f
Line Input #1, f
Option3.Caption = f
Line Input #1, f
Option3.Tag = f
'
Option1.Value = False
Option2.Value = False
Option3.Value = False
Command1.Enabled = False
'
q = q + 1
' -
If EOF(1) Then Command1.Caption = "ʳ"
End If
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then r = r + Option1.Tag
If Option2.Value = True Then r = r + Option2.Tag
If Option3.Value = True Then r = r + Option3.Tag
If Command1.Caption = " " Then
|
|
Command1.Caption = ""
Label1.Height = Label1.Height / 2
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
'
Seek #1, 1
Line Input #1, f
Form1.Caption = f
'
For i = 1 To 4 Step 1
Line Input #1, f
comment(i) = f
Line Input #1, f
rate(i) = f
Next
'
q = 0
r = 0
'
NextQuestion
Exit Sub
End If
If Command1.Caption = "ʳ" Then
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Label1.Height = Label1.Height * 2
Label1.Caption = " ." + Chr(13) + _
" : " + Format$(r) + " " + Format$(q) + "."
i = 1
While (r < rate(i)) And (i < 4)
i = i + 1
Wend
'
'Label1.Caption = Label1.Caption + Chr(13) + comment()
Command1.Caption = ""
Else
NextQuestion
End If
End Sub
Private Sub Command2_Click()
Close #1 '
Unload Form1
End Sub
Private Sub Form_Initialize()
Label1.Font.Size = 10
FileName = "E:\olga\Projects\ (6)" + "\text.txt"
Open FileName For Input As #1 '
'
Line Input #1, f '
Form1.Caption = f
For i = 1 To 4 Step 1
Line Input #1, f
comment(i) = f
Line Input #1, f
rate(i) = f
Next
q = 0
r = 0
NextQuestion
End Sub
Private Sub Option1_Click()
Command1.Enabled = True
End Sub
Private Sub Option2_Click()
Command1.Enabled = True
End Sub
Private Sub Option3_Click()
Command1.Enabled = True
End SubDim q As Integer '
test.txt
. - ²̲!
. - .
. - ².
. - !
:
" "
" "
""
?
,
' ?
:
,
,
,
-, ?
(, )
:
.
1. ?
.
1. , 10.
2. .