Giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh On error goto p2

Tham khảo tài liệu 'giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh on error goto p2', công nghệ thông tin, quản trị web phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
Giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh On error goto p2 h a n g e Vi h a n g e Vi XC XC e e F- F- w w PD PD er er . ! ! ® W W Giáo trình Microsoft Access 2000 Copyright Nguyễn Sơn Hải O O N N y y bu bu to to k k lic lic C C w w m m w w w w o o .c .c .d o .d o c u -tr a c k c u -tr a c k Và mã lệnh cho form như sau: '--------------------------------------------------------- 'Hàm xác định USCNN của 2 số nguyên (thuật toán Ơ-cơ-lít) ' Function usc(a, b As Integer) As Integer Dim a1, b1 As Integer a1 = a b1 = b While a1 b1 If a1 > b1 Then a1 = a1 - b1 Else b1 = b1 - a1 End If Wend usc = a1 End Function '------------------------------- 'Mã lệnh cho nút Tính toán ' Private Sub cmdTinhToan_Click() txtUSC = usc(txtA, txtB) ...