code phan so

by pham huu sam 16/10/2009, 11:06

Code:: Module XuLyPS Structure PhanSo Dim TuSo As Integer Dim MauSo As Integer Public Shared Operator +(ByVal ps1 As PhanSo, ByVal ps2 As PhanSo) As PhanSo Dim ps As PhanSo ps.TuSo = ps1.TuSo * ps2.MauSo + ps2.TuSo * ps2.MauSo ps.MauSo = ps1.MauSo * ps2.MauSo Return ps End Operator End Structure Sub Nhap(ByRef ps As PhanSo) Console.Write("Nhap tu so : ") ps.TuSo = Console.ReadLine() Console.Write("Nhap mau so : ") ps.MauSo = Console.ReadLine() End Sub Sub Xuat(ByVal ps As PhanSo) Console.WriteLine("Phan so la : " & ps.TuSo & "/" & ps.MauSo) End Sub End Module

//main

Code:: Module Module1 Sub Main() Dim ps1 As PhanSo Dim ps2 As PhanSo Dim ps As PhanSo Nhap(ps1) Nhap(ps2) ps = ps1 + ps2 Xuat(ps) End Sub End Module