!!!! ( 0o_o0)Cần giúp đỡ!!!!!! rất gấp

[langtudatinh89]

Sắp tới mình phải thi VB.Net rồi.Thầy giao 1 số Bt về ôn thi.Nhưng chỉ có 1 số bài làm được còn mấy bài này nhờ mấy anh chị giúp.
Tất cả viết bằng VB.Net. Windows Application.
Phần thiết kế giao diện thì ko cần.Nhưng quan trọng nhất là MÃ
Bài 1: Chuyển số nhập từ bàn phím thành số La Mã.
VD: nhập 15 = XV
1 = I
4= IV
5 = V
9 =IX
10 = X
40 = XL
50 = L
90 = XC
100 = C
400 = CD
500 = D
900 = CM
1000 = M
Bài 2: Quản lý SV: Nhập tên ( có lệ ), điểm thi toán ,văn sau đó xuất ra ĐTB & Xếp loại
Bài 3 : Tính tổng N số Nguyên tố
Bài 4 :Viết chương trình nhập tọa độ 2 điểm 0xy và tính khoảng cách giữa 2 điểm
Trong một số bt trên thì mới nhìn có vẽ thấy đơn giản.Nhưng cũng rắn rối.
Tại sao lệnh if …… Elseif ….. else nó không chạy theo ý của mình.Mà nó chạy lung tung. Vậy ai có king nghiệm gì khi SD hàm if thì chỉ cho mình với.
(Nếu dùng ít thì không sao nhưng nếu dùng nhiều if thì hay nhầm lẫn hoặc chương trình không chạy …….)
Và một số loại hàm nào thường SD nhất trong lập trình.
cảm ơn mấy anh chị rất nhiều:hug:

 

[The Greek Warrior]

Private Sub cmdConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConvert.Click

        ' Khai bao mang kieu String strRoman chua chu cai La Ma 
        ' gia tri tuong ung trong mang intDecimal

        Dim strRoman() As String = {"M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"}
        Dim intDecimal() As Integer = {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1}
        Dim intInput As Integer = Nothing           ' Gia tri duoc nhap vao
        Dim intTemp As Integer = Nothing            ' de luu phan nguyen sau khi cat ra
        Dim intIndex As Short = 0                 ' Chi so mang, bat dau la vi tri dau tien
        Dim intCountI As Short = Nothing            'bien vong lap

        intInput = CInt(txtInput.Text)              'Chuyen kieu string tu input field sang so integer
        txtOutput.Clear()                           ' xoa textbox ket qua

        While intInput > 0                                  'Kiem tra gia tri nhap vao chua bang 0.
            intTemp = intInput \ intDecimal(intIndex )     'Lay phan nguyen cua so nhap vao

            For intCountI = 1 To intTemp
                txtOutput.Text += strRoman(intIndex )      'Noi cac chu cai la ma vao text box ket qua
            Next

            intInput -= intTemp * intDecimal(intIndex )    ' Tru di so ban dau cho gia tri da doi sang chuc ai la ma
            intIndex += 1                                 ' tang chi so mang strRoman va intDecimal
        End While

    End Sub

VD:
intInput=56789
inIndex=0

lần lặp đầu tiên
intTemp=56789\1000 =56
txtOuput=56chu M
intInput=789
inIndex=1

lần lặp 1
intTemp=789\900=0
txtOutput kg doi
intInput=789
inIndex=2

lần lặp 2
intTemp=789\500=1
txtOutput=56 chu M +D
intInput=289
inIndex=3

lần lặp 3
intTemp=289\400=0
txtOutput khong doi
intInput=289
inIndex=4

lần lặp 4
intTemp=289\100=2
txtOutput=56 chu M +D+2C
intInput=89
inIndex=5

lần lặp 5
intTemp=89\90=0
txtOutput=56 chu M +D+2C
intInput=89
inIndex=6

lần lặp 6
intTemp=89\50=1
txtOutput=56 chu M +D+2C+L
intInput=39
inIndex=7

......

cho đến khi inInput=0 thì sẽ được kết quả cuối cùng.

 

[langtudatinh89]

cảm ơn bạn nhiều lắm.Có gì mình còn hỏi típ.mình cũng giỡ VB lắm HIHIHIHI