Tham khảo tài liệu 'tự học ngôn ngữ lập trình visual basic 2005 part 3', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 58 Chường 2 - Ngôn ngữ Visual Basic 2005 As Fraction Return Normalize - _ End Oper Jtor Public Shared Operator By Vai X As Fraction By Vai y As Fraction _ As Fraction Return Normalize End Operator Public Shared Operator ByVai X As Fraction ByVai y As Fraction _ As Fraction Return NorTialize _ End Operator Reduce a fraction. Private Shared Function Normalize ByVal numerator As Integer _ ByVai denominator As Integer As Fraction It numerator 0 And denominator 0 Then Fix signs. If denominator 0 Then denominator -1 numerator -1 End If Dim divisor As Integer GCD numerator denominator numerator divisor denominator divisor End If Return New Fraction numerator denominator End Function Return the greatest common divisor using Euclid s algorithm. Chương 2 - Ngôn ngơ visual Basic 2005 59 Private Shared Function GCD ByVal X As Integer. ByVai y As Integer _ As Integer Dim temp As Integer X x y y Do While y 0 temp X Mod y x y y temp Loop Return X End Function Convert the fraction to decimal form. Public Function GetDoublef As Double Return Double _ CType . Double End Function Get a string representation of the fraction. Public Overrides Function ĩoString As string Return 7 End Function End Structure Mã console được minh họa ở hình đặt lớp fraction phân số qua một phép thử. Nhờ vào sự quá tải toán tử nên số vẫn ố dạng phân số và độ chính xác không bị mất đi. Ví dụ . Kiểm tra lớp Fraction Module FractionTest Sub Main Dim f1 As New Fraction 2 3 Dim f2 As New Fraction 4 60 Chương 2 - Ngôn ngữ Visual Basic 2005 Console. WriteLìne 11 Console .WriteLineft2 Dim f3 As Fraction 13 11 t2 13 is now 11 12 H f2 f3 11 12 f3 is now 8 3 f1 f2
