, :
| 4.0 - 4.24 | |
| 4.25 - 4.49 | |
| 4.5 5 |
Sub ()
Dim Stip, Srb
Srb = InputBox(Prompt:=" ", Title:="")
BoxTitle = ""
If Srb < 4 Then
Stip = 0
Else
If Srb < 4.25 Then
Stip = 90
Else
If Srb < 4.5 Then
Stip = 150
Else
Stip = 160
End If
End If
End If
MsgBox Stip,, BoxTitle
End Sub
5 , :2; 3.0; 4.3; 5.0
1
1 MS Word, , || , 5 3 .
2 |,| , .
2
MS Excel, :
1 || , : |,,
) |,,| |,,| |,,A1:A8 ||;
) , 0 || ;
) ;
) |,,| || .
, , .
. |,| || , || . .
2 , 2 || |,,| 1:8 - , |,,| ||.
3 ||: → .
3
VBA, , >=0, =4+5, =8
4
4.1 Visual Basic , : /<85.- =0, / 170. - =15% /, 85.+6,80; / 1020. - =20% \, 170.+19,55; / 1020.- =40% \, 1020.+393,55.
4.2 Visual Basic , : 100 . - ; 300 . - 2% ; 500 .- 5% ; 500 .- 10% .
.
4.3 Visual Basic , : 3 - ; 3 5 -=100., 5 -10 - =120., 10 =150.
|
|
|
.
10 7-8 㳿. Internet .
ϳ
| : | : |
| - ; - ; - ; - 볺; - ' ; - ; - ; - Internet; - /; - ; - ; - ; - DNS; - Web - - -; - ; - URL; - Internet Explorer; FTP . | - Internet ; - ; - 䳿 -; -Web- . |
