Prog. Langs (VBA) 2

Sub Main()

    Dim a As Integer

    a = CInt(InputBox("Please input a number", "Question"))
    MsgBox ("You have " & CheckGrade(a) & " grade.")

End Sub

Function CheckGrade(a As Integer) As String
    If a < 51 Then
        CheckGrade = "F"
    Else
        If a < 61 Then
            CheckGrade = "E"
        Else
            If a < 71 Then
                CheckGrade = "D"
            Else
                If a < 81 Then
                    CheckGrade = "C"
                Else
                    If a < 91 Then
                        CheckGrade = "B"
                    Else
                        CheckGrade = "A"
                    End If
                End If
            End If
        End If
    End If
End Function
'---------------------------------------------------------------------------------------------------------
Sub Main()

    Dim a As Integer

    a = CInt(InputBox("Enter a number"))

    Select Case a

        Case 1: MsgBox ("One")
        Case 2: MsgBox ("Two")
        Case 3: MsgBox ("Three")
        Case 4 To 10
            MsgBox ("From four to ten")
        Case Else
            MsgBox ("Other")

    End Select

End Sub
'---------------------------------------------------------------------------------------------------------
Sub Main()

    Dim N As Integer
    Dim k As Integer
    Dim i As Integer

    k = 1
    N = InputBox("Enter a number")

    For i = 2 To N
        k = k * i
    Next i

    MsgBox (k)

End Sub
'---------------------------------------------------------------------------------------------------------
Sub Main()

    Dim N As Integer

    N = CInt(InputBox("Enter a number"))

    If y = Empty Then
        MsgBox ("Is empty!")
    End If

    If N Mod 2 = 0 Then
        MsgBox ("Not prime!")
    Else
        Dim k As Integer
        For k = 3 To N \ 2 Step 2
            If N Mod k = 0 Then
                Exit For
            End If
        Next k

        If k <= N \ 2 Then
            MsgBox ("Not prime!")
        Else
            MsgBox ("Is prime.")
        End If
    End If

End Sub
'---------------------------------------------------------------------------------------------------------
Public Sub Main()

    Dim a As Integer
    Dim b As Integer

    a = CInt(InputBox("Enter number a"))
    b = CInt(InputBox("Enter number b"))

    Dim c As Integer
    c = GCD(a, b)

    MsgBox ("GCD of " & a & " and " & b & " is " & c)

End Sub

Function GCD(ByVal a As Integer, ByVal b As Integer) As Integer

    Do While a <> b
        If a > b Then
            a = a - b
         Else
            b = b - a
         End If
    Loop

    GCD = a

End Function
'---------------------------------------------------------------------------------------------------------
Public Sub Main()

    Dim a As Integer, b As Integer
    a = 15
    b = 9
    MsgBox ("a = " & a & ", b = " & b)
    Call MySwap(a, b)
    MsgBox ("a = " & a & ", b = " & b)
    MsgBox (MyFun(7))

End Sub

Sub MySwap(ByRef a As Integer, ByRef d As Integer)

    Dim c As Integer
    c = a
    a = b
    b = c

End Sub

Function MyFun(a As Integer) As Integer

    MyFun = a
    Exit Function
    MyFun = a * a

End Function
'---------------------------------------------------------------------------------------------------------
Public Sub Main()

    Dim q As Ratio
    Set q = New Ratio
    q.Init 8, 5

    Dim c As Double
    c = q.Decim

    MsgBox (c)

    Set q = Nothing

    MsgBox (IIf(True, "Yes", "No"))

    Dim a
    Dim b
    a = "D:\qseli\"
    b = Dir(a)
    While b <> ""
        Debug.Print b
        b = Dir(b)
    Wend

End Sub
'---------------------------------------------------------------------------------------------------------

' Class - Ratio
Public M As Integer
Public N As Integer

Sub Init(a As Integer, b As Integer)
    Me.M = a
    Me.N = b
End Sub

Function Decim() As Double
    Decim = M / N
End Function
'---------------------------------------------------------------------------------------------------------
' In *.vbs file
Dim xls

Set con = CreateObject("WinHttp.WinHttpRequest.5.1")
con.Open "GET", "http://tbil.info/TBILINFO/TIWS.svc/SubSquare?a=3&b=4", True
con.Send

If con.WaitForResponse(10) Then
    MsgBox(con.ResponseText)
Else
    MsgBox("Can't get response!")
End If