, , .
Sub PsPr(ByVal A As Single, ByVal B As Single, ByVal C As Single) Dim P, S As Single If (A + B > C) And (B + C > A) And (C + A > B) Then PS(A, B, C, P, S):vivodSng3(P, TextBox4):vivodSng3(S,TextBox5) Else MsgBox("!" & vbNewLine &, _ " " _ &" .") TextBox1.Text = "" ' TextBox2.Text = "" ' TextBox3.Text = "" ' TextBox1.Focus() ' ' () '( ), ' End If End Sub |
. 4.4.2-3. PsPR() 3.4-3
, (A, B, , & ):
( + > ) & ( + C > ) & ( + C > ).
3.4-3 ,
Sub PSPr() (. 4.4.2-3). MsgBox() . , vbNewLine.
Select Case.
Select Case If...Then, , .
Select Case . :
Select Case Case 1 [ _ 1] [Case 2 [ _2 ] ] ... [Case Else [ _n ] ] End Select |
, i :
[, ... ] To Is _ |
, Case :
Case Is > 3 ' 3; Case x^2 ' ; Case 5 To 7 ' [5,7]; Case 1 To 4, 7 To 9, 11, 13, Is > Max |
, , , .
Select Case : , Case, _, , End Select. . Select Case . _, Case Else, , False (.. ).
|
|
: 1, 2 , Case Else .
, Select Case
Dim Age As Integer= 18 Select Case Age Case 16 Label1.Text=" !" Case 18 Label1.Text=" !" Case 21 Label1.Text=" -." Case 65 Label1.Text=" ." End Select |
. Age 18, Text !.
Select Case Case Else, , g.
Dim Age As Integer Age = 25 Select Case Age Case 16 Label1.Text = " !" Case 18 Label1.Text = " !" Case 21 Label1.Text = " -" Case 65 Label1.Text = " " Case Else Label1.Text = " ! !" End Select |
Select Case , =, <>, >, <, >= <=. , Is , . Is , , Is. . Is, , Age :
Select Case Age Case Is< 13 Label1.Text=" !" Case 13 To 19 Label1.Text =" !" Case 21 Label1.Text =" -" Case Is> 100 Label1.Text =" !" Case Else Label1.Text =" ." End Select |
g 13, !. 13 19 ! .
Select Case , If...Then, , . , , , If...Then.
, Select Case . ListBox1.Text ListBox1.Selected.IndexChanged, Select Case.
|
|