BÀI GIẢNG: Private Sub cmd Giai_Click pps

14 Private Sub cmdGiai_Click( ) Handles cmdGiai.Click a = Val(TxtHesoA.Text) b = Val(TxtHesoB.Text) If a Then lbNghiem.Visible = True txtNghiem.Visible = True ketqua = "Phương trình có nghi m " nghiem = -b / a Else If b = Then ketqua = "Phương trình vơ s nghi m" Else ketqua = "Phương trình vơ nghi m" End If End If txtKetqua.Text = ketqua txtNghiem.Text = nghiem cmdTiep.Visible = True cmdTiep.Focus() cmdGiai.Visible = False End Sub End Class Written by: Dương Thành Ph t This is trial version www.adultpdf.com http://www.thayphet.net Các C u Trúc ði u Khi n 4.2 Các C u Ch n L a (Select Case … End Select) Dùng trư ng h p mu n cung c p nhi u l a ch n: Select Case Case < Danh sách giá tr 1> Kh i l nh Case < Danh sách giá tr 2> [Kh i l nh [Case Else Các l nh c a Case Else] End Select 15 Written by: Dương Thành Ph t This is trial version www.adultpdf.com http://www.thayphet.net 16 Dim thu As String = "" Select Case Weekday(Today()) Case thu = "Ch nh t" Case thu = "Th hai" Case thu = "Th ba" Case thu = "Th tư" Case thu = "Th năm" Case thu = "Th sáu" Case thu = "Th b y" End Select lbThongbao.TextThis is " & thu = "Hôm trial version Written by: Dương Thành Ph t www.adultpdf.com http://www.thayphet.net Các C u Trúc ði u Khi n 4.3 C u Trúc L p(For Next) For To [Step bư c] [Kh i l nh] Next [bi n_ñ m] ð S 17 VD: Tính t ng s ch n t ñ n 10 Dim i As Integer, s as Long For i = To 10 Step s=s+i Next Written by: Dương Thành Ph t This is trial version www.adultpdf.com http://www.thayphet.net VD: T o Project tính t ng giá tr dãy s t n ñ n m (n 24 Written by: Dương Thành Ph t This is trial version www.adultpdf.com http://www.thayphet.net Các C u Trúc ði u Khi n 4.9 L nh Exit c u trúc l p Trong t t c vòng l p l nh Exit s giúp kh i vịng l p l p t c, b qua t t c l nh cịn l i thân vịng l p Các l nh Exit tương ng v i vòng l p sau: 25 Written by: Dương Thành Ph t This is trial version www.adultpdf.com http://www.thayphet.net ... n Private Sub cmdThuchien_Click( ) Handles cmdThuchien.Click Dim n As Integer, m As Integer n = txtSon.Text m=0 While (n 0) m = m * 10 + n Mod 10 n = n \ 10 WEnd txtSodao.Text = m End Sub. .. http://www.thayphet.net VD: T o Project tính t ng giá tr dãy s t n ñ n m (n