1
| Value | True, , False |
| Caption | , |
| Visible | , , |
, : .
Private Sub Command1_Click()
Dim per As Integer
Dim vtor As Integer
Dim rez As Integer
per = a.Text
vtor = b.Text
If Option1.Value = True Then rez = per + vtor
If Option2.Value = True Then rez = per * vtor
p.Text = rez
End Sub
-, Frame pictureBox (. 1.). , , , OptionButton .
. 1.
, . . .
, , . . Properties value False. . Enabled () False. .
Frame , . , Frame .
Frame , .2.
2. Frame
| Appearance | 0-Flat 1-3D, |
| BorderStyle | , . 0-None ( ) 1-Fixed Single ( ) |
| Caption | , . , |
, 3- ( , , ).
( .Option).
|
|
|
If Optionk.value=True then
end if
. k , Option.Value=True , If / End if
, :
, .
Command1_Click()
Private Sub Command1_Click()
Y1 = Val(Text1.Text)
yh = Val(Text2.Text)
y = Y1
If Option1 = True Then
Label13 = " "
d = 1
For k = 1 To 37 Step 2
d = d * (y + 2.3)
y = y + yh
Next k
End If
If Option2 = True Then
Label13 = " "
k = 1
d = 1
Do While k <= 37
d = d * (y + 2.3)
y = y + yh
k = k + 2
Loop
End If
If Option3 = True Then
Label13 = " "
d = 1
k = 1
Do
d = d * (y + 2.3)
y = y + yh
k = k + 2
Loop Until k > 37
End If
Label14 = d
End Sub
1. ? ?
2. ?
3. ?
4. extBox?
5. ?
