tailieunhanh - Tự học thiết kế chương trình cho học sinh làm toán bằng Visual Basic 6.0 tập 2 part 3

Tham khảo tài liệu 'tự học thiết kế chương trình cho học sinh làm toán bằng visual basic tập 2 part 3', công nghệ thông tin, cơ sở dữ liệu phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | For í - 1 To n - 1 For j n - 1 To Í Step -1 lí mang J - 1 mang j Then X mang j - 1 mang j - 1 - mang p mang p - X End If Next Next For i 0 To n - 1 Chi - Chi mang i Next TxtKetqua TxtKetqua Xh Dãy giảm Left Chi Len Chi - 2 End Sub Khai báo biên i và j có kiểu nguyên để dùng trong các vòng lặp For. Khai báo biến X có kiểu nguyên để dùng làm biến tạm chứa giá trị của phần tử khi so sánh. Khai báo biến n dùng để chứa dộ lớn của mảng động một chiều. Khai báo biến Ch Ch1 có kiểu String dể chứa các kết quả cần thông báo. Khai báo biến Xh có kiểu String. Khai báo mảng động một chiều. 130 Nháp vào lộ lớn của màng qua hộp thoại InputBox và kill vào biến n. Vòng lặp I OI lầu tiên dùng để nhâp n phần tử của mảng. Vòng láp l o ké tiếp lấy kết quả để báo ra dãy các phần tử dã nhập vào. Hàm Len các bạn đã biết. Hai vòng lặp Fm ồng nhau dùng dể sắp xếp dãy giảm phần này các bạn xem giải thích ở bài trước. Vòng lăp For dể lấy Kêt quâ thông báo của dãy tăng. Thông báo kết quả ra hộp TextBox. 2 Viết Code cho điều kiêm CmđNhapxemtang Private Sub CmdNhapxemtangClickO Dim i As Integer Dim j As Integer Dim X As Integer Dim n As integer Dim Ch As String Dim Chi As String Dim Xh As String Xh Chrtl 3 Chr 10 n InputBoxC BAN NHAP DO LON CUA MANG ReDim mang n As Integer For i 0 To n 1 mang i InputBoxC Ban nhap vao phan tu thu i 1 Next For i 0 To n - 1 131 Ch Ch mang i Next TxtKetqua Các phẩn tử của mảng mà bạn đã nhập vào Xh Left Ch Len Ch - 2 For i - 1 To n - 1 For j n - 1 To i Step -1 If mang j - 1 mang j Then X mang j - 1 mang j - 1 - mang p mang j X End If Next Next For i 0 To fl - 1 Ch1 Chi mang i Next TxtKctqua TxtKetqua Xh Dãy tăng Left Ch1 LenfChl - 2 End Sub Thủ tục này cung giải thích tưưng tư như trên chỉ khác một chút bạn tự tìm hiểu. .

crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.