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

Các Cấu Trúc ðiều Khiển Written by: Dương Thành Phết 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á t

Trang 1

Written by: Dương Thành Phết

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

End Class

http://www.thayphet.net

This is trial version www.adultpdf.com

Trang 2

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 <Biểu thức ñiều kiện>

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

Trang 3

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.Text = "Hôm nay là " & thu

Trang 4

4.3 Cấu Trúc Lặp(For Next)

For <biến_ñếm=gt_ñầu> To <gt_cuối> [Step bước]

[Khối lệnh]

Next [biến_ñếm]

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

ð S

Trang 5

VD: Tạo Project tính tổng giá trị dãy số từ n ñến m (n<m)

Private Sub cmdTinh_Click( .) Handles cmdTinh.Click

Dim Nn As Integer, m As Integer, s As Integer, i As Integer

n = Val(txtSon.Text)

m = Val(txtSom.Text)

s = 0 For i = n To m

s = s + i Next

txtKetQua.Text = s End Sub

Trang 6

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 <ñiều kiện>

[Khối lệnh]

WEnd

Trang 7

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

Trang 8

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 <ñiều kiện>

[Khối lệnh]

Loop

Trang 9

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 <ñiều kiện>

[Khối lệnh]

Loop

Trang 10

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 <ñiều kiện>

Trang 11

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 <ñiều kiện>>

Trang 12

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:

4.9 Lệnh Exit trong cấu trúc lặp

Định dạng
Số trang	12
Dung lượng	1,38 MB