Lời Hay Ý Đẹp
Latest topics
» Tự học lập trình IOS trong vòng 24h
by kenanh 27/1/2014, 22:28

» xin tài liệu một số môn học
by nguyentvvan 21/8/2013, 21:34

» [Thảo luận] Bài toán đong nước
by giathinh9x 9/1/2013, 22:39

» Học Marketing Online, Học Chuyên viên Internet Marketing Online tại iNET
by NIIT-iNET 19/6/2012, 14:23

» Học PHP nâng cao, Học lập trình web với PHP nâng cao tại học viện iNET
by NIIT-iNET 19/6/2012, 14:22

» Học PHP, học lập trình web với PHP tại iNET vào ngày 19/07/2012
by NIIT-iNET 19/6/2012, 14:20

» PHIÊN BẢN MỚI CHO THIÊN ĐƯỜNG CÁ Ô LA LA !!!
by todaytv 13/3/2012, 15:35

» [hot] game khu vườn địa đàng phiên bản mobile của KVTM
by trantinh1713 3/1/2012, 15:20

» Đề tham khảo (update phút 90)
by ndc_2209 29/12/2011, 10:26

» Học bổng Lời Dịch tuần này.
by tienganh123 1/11/2011, 13:13

» [Thảo luận] Quản lý phân công giảng dạy PTTH
by huyquang0510 5/10/2011, 09:52

» Học tiếng Nhật - Top Globis
by tuquynh 21/9/2011, 10:35

» Học tiếng Nhật - Top Globis
by tuquynh 8/8/2011, 11:19

» Order Imitrex Online
by Khách viếng thăm 4/8/2011, 18:46

» Speeds Caffeine Metabolism Up
by Khách viếng thăm 4/8/2011, 18:12

» Skin For Good Caffeine
by Khách viếng thăm 3/8/2011, 14:54

» Cheap Pvc Figures
by Khách viếng thăm 1/8/2011, 19:32

» Action Rapid Onset Zolpidem Of
by Khách viếng thăm 31/7/2011, 01:13

» TUYỂN NHÂN VIÊN KINH DOANH ( làm việc tại văn phòng )
by canhkientp 5/7/2011, 14:59

» Demo + Vài điểm thảo luận về LINQ - Nhóm 7
by ChuongTienPhat 3/7/2011, 12:19


code phan so

Go down

code phan so

Bài gửi by pham huu sam on 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
avatar
pham huu sam

Nam
Tổng số bài gửi : 1
Age : 29
Registration date : 11/10/2009

Về Đầu Trang Go down

Re: code phan so

Bài gửi by TranMinhTri on 17/10/2009, 21:02

Mày viết cái gì mà tao đọc chả hiểu gì hết zậy Sâm Lài ? Code dỡ quá rối tung cùi bắp :DD
avatar
TranMinhTri
| Bé Lớp Mầm |
| Bé Lớp Mầm |

Nam
Tổng số bài gửi : 49
Age : 29
Registration date : 10/06/2009

http://minhtrivn.net/

Về Đầu Trang Go down

Re: code phan so

Bài gửi by sylam_113 on 18/10/2009, 11:51

thanks Mr.Sam!
h5sh >:D< h5sh
avatar
sylam_113
| Trẻ Sơ Sinh |
| Trẻ Sơ Sinh |

Nam
Tổng số bài gửi : 34
Age : 28
Location : Home
Registration date : 26/11/2008

Về Đầu Trang Go down

Re: code phan so

Bài gửi by nguyenhoainam on 18/10/2009, 19:47

thank bác Sâm nhìu nha.......còn mấy bài kia...post hết lun đi Sâm... az
avatar
nguyenhoainam
[ Súp bơ man nhìu chjện ]

Nam
Tổng số bài gửi : 687
Age : 29
Location : Q.13, TPHCM
Registration date : 26/03/2008

Về Đầu Trang Go down

Re: code phan so

Bài gửi by buiminhnam on 26/10/2009, 10:04

Đúng rồi đó Bác Sâm post nhiều nhiều lên cho tụi em đc sáng mắt please
avatar
buiminhnam

Tổng số bài gửi : 18
Registration date : 14/03/2008

Về Đầu Trang Go down

Re: code phan so

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết