Module Module1
Function Tong(ByVal n As Integer) As Integer
Dim S As Integer = 0
Dim i As Integer
For i = 0 To n Step 1
S = S + i
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Integer = 10
kq = Tong(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal n As Integer) As Integer
Dim S As Integer = 0
Dim i As Integer
For i = 0 To n Step 1
S = S + i * i
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Integer
kq = Tong(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal n As Integer) As Double
Dim S As Double = 0
Dim i As Integer
For i = 1 To n Step 1
S = S + (1 / i)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal n As Integer) As Double
Dim S As Double = 0
Dim i As Integer
For i = 1 To n Step 1
S = S + 1 / (2 * i)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal n As Integer) As Double
Dim S As Double = 1
Dim i As Integer
For i = 1 To n Step 1
S = S + 1 / (2 * i + 1)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal n As Integer) As Double
Dim S As Double = 0
Dim i As Integer
For i = 1 To n Step 1
S = S + 1 / (i * (i + 1))
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal n As Integer) As Double
Dim S As Double = 0
Dim i As Integer
For i = 1 To n Step 1
S = S + i / (i + 1)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal n As Integer) As Double
Dim S As Double = 0
Dim i As Integer
For i = 0 To n Step 1
S = S + (2 * i + 1) / (2 * i + 2)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tich(ByVal n As Integer) As Integer
Dim T As Integer = 1
Dim i As Integer
For i = 1 To n Step 1
T = T * i
Next
Return T
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tich(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function LuyThua(ByVal x As Double, ByVal n As Integer) As Double
Dim T As Double
T = x ^ n
Return T
End Function
Sub Main()
Dim n, x As Integer
Console.WriteLine("Nhap Vao So x: ")
x = Console.ReadLine()
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = LuyThua(x, n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function TongTich(ByVal n As Integer) As Integer
Dim T As Integer = 1
Dim S As Integer = 0
Dim i As Integer
For i = 1 To n Step 1
T = T * i
S = S + T
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Integer
kq = TongTich(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function TongMu(ByVal x As Double, ByVal n As Integer) As Double
Dim T As Integer = 1
Dim S As Integer = 0
Dim i As Integer
For i = 1 To n Step 1
T = x ^ i
S = S + T
Next
Return S
End Function
Sub Main()
Dim n, x As Integer
Console.WriteLine("Nhap Vao So x: ")
x = Console.ReadLine()
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = TongMu(x, n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function TongMu(ByVal x As Double, ByVal n As Integer) As Double
Dim T As Integer = 1
Dim S As Integer = 0
Dim i As Integer
For i = 1 To n Step 1
T = x ^ (2 * i)
S = S + T
Next
Return S
End Function
Sub Main()
Dim n, x As Integer
Console.WriteLine("Nhap Vao So x: ")
x = Console.ReadLine()
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = TongMu(x, n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function TongMu(ByVal x As Double, ByVal n As Integer) As Double
Dim T As Integer = 1
Dim S As Integer = 0
Dim i As Integer
For i = 0 To n Step 1
T = x ^ (2 * i + 1)
S = S + T
Next
Return S
End Function
Sub Main()
Dim n, x As Integer
Console.WriteLine("Nhap Vao So x: ")
x = Console.ReadLine()
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = TongMu(x, n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal n As Integer) As Double
Dim S As Double = 0
Dim M As Integer = 0
Dim i As Integer
For i = 1 To n Step 1
M = M + i
S = S + (1 / M)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal x As Double, ByVal n As Integer) As Double
Dim S As Double = 0
Dim M As Integer = 0
Dim i As Integer
For i = 1 To n Step 1
M = M + i
S = S + (x ^ i) / M
Next
Return S
End Function
Sub Main()
Dim x As Integer
Console.WriteLine("Nhap Vao So x: ")
x = Console.ReadLine()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(x, n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal x As Double, ByVal n As Integer) As Double
Dim S As Double = 0
Dim M As Integer = 1
Dim i As Integer
For i = 1 To n Step 1
M = M * i
S = S + (x ^ i) / M
Next
Return S
End Function
Sub Main()
Dim x As Integer
Console.WriteLine("Nhap Vao So x: ")
x = Console.ReadLine()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(x, n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal x As Double, ByVal n As Integer) As Double
Dim S As Double = 1
Dim M As Integer = 1
Dim T As Double = x
Dim i As Integer
For i = 2 To 2 * n Step 2
T = x ^ i
M = M * (i - 1) * i
S = S + T / M
Next
Return S
End Function
Sub Main()
Dim x As Integer
Console.WriteLine("Nhap Vao So x: ")
x = Console.ReadLine()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(x, n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Function Tong(ByVal x As Double, ByVal n As Integer) As Double
Dim S As Double = 1 + x
Dim M As Integer = 1
Dim T As Double = x
Dim i As Integer
For i = 3 To 2 * n + 1 Step 2
T = x ^ i
M = M * i * (i - 1)
S = S + T / M
Next
Return S
End Function
Sub Main()
Dim x As Integer
Console.WriteLine("Nhap Vao So x: ")
x = Console.ReadLine()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Double
kq = Tong(x, n)
Console.WriteLine("Ket qua : " & kq)
End Sub
End Module

Module Module1
Sub UocSo(ByVal n As Integer)
Dim i As Integer
For i = 1 To n Step 1
If (n Mod i = 0) Then
Console.Write(i & " ")
End If
Next
End Sub
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
Console.WriteLine("Tat Ca Cac Uoc So Cua {0}: ", n)
UocSo(n)
End Sub
End Module

Module Module1
Function TongUocSo(ByVal n As Integer) As Integer
Dim S As Integer
Dim i As Integer
For i = 1 To n Step 1
If (n Mod i = 0) Then
S = S + i
End If
Next
Return S
End Function
Sub Main()
Dim n, kq As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongUocSo(n)
Console.WriteLine("Tong Tat Ca Cac Uoc So Cua {0}: {1}", n, kq)
End Sub
End Module

Module Module1
Function TichUocSo(ByVal n As Integer) As Integer
Dim T As Integer = 1
Dim i As Integer
For i = 1 To n Step 1
If (n Mod i = 0) Then
T = T * i
End If
Next
Return T
End Function
Sub Main()
Dim n, kq As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TichUocSo(n)
Console.WriteLine("Tich Tat Ca Cac Uoc So Cua {0}: {1}", n, kq)
End Sub
End Module

Module Module1
Function DemUocSo(ByVal n As Integer) As Integer
Dim D As Integer
Dim i As Integer
For i = 1 To n Step 1
If (n Mod i = 0) Then
D += 1
End If
Next
Return D
End Function
Sub Main()
Dim n, kq As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = DemUocSo(n)
Console.WriteLine(" So Luong Uoc So Cua {0}: {1}", n, kq)
End Sub
End Module

Module Module1
Sub LietKeUocSoLe(ByVal n As Integer)
Dim i As Integer
Console.WriteLine("Tat Ca Cac Uoc So Le Cua {0}: ", n)
For i = 1 To n Step 2
If (n Mod i = 0) Then
Console.Write(i & " ")
End If
Next
End Sub
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
LietKeUocSoLe(n)
End Sub
End Module

Module Module1
Sub LietKeUocSoChan(ByVal n As Integer)
Dim i As Integer
Console.WriteLine("Tat Ca Cac Uoc So Chan Cua {0}: ", n)
For i = 2 To n Step 2
If (n Mod i = 0) Then
Console.Write(i & " ")
End If
Next
End Sub
Sub Main()
Dim n As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
LietKeUocSoChan(n)
End Sub
End Module

Module Module1
Function TichUocSoLe(ByVal n As Integer) As Integer
Dim T As Integer = 1
Dim i As Integer
For i = 1 To n Step 2
If (n Mod i = 0) Then
T = T * i
End If
Next
Return T
End Function
Sub Main()
Dim n, kq As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TichUocSoLe(n)
Console.WriteLine("Tich Tat Ca Cac Uoc So Le Cua {0}: {1}", n, kq)
End Sub
End Module

Module Module1
Function DemUocSo(ByVal n As Integer) As Integer
Dim D As Integer
Dim i As Integer
For i = 2 To n Step 2
If (n Mod i = 0) Then
D += 1
End If
Next
Return D
End Function
Sub Main()
Dim n, kq As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = DemUocSo(n)
Console.WriteLine(" So Luong Uoc So Chan Cua {0}: {1}", n, kq)
End Sub
End Module

Module Module1
Function TongUocSo(ByVal n As Integer) As Integer
Dim S As Integer
Dim i As Integer
For i = 1 To n - 1 Step 1
If (n Mod i = 0) Then
S = S + i
End If
Next
Return S
End Function
Sub Main()
Dim n, kq As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongUocSo(n)
Console.WriteLine("Tong Tat Ca Cac Uoc So Nho Hon {0}: {1}", n, kq)
End Sub
End Module

Module Module1
Function TongUocSo(ByVal n As Integer) As Integer
Dim T As Integer
Dim i As Integer
For i = 1 To n - 1 Step 2
If (n Mod i = 0) Then
T = i
End If
Next
Return T
End Function
Sub Main()
Dim n, kq As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongUocSo(n)
Console.WriteLine("Uoc So Le Lon Nhat Cua {0}: {1}", n, kq)
End Sub
End Module

Module Module1
Function KTHoanThien(ByVal n As Integer) As Integer
Dim S As Integer
Dim i As Integer
For i = 1 To n - 1 Step 1
If (n Mod i = 0) Then
S = S + i
End If
Next
If S = n Then
Return 1
Else
Return 0
End If
End Function
Sub Main()
Dim n, kq As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = KTHoanThien(n)
If kq = 1 Then
Console.WriteLine("{0} La So Hoan Thien ", n)
Else
Console.WriteLine("{0} Khong La So Hoan Thien ", n)
End If
End Sub
End Module

Module Module1
Function KTChinhPhuong(ByVal n As Integer) As Integer
Dim D As Integer
Dim i As Integer
For i = 1 To n Step 1
D = i * i
If D = n Then
Return 1
End If
Next
Return 0
End Function
Sub Main()
Dim n, kq As Integer
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = KTChinhPhuong(n)
If kq = 1 Then
Console.WriteLine("{0} La So Chinh Phuong ", n)
Else
Console.WriteLine("{0} Khong La So Chinh Phuong", n)
End If
End Sub
End Module

Module Module1
Function TongCan(ByVal n As Integer) As Double
Dim S As Double = 0
Dim i As Integer
For i = 1 To n Step 1
S = Math.Sqrt(2 + S)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongCan(n)
Console.WriteLine("Ket Qua : {0}", kq)
End Sub
End Module

Module Module1
Function TongCan(ByVal n As Integer) As Double
Dim S As Double = 0
Dim i As Integer
For i = 1 To n Step 1
S = Math.Sqrt(i + S)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongCan(n)
Console.WriteLine("Ket Qua : {0}", kq)
End Sub
End Module

Module Module1
Function TongCan(ByVal n As Integer) As Double
Dim S As Double = 0
Dim i As Integer
For i = n To 1 Step -1
S = Math.Sqrt(i + S)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongCan(n)
Console.WriteLine("Ket Qua : {0}", kq)
End Sub
End Module

Module Module1
Function TongCan(ByVal n As Integer) As Double
Dim S As Double
Dim T As Integer = 1
Dim i As Integer
For i = 1 To n Step 1
T = T * i
S = Math.Sqrt(T + S)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongCan(n)
Console.WriteLine("Ket Qua : {0}", kq)
End Sub
End Module

Module Module1
Function TongCan(ByVal n As Integer) As Double
Dim S As Double
Dim i As Integer
For i = 2 To n Step 1
S = Math.Pow(i + S, 1 / i)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongCan(n)
kq = Math.Pow(4.41, 1 / 3)
Console.WriteLine("Ket Qua : {0}", kq)
End Sub
End Module

Module Module1
Function TongCan(ByVal n As Integer) As Double
Dim S As Double
Dim i As Integer
For i = 1 To n Step 1
S = Math.Pow(i + S, 1 / (i + 1))
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongCan(n)
Console.WriteLine("Ket Qua : {0}", kq)
End Sub
End Module

Module Module1
Function TongCan(ByVal n As Integer) As Double
Dim S As Double
Dim i As Integer
Dim T As Integer = 1
For i = 1 To n Step 1
T = T * i
S = Math.Pow(T + S, 1 / (i + 1))
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongCan(n)
Console.WriteLine("Ket Qua : {0}", kq)
End Sub
End Module

Module Module1
Function TongCan(ByVal x As Single, ByVal n As Integer) As Double
Dim S As Double
Dim i As Integer
Dim T As Single = 1
For i = 1 To n Step 1
T = T * x
S = Math.Sqrt(T + S)
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim x As Single
Dim kq As Double
Console.WriteLine("Nhap Vao So x: ")
x = Console.ReadLine()
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongCan(x, n)
Console.WriteLine("Ket Qua : {0}", kq)
End Sub
End Module

Module Module1
Function TongPS(ByVal n As Integer) As Double
Dim S As Double = 1 + 1 / 2
Dim i As Integer
Dim T As Single = 1
For i = 2 To n Step 1
S = 1 + 1 / S
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongPS(n)
Console.WriteLine("Ket Qua : {0}", kq)
End Sub
End Module

Module Module1
Function TongCan(ByVal n As Integer) As Double
Dim S As Integer
Dim i As Integer
For i = 1 To n Step 1
S = S + i
If S >= n Then
Return i - 1
End If
Next
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.WriteLine("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongCan(n)
Console.WriteLine("So Nguyen Duong Thoa : {0}", kq)
End Sub
End Module

Module Module1
Public Function DemSL(ByVal n As Integer) As Integer
Dim D As Integer
Dim T As Integer
While n <> 0
T = n Mod 10
If T <> 0 Then
D = D + 1
End If
n = n \ 10
End While
Return D
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = DemSL(n)
Console.WriteLine("So Luong Chu So : {0}", kq)
End Sub
End Module

Module Module1
Function TongChuSo(ByVal n As Integer) As Integer
Dim S As Integer
Dim T As Integer
While n <> 0
T = n Mod 10
If T <> 0 Then
S = S + T
End If
n = n \ 10
End While
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongChuSo(n)
Console.WriteLine("Tong Chu So : {0}", kq)
End Sub
End Module

Module Module1
Function TichChuSo(ByVal n As Integer) As Integer
Dim T As Integer = 1
Dim Temp As Integer
While n <> 0
Temp = n Mod 10
If Temp <> 0 Then
T = T * Temp
End If
n = n \ 10
End While
Return T
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TichChuSo(n)
Console.WriteLine("Tich Cac Chu So : {0}", kq)
End Sub
End Module

Module Module1
Function DemSoLe(ByVal n As Integer) As Integer
Dim D As Integer
Dim T As Integer
While n <> 0
T = n Mod 10
If T <> 0 Then
If T Mod 2 <> 0 Then
D = D + 1
End If
End If
n = n \ 10
End While
Return D
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = DemSoLe(n)
Console.WriteLine("So Luong Chu So Le: {0}", kq)
End Sub
End Module

Module Module1
Function TongSoChan(ByVal n As Integer) As Integer
Dim S As Integer
Dim T As Integer
While n <> 0
T = n Mod 10
If T <> 0 Then
If T Mod 2 = 0 Then
S = S + T
End If
End If
n = n \ 10
End While
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongSoChan(n)
Console.WriteLine("Tong Chu So Chan: {0}", kq)
End Sub
End Module

Module Module1
Function TichSoLe(ByVal n As Integer) As Integer
Dim S As Integer = 1
Dim T As Integer
While n <> 0
T = n Mod 10
If T <> 0 Then
If T Mod 2 <> 0 Then
S = S * T
End If
End If
n = n \ 10
End While
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TichSoLe(n)
Console.WriteLine("Tich Chu So Le: {0}", kq)
End Sub
End Module

Module Module1
Function TichSoLe(ByVal n As Integer) As Integer
Dim S As Integer = 1
While n > 10
n = n / 10
End While
Return n
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TichSoLe(n)
Console.WriteLine("Chu So Dau Tien: {0}", kq)
End Sub
End Module

Module Module1
Public Function DemSL(ByVal n As Integer) As Integer
Dim D As Integer
Dim T As Integer
While n <> 0
T = n Mod 10
If T <> 0 Then
D = D + 1
End If
n = n /10
End While
Return D
End Function
Function KTNghichDao(ByVal n As Integer) As Integer
Dim so As Integer = DemSL(n)
Dim i As Integer
Dim temp As Integer = 1
For i = 2 To so Step 1
temp = temp * 10
Next
Dim K As Integer = n
Dim S, t As Integer
While K <> 0
t = K Mod 10
S = S + t * temp
K = K / 10
temp = temp / 10
End While
Return S
End Function
Sub Main()
Dim n As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
Dim kq As Integer = KTNghichDao(n)
Console.Write("So Nghich Dao: {0}", kq)
End Sub
End Module

Module Module1
Function ChuSoLonNhat(ByVal n As Integer) As Integer
Dim temp As Integer = 1
Dim T As Integer
While n <> 0
T = n Mod 10
If T > temp Then
temp = T
End If
n = n / 10
End While
Return temp
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = ChuSoLonNhat(n)
Console.WriteLine("Chu So Lon Nhat: {0}", kq)
End Sub
End Module

Module Module1
Function ChuSoNhoNhat(ByVal n As Integer) As Integer
Dim temp As Integer = 9
Dim T As Integer
While n <> 0
T = n Mod 10
If T < temp Then
temp = T
End If
n = n / 10
End While
Return temp
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = ChuSoNhoNhat(n)
Console.WriteLine("Chu So Nho Nhat: {0}", kq)
End Sub
End Module

Module Module1
Function ChuSoNhoNhat(ByVal n As Integer) As Integer
Dim temp As Integer = 1
Dim T As Integer
Dim D As Integer
Dim k = n
While k <> 0
T = k Mod 10
If T > temp Then
temp = T
End If
k = k / 10
End While
While n <> 0
T = n Mod 10
If T = temp Then
D = D + 1
End If
n = n / 10
End While
Return D
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = ChuSoNhoNhat(n)
Console.WriteLine("So Luong Chu So Lon Nhat: {0}", kq)
End Sub
End Module

Module Module1
Function SoDauTien(ByVal n As Integer) As Integer
Dim S As Integer = 1
Dim t As Integer = n
Dim temp, D As Integer
While t > 10
t = t / 10
End While
While n <> 0
temp = n Mod 10
If temp = t Then
D = D + 1
End If
n = n / 10
End While
Return D
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = SoDauTien(n)
Console.WriteLine("So Luong Chu So Dau Tien: {0}", kq)
End Sub
End Module

Module Module1
Function KTToanLe(ByVal n As Integer) As Integer
Dim t As Integer = n
Dim k As Integer
While t <> 0
k = t Mod 10
If k Mod 2 = 0 Then
Return 0
End If
t = t / 10
End While
Return 1
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = KTToanLe(n)
If kq = 1 Then
Console.WriteLine("Toan Chu So Le")
Else
Console.WriteLine("Khong Phai Toan Le")
End If

End Sub
End Module

Module Module1
Function KTToanChan(ByVal n As Integer) As Integer
Dim t As Integer = n
Dim k As Integer
While t <> 0
k = t Mod 10
If k Mod 2 <> 0 Then
Return 0
End If
t = t / 10
End While
Return 1
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = KTToanChan(n)
If kq = 1 Then
Console.WriteLine("Toan Chu So Chan")
Else
Console.WriteLine("Khong Phai Toan Chan")
End If
End Sub
End Module

Module Module1
Public Function DemSL(ByVal n As Integer) As Integer
Dim D As Integer
Dim T As Integer
While n <> 0
T = n Mod 10
If T <> 0 Then
D = D + 1
End If
n = n \ 10
End While
Return D
End Function
Function KTNghichDao(ByVal n As Integer) As Integer
Dim so As Integer = DemSL(n)
Dim i As Integer
Dim temp As Integer = 1
For i = 2 To so Step 1
temp = temp * 10
Next
Dim K As Integer = n
Dim S, t As Integer
While K <> 0
t = K Mod 10
S = S + t * temp
K = K \ 10
temp = temp \ 10
End While
Return S
End Function
Function KTDoiXung(ByVal n As Integer) As Integer
Dim sl As Integer = DemSL(n)
If sl Mod 2 = 0 Then
Return 0
End If
Dim ND As Integer = KTNghichDao(n)
If ND = n Then
Return 1
End If
Return 0
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = KTDoiXung(n)
If kq = 1 Then
Console.WriteLine("So Doi Xung ")
Else
Console.WriteLine("So Khong Doi Xung ")
End If
End Sub
End Module

Module Module1
Function KTTangDan(ByVal n As Integer) As Integer
Dim k As Integer = n
Dim temp As Integer = k Mod 10
k = k / 10
Dim t As Integer
While k <> 0
t = k Mod 10
If t > temp Then
Return 0
Else
temp = t
End If
k = k / 10
End While
Return 1
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = KTTangDan(n)
If kq = 1 Then
Console.WriteLine("Tang Dan tu Trai Sang Phai ")
Else
Console.WriteLine("Khong Tang Dan Tu Trai Sang Phai ")
End If
End Sub
End Module

Module Module1
Function KTGiamDan(ByVal n As Integer) As Integer
Dim k As Integer = n
Dim temp As Integer = k Mod 10
k = k \ 10
Dim t As Integer
While k <> 0
t = k Mod 10
If t < temp Then
Return 0
Else
temp = t
End If
k = k \ 10
End While
Return 1
End Function
Sub Main()
Dim n As Integer
Dim kq As Integer
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = KTGiamDan(n)
If kq = 1 Then
Console.WriteLine("Giam Dan tu Trai Sang Phai ")
Else
Console.WriteLine("Khong Giam Dan Tu Trai Sang Phai ")
End If
End Sub
End Module

Module Module1
Function UocChungLonNhat(ByVal a As Integer, ByVal b As Integer) As Integer
Dim t1 As Integer = a
Dim t2 As Integer = b
While t1 <> t2
If t1 > t2 Then
t1 = t1 - t2
Else
t2 = t2 - t1
End If
End While
Return t1
End Function
Sub Main()
Dim a, b As Integer
Dim kq As Integer
Console.Write("Nhap Vao So a: ")
a = Console.ReadLine()
Console.Write("Nhap Vao So b: ")
b = Console.ReadLine()
kq = UocChungLonNhat(a, b)
Console.WriteLine("Uoc Chung Lon Nhat : {0}", kq)
End Sub
End Module

Module Module1
Function BoiChungNhoNhat(ByVal a As Integer, ByVal b As Integer) As Integer
Dim t1 As Integer = a
Dim t2 As Integer = b
While t1 <> t2
If t1 > t2 Then
t1 = t1 - t2
Else
t2 = t2 - t1
End If
End While
Dim kq = a * b / t1
Return kq
End Function
Sub Main()
Dim a, b As Integer
Dim kq As Integer
Console.Write("Nhap Vao So a: ")
a = Console.ReadLine()
Console.Write("Nhap Vao So b: ")
b = Console.ReadLine()
kq = BoiChungNhoNhat(a, b)
Console.WriteLine("Boi Chung Nho Nhat : {0}", kq)
End Sub
End Module

Module Module1
Sub PTBac1(ByVal a As Integer, ByVal b As Integer)
If a = 0 Then
If b = 0 Then
Console.WriteLine("Phuong Trinh Vo So Nghiem")
Exit Sub
Else
Console.WriteLine("Phuong Trinh Vo Nghiem")
Exit Sub
End If
Else
Console.WriteLine("Nghiem X= {0}", -b / a)
End If
End Sub
Sub Main()
Dim a, b As Integer
Console.Write("Nhap Vao So a: ")
a = Console.ReadLine()
Console.Write("Nhap Vao So b: ")
b = Console.ReadLine()
PTBac1(a, b)
End Sub
End Module

Module Module1
Sub PTBac1(ByVal a As Integer, ByVal b As Integer)
If a = 0 Then
If b = 0 Then
Console.WriteLine("Phuong Trinh Vo So Nghiem")
Exit Sub
Else
Console.WriteLine("Phuong Trinh Vo Nghiem")
Exit Sub
End If
Else
Console.WriteLine("Nghiem X= {0}", -b / a)
End If
End Sub
Sub PTBac2(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
If a = 0 Then
PTBac1(b, c)
Else
Dim Delta As Double = b * b - 4 * a * c
If Delta < 0 Then
Console.WriteLine("Phuong Trinh Vo Nghiem")
ElseIf Delta = 0 Then
Console.WriteLine("Phuong Trinh Co Nghiem Kep X= {0}", -b / 2 * a)
Else
Console.WriteLine("Phuong Trinh Co 2 Nghiem \nX1= {0} X2={1}", (-b + Math.Sqrt(Delta)) / 2 * a, (-b - Math.Sqrt(Delta)) / 2 * a)
End If

End If
End Sub
Sub Main()
Dim a, b, c As Integer
Console.Write("Nhap Vao So a: ")
a = Console.ReadLine()
Console.Write("Nhap Vao So b: ")
b = Console.ReadLine()
Console.Write("Nhap Vao So c: ")
c = Console.ReadLine()
PTBac2(a, b, c)
End Sub
End Module

Module Module1
Sub PTBac1(ByVal a As Integer, ByVal b As Integer)
If a = 0 Then
If b = 0 Then
Console.WriteLine("Phuong Trinh Vo So Nghiem")
Exit Sub
Else
Console.WriteLine("Phuong Trinh Vo Nghiem")
Exit Sub
End If
Else
Console.WriteLine("Nghiem X= {0}", Math.Sqrt(-b / a))
End If
End Sub
Sub PTBac2(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
If a = 0 Then
PTBac1(b, c)
Else
Dim Delta As Double = b * b - 4 * a * c
If Delta < 0 Then
Console.WriteLine("Phuong Trinh Vo Nghiem")
ElseIf Delta = 0 Then
Console.WriteLine("Phuong Trinh Co Nghiem Kep X= {0}", -b / 2 * a)
Else
Console.WriteLine("Phuong Trinh Co 2 Nghiem \nX1= {0} X2={1}", (-b + Math.Sqrt(Delta)) / 2 * a, (-b - Math.Sqrt(Delta)) / 2 * a)
End If

End If
End Sub
Sub PTBac4(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)
If a = 0 Then
PTBac2(b, 0, c)
Else
Dim Delta As Double = b * b - 4 * a * c
If Delta < 0 Then
Console.WriteLine("Phuong Trinh Vo Nghiem")
ElseIf Delta = 0 Then
Console.WriteLine("Phuong Trinh Co Nghiem Kep X= {0}", Math.Sqrt(-b / 2 * a))
Else
Console.WriteLine("Phuong Trinh Co 2 Nghiem \nX1= {0} X2={1}", Math.Sqrt((-b + Math.Sqrt(Delta)) / 2 * a), Math.Sqrt((-b - Math.Sqrt(Delta)) / 2 * a))
End If

End If
End Sub
Sub Main()
Dim a, b, c As Integer
Console.Write("Nhap Vao So a: ")
a = Console.ReadLine()
Console.Write("Nhap Vao So b: ")
b = Console.ReadLine()
Console.Write("Nhap Vao So c: ")
c = Console.ReadLine()
PTBac4(a, b, c)
End Sub
End Module

Module Module1
Function TongLuyThua(ByVal x As Double, ByVal n As Integer) As Double
Dim S As Integer = 0
Dim T As Integer = -1
Dim i As Integer
For i = 1 To n Step 1
T = T * -x
S = S + T
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim x As Double
Dim kq As Double
Console.Write("Nhap Vao So x: ")
x = Console.ReadLine()
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongLuyThua(x, n)
Console.WriteLine("Ket Qua: {0}", kq)
End Sub
End Module

Module Module1
Function TongLuyThua(ByVal x As Double, ByVal n As Integer) As Double
Dim S As Integer = 0
Dim T As Integer = 1
Dim i As Integer
For i = 2 To 2 * n Step 2
T = T * -x * x
S = S + T
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim x As Double
Dim kq As Double
Console.Write("Nhap Vao So x: ")
x = Console.ReadLine()
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongLuyThua(x, n)
Console.WriteLine("Ket Qua: {0}", kq)
End Sub
End Module

Module Module1
Function TongLuyThua(ByVal x As Double, ByVal n As Integer) As Double
Dim S As Integer = 0
Dim T As Integer = x
Dim k = 1
Dim i As Integer
For i = 1 To 2 * n Step 2
T = k * (x ^ i)
S = S + T
k = k * -1
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim x As Double
Dim kq As Double
Console.Write("Nhap Vao So x: ")
x = Console.ReadLine()
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongLuyThua(x, n)
Console.WriteLine("Ket Qua: {0}", kq)
End Sub
End Module

Module Module1
Function TongPhanSo(ByVal n As Integer) As Double
Dim S As Double = 0
Dim T As Double = 0
Dim i As Integer
For i = 1 To n Step 1
T = 1 / (T + i)
S = S + T
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongPhanSo(n)
Console.WriteLine("Ket Qua: {0}", kq)
End Sub
End Module

Module Module1
Function TongPhanSo(ByVal x As Integer, ByVal n As Integer) As Double
Dim S As Double = 0
Dim T As Double = 1
Dim M As Integer = 0
Dim i As Integer
For i = 1 To n Step 1
T = T * -x
M = M + i
S = S + T / M
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim x, kq As Double
Console.Write("Nhap Vao So x: ")
x = Console.ReadLine()
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongPhanSo(x, n)
Console.WriteLine("Ket Qua: {0}", kq)
End Sub
End Module

Module Module1
Function TongPhanSo(ByVal x As Integer, ByVal n As Integer) As Double
Dim S As Double = 0
Dim T As Double = 1
Dim M As Integer = 1
Dim i As Integer
For i = 1 To n Step 1
T = T * -x
M = M * i
S = S + T / M
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim x, kq As Double
Console.Write("Nhap Vao So x: ")
x = Console.ReadLine()
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongPhanSo(x, n)
Console.WriteLine("Ket Qua: {0}", kq)
End Sub
End Module

Module Module1
Function TongPhanSo(ByVal x As Integer, ByVal n As Integer) As Double
Dim S As Double = -1
Dim T As Double = -1
Dim M As Integer = 1
Dim i As Integer
For i = 2 To 2 * n Step 2
T = T * -x * x
M = M * (i - 1) * i
S = S + T / M
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim x, kq As Double
Console.Write("Nhap Vao So x: ")
x = Console.ReadLine()
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongPhanSo(x, n)
Console.WriteLine("Ket Qua: {0}", kq)
End Sub
End Module

Module Module1
Function TongPhanSo(ByVal x As Integer, ByVal n As Integer) As Double
Dim S As Double = 1 - x
Dim T As Double = -x
Dim M As Integer = 1
Dim i As Integer
For i = 3 To 2 * n + 1 Step 2
T = T * -x * x
M = M * (i - 1) * i
S = S + T / M
Next
Return S
End Function
Sub Main()
Dim n As Integer
Dim x, kq As Double
Console.Write("Nhap Vao So x: ")
x = Console.ReadLine()
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = TongPhanSo(x, n)
Console.WriteLine("Ket Qua: {0}", kq)
End Sub
End Module

Module Module1
Function ChiaHet2MuK(ByVal n As Integer) As Integer
Dim t As Integer
If n = 1 Then
Return 0
End If
While n >= 2
t = n Mod 2
n = n \ 2
If t <> 0 Then
Return 0
End If
End While
Return 1
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = ChiaHet2MuK(n)
If kq = 1 Then
Console.WriteLine("Chia Het Cho 2 ^ K")
Else
Console.WriteLine("Khong Chia Het Cho 2 ^ K")
End If
End Sub
End Module

Module Module1
Function ChiaHet3MuK(ByVal n As Integer) As Integer
Dim t As Integer
If n = 1 Or n = 2 Then
Return 0
End If
While n >= 3
t = n Mod 3
n = n \ 3
If t <> 0 Then
Return 0
End If
End While
Return 1
End Function
Sub Main()
Dim n As Integer
Dim kq As Double
Console.Write("Nhap Vao So n: ")
n = Console.ReadLine()
kq = ChiaHet3MuK(n)
If kq = 1 Then
Console.WriteLine("Chia Het Cho 3 ^ K")
Else
Console.WriteLine("Khong Chia Het Cho 3 ^ K")
End If
End Sub
End Module