HACKIS - Hacking Internet Security
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics
» Tuyệt Kỹ Đong Giai Chân Kinh (tuyệt Kỹ cua trai)
Tìm số lớn nhất trong 3 số EmptyThu Aug 23, 2012 5:38 am by Admin

» Tuyệt kỹ cua giai
Tìm số lớn nhất trong 3 số EmptyThu Aug 23, 2012 5:36 am by Admin

» NETCAT.........
Tìm số lớn nhất trong 3 số EmptyMon Aug 13, 2012 6:35 am by Admin

» Bảo mật CSDL bằng phương pháp mã hóa.
Tìm số lớn nhất trong 3 số EmptyTue Apr 17, 2012 10:04 pm by Admin

» Hàm mã hóa MD5 bằng JavaScript
Tìm số lớn nhất trong 3 số EmptyTue Apr 17, 2012 10:03 pm by Admin

» Giá của món quà
Tìm số lớn nhất trong 3 số EmptyFri Apr 13, 2012 6:01 am by Admin

» Sẽ chỉ yêu ai?
Tìm số lớn nhất trong 3 số EmptyFri Apr 13, 2012 6:01 am by Admin

» Cách đọc bảng chữ cái!
Tìm số lớn nhất trong 3 số EmptyThu Apr 12, 2012 10:37 pm by Admin

» Gắn trojan, keylog, virus vào website, forum
Tìm số lớn nhất trong 3 số EmptyTue Apr 10, 2012 1:14 am by Admin

Affiliates
free forum


Tìm số lớn nhất trong 3 số

Go down

Tìm số lớn nhất trong 3 số Empty Tìm số lớn nhất trong 3 số

Post  Admin Wed Dec 29, 2010 12:16 am

Code:
Imports System.Console
Module Module1

    Sub Main()
        Dim var1, var2, var3, Max, Min As Integer
        Console.Write("Moi ban nhap so thu nhat: ")
        var1 = Console.ReadLine()
        Write("Moi ban nhap so thu hai: ")
        var2 = ReadLine()
        Write("Moi ban nhap so thu ba: ")
        var3 = ReadLine()
        Max = var1 : Min = var1
        If Max < var2 Then
            Max = var2
        Else
            If Min > var2 Then
                Min = var2
            End If
        End If
        If Max < var3 Then
            Max = var3
        Else
            If Min > var3 Then
                Min = var3
            End If
        End If
        WriteLine("Max: " & Max)
        WriteLine("Min: " & Min)
        ReadKey()
    End Sub

End Module
Admin
Admin
Admin

Tổng số bài gửi : 782
Join date : 2009-08-15

https://hackis.forumvi.com

Back to top Go down

Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum