50 lines
1.4 KiB
Text
50 lines
1.4 KiB
Text
Rem Òèïû äàííûõ è Öèêëû
|
|
Rem +íåìíîãî î ðàáîòå ñ äàòîé
|
|
|
|
Option Explicit
|
|
|
|
Dim a, b
|
|
Dim num
|
|
Dim name, result
|
|
Dim brthdate
|
|
Dim instrChar
|
|
|
|
a = 10
|
|
b = 20
|
|
|
|
MsgBox "Ïðèâåò!"
|
|
|
|
Rem Áåññìûñëåííàÿ ïðîâåðêà ïåðåìåííûõ
|
|
if a = 10 then MsgBox "a = 10!" End if
|
|
if b = 20 then MsgBox "b = 20!" else MsgBox "b íå= 20!" End if
|
|
|
|
Rem Ïðîâåðêà ââåä¸ííîãî ÷èñëà
|
|
Rem CInt - Convert to Integer
|
|
num = CInt(InputBox("Ââåäè ëþáîå ÷èñëî", "Èíïóò"))
|
|
|
|
Rem if, elseif, else, End if - ïî÷òè êàê â Bash èëè Python
|
|
If num < a then
|
|
MsgBox "Òâî¸ ÷èñëî ìåíüøå " & a & "."
|
|
elseif num > b then
|
|
MsgBox "Òâî¸ ÷èñëî áîëüøå " & b & "."
|
|
else
|
|
Rem vbCrLf - ýòî ñèìâîë íîâîé ñòðîêè
|
|
MsgBox "Òâî¸ ÷èñëî â ïðåäåëàõ " & a & " è " & b & "," & vbCrLf & "ò.å. áîëüøå, ÷åì " & a & ", íî ìåíüøå, ÷åì " & b & "."
|
|
End if
|
|
|
|
Rem Ïðîâåðêà êíîïêè
|
|
name = InputBox("Ââåäè èìÿ", "Èíïóò")
|
|
result = MsgBox("Ïðèâåò, " & name & "!", vbOKCancel, "Ñîîáùåíèå")
|
|
If result = vbOK then MsgBox "Ïîêà!" End if
|
|
|
|
Rem Ïðîâåðêà èìåíè è äàòû ðîæäåíèÿ
|
|
Rem CDate - Convert to Date
|
|
brthdate = CDate(InputBox("Ââåäè äàòó ðîæäåíèÿ â ôîðìàòå ÄÄ.ÌÌ.ÃÃÃÃ èëè ÄÄ/ÌÌ/ÃÃÃÃ", "Èíïóò"))
|
|
|
|
instrChar = InStr(name, "Àíäðåé") 'èùåì ìî¸ èìÿ - Àíäðåé - â óêàçàííîì èìåíè
|
|
|
|
If (Not instrChar = 0) And Day(brthdate) = 13 And Month(brthdate) = 7 And Year(brthdate) = 2009 then
|
|
MsgBox "Âîçìîæíî, òû ðàçðàáîò÷èê ýòîãî ñêðèïòà!"
|
|
else
|
|
MsgBox "OK"
|
|
End if
|