Module Module1 ' Utilizarea variabilelor Sub Main() Dim nr As Double = 0 Dim nume As String = "curs programare" Dim comut As Boolean = True Console.WriteLine(nr) Console.WriteLine(nume) Console.WriteLine(comut) Console.ReadKey() End Sub End Module |
Module Module1 ' Utilizarea variabilelor Sub Main() Dim nr As Double = 0 Dim nume As String = "curs programare" Dim comut As Boolean = True nr = 345.789 nume = "Ionescu" comut = False Console.WriteLine(nr) Console.WriteLine(nume) Console.WriteLine(comut) Console.ReadKey() End Sub End Module |
Module Module1 ' Utilizarea constantelor Sub Main() Dim pret As Double = 23.44 Dim cant As Double = 5.5 Const cota_tva As Integer = 24 Console.WriteLine("Valoarea=" & pret * cant) Console.WriteLine("Valoarea cu TVA=" & pret * cant * (1 + cota_tva / 100)) Console.WriteLine("Valoarea TVA=" & pret * cant * cota_tva / 100) Console.ReadKey() End Sub End Module |
Module Module1 ' Utilizarea sirurilor de caractere Sub Main() Dim num As String Dim lit As Char Console.Write("Introduceti numele d-voastra: ") num = Console.ReadLine Console.Write("Introduceti initiala tatalui: ") lit = Console.ReadLine Console.WriteLine("Numele D-voastra este: " & num) Console.WriteLine("Initiala tatalui este: " & lit) Console.ReadKey() End Sub End Module |
Module Module1 ' Utilizarea variabilelor de tip intreg Sub Main() Dim num As Integer Dim imp As Integer Console.Write("Introduceti un numar: ") num = Console.ReadLine Console.Write("Introduceti impartitorul: ") imp = Console.ReadLine Console.WriteLine(num & "/" & imp & "=" & num / imp) Console.WriteLine("Restul impartirii: " & num & "/" & imp & " este= " & num Mod imp) Console.ReadKey() End Sub End Module |
Module Module1 ' Utilizarea numerelor reale ' Afisarea unui numar aleator Sub Main() ' Initializarea generatorului de numere aleatoare. Randomize() ' Generarea unui numar aleator intre 0 si 100. Dim r As Double = 100 * Rnd() Console.WriteLine("Numarul aleator este:" & r) Console.ReadKey() End Sub End Module |
Module Module1 ' Utilizarea altor tipuri de variabile Sub Main() Dim ora_min_sec As Date ora_min_sec = TimeOfDay() Console.WriteLine("Este ora " & CStr(ora_min_sec)) Console.ReadKey() End Sub End Module |
Module Module1 ' Utilizarea numerelor reale ' Afisarea unui numar aleator Sub Main() ' Initializarea generatorului de numere aleatoare. Randomize() ' Generarea unui numar real aleator intre 0 si 100. Dim r As Double = 100 * Rnd() Console.WriteLine("Numarul real aleator este:" & r) ' Generarea unui numar intreg aleator intre 0 si 100. Dim v_int As Integer = CInt(r) Console.WriteLine("Numarul intreg aleator este:" & v_int) Console.ReadKey() End Sub End Module |
Module Module1 ' Conversia unui string intr-un doube Sub Main() Dim r As Double Console.Write("Introduceti raza cercului:") r = Console.ReadLine() Dim pi_s As String = "3.14" Dim pi As Double = CDbl(pi_s) Console.WriteLine("Raza este: " & r) Console.WriteLine("Pi este: " & pi) Console.WriteLine("Lungimea cercului este: " & 2 * pi * r) Console.ReadKey() End Sub End Module |
Module Module1 ' Suma a doua numere intregi Sub Main() Dim numar1, numar2, suma As Integer Console.Write("Introduceti primul numar intreg: ") numar1 = Console.ReadLine Console.Write("Introduceti al doi-lea numar intreg: ") numar2 = Console.ReadLine suma = numar1 + numar2 Console.WriteLine(numar1 & "+" & numar2 & "=" & suma) Console.ReadKey() End Sub End Module |
Module Module1 ' Diferenta a doua numere intregi Sub Main() Dim numar1, numar2, difer As Integer Console.Write("Introduceti primul numar intreg: ") numar1 = Console.ReadLine Console.Write("Introduceti al doi-lea numar intreg: ") numar2 = Console.ReadLine difer = numar1 - numar2 Console.WriteLine(numar1 & "-" & numar2 & "=" & difer) Console.ReadKey() End Sub End Module |
Module Module1 ' Produsul a doua numere intregi Sub Main() Dim numar1, numar2, prod As Integer Console.Write("Introduceti primul numar intreg: ") numar1 = Console.ReadLine Console.Write("Introduceti al doi-lea numar intreg: ") numar2 = Console.ReadLine prod = numar1 * numar2 Console.WriteLine(numar1 & "*" & numar2 & "=" & prod) Console.ReadKey() End Sub End Module |
Module Module1 ' Raportul a doua numere intregi Sub Main() Dim numar1, numar2, imp As Integer Console.Write("Introduceti primul numar intreg: ") numar1 = Console.ReadLine Console.Write("Introduceti al doi-lea numar intreg: ") numar2 = Console.ReadLine imp = numar1 / numar2 Console.WriteLine(numar1 & "/" & numar2 & "=" & imp) Console.ReadKey() End Sub End Module |
Module Module1 ' Utilizarea operatorului modulo Sub Main() Dim num As Integer Dim imp As Integer Console.Write("Introduceti un numar: ") num = Console.ReadLine Console.Write("Introduceti impartitorul: ") imp = Console.ReadLine Console.WriteLine("Restul impartirii: " & num & "/" & imp & " este= " & num Mod imp) Console.ReadKey() End Sub End Module |
Module Module1 ' Ridicarea la putere Sub Main() Dim numar1, numar2, rez As Integer Console.Write("Introduceti numar intreg: ") numar1 = Console.ReadLine Console.Write("Introduceti exponentul: ") numar2 = Console.ReadLine rez = numar1 ^ numar2 Console.WriteLine(numar1 & "^" & numar2 & "=" & rez) Console.ReadKey() End Sub End Module |