BÀI GIẢNG: Private Sub cmd Giai_Click

Chia sẻ: Trần Ngọc Mai | Ngày: | Loại File: PDF | Số trang:12

Thêm vào BST

Báo xấu

44
lượt xem 1
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Tham khảo tài liệu 'bài giảng: private sub cmd giai_click', 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ả

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: BÀI GIẢNG: Private Sub cmd Giai_Click

Private Sub cmdGiai_Click(. . . ) Handles cmdGiai.Click a = Val(TxtHesoA.Text) b = Val(TxtHesoB.Text) If a 0 Then lbNghiem.Visible = True txtNghiem.Visible = True ketqua = "Phương trình có 1 nghi m " nghiem = -b / a Else If b = 0 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 This is trial version End Class 14 14 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
4. 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 trong 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 các l nh 1 Case < Danh sách giá tr 2> [Kh i các l nh 2 ......... [Case Else Các l nh c a Case Else] End Select This is trial version 15 15 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
Dim thu As String = "" Select Case Weekday(Today()) Case 1 thu = "Ch nh t" Case 2 thu = "Th hai" Case 3 thu = "Th ba" Case 4 thu = "Th tư" Case 5 thu = "Th năm" Case 6 thu = "Th sáu" Case 7 thu = "Th b y" End Select lbThongbao.TextThis is nay là " & thu = "Hôm trial version 16 16 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
4. 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 VD: Tính t ng các s ch n t 1 ñ n 10 Dim i As Integer, s as Long For i = 1 To 10 Step 2 s=s+i Next This is trial version 17 17 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
VD: T o Project tính t ng giá tr dãy s t n ñ n m (n
4. Các C u Trúc ði u Khi n 4.4 C u Trúc L p (While … WEnd) Trong khi ñi u ki n l p còn ñúng, các câu l nh trong thân vòng l p còn ñư c th c hi n ti p While [Kh i l nh] WEnd This is trial version 19 19 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
VD: T o Project tính tìm s ñ o c a 1 s nguyên 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 This is trial version 20 20 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
4. Các C u Trúc ði u Khi n 4.5 C u Trúc L p (Do While … Loop) Trong khi ñi u ki n l p còn ñúng, các câu l nh trong thân vòng l p còn ñư c th c hi n ti p Do While [Kh i l nh] Loop This is trial version 21 21 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
4. Các C u Trúc ði u Khi n 4.6 C u Trúc L p (Do Until … Loop) Cho ñ n khi ñi u ki n l p ñúng, các câu l nh trong thân vòng l p còn ñư c th c hi n ti p Do Until [Kh i l nh] Loop This is trial version 22 22 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
4. Các C u Trúc ði u Khi n 4.7 C u Trúc L p (Do … Loop While) Các câu l nh trong thân vòng l p còn ñư c th c hi n ti p trong khi ñi u ki n l p còn ñúng. ðư c th c hi n ít nh t 1 l n Do [Kh i l nh] Loop While This is trial version 23 23 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
4. Các C u Trúc ði u Khi n 4.8 C u Trúc L p (Do … Loop Until) Các câu l nh trong thân vòng l p còn ñư c th c hi n ti p cho ñ n khi ñi u ki n l p ñúng. ðư c th c hi n ít nh t 1 l n Do [Kh i l nh] Loop Until > This is trial version 24 24 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com
4. Các C u Trúc ði u Khi n 4.9 L nh Exit trong c u trúc l p Trong t t c các vòng l p l nh Exit s giúp thoát ra kh i vòng l p ngay l p t c, b qua t t c các l nh còn l i trong thân vòng l p ñó. Các l nh Exit tương ng v i các vòng l p như sau: This is trial version 25 25 http://www.thayphet.net Written by: Dương Thành Ph t www.adultpdf.com