Một số bài tập Visual Basic căn bản của trường Đại Học Sư Phạm Kỹ Thuật Hồ Chí Minh dành cho các bạn tham khảo.Mong tài liệu sẽ giúp ích cho các bạn học tập, ôn thi và đạt được thành tích như mình mong muốn.Chân thành cảm ơn các bạn.
TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT HỒ CHÍ MINH BÀI TẬP ƠN TẬP VISUAL BASIC PHẦN MẢNG TP.Hồ Chí Minh, Ngày 12 tháng 10 Năm 2018 Bài tập 01: Viết chương trình nhập in mảng: Hướng dân khai báo mảng dạng toàn cục gọi hàm Dim a(1 to 20) As Integer Dim n As Integer Private Sub cmdNhap_Click() n = Val(txtn.Text) If n a ( j ) Then temp = a ( i ) a(i)=a(3) a ( j ) = temp End If Next j Next i End Function Bài tập 09: Viết chương trình chèn thêm phần tử vào mảng Hướng dẫn: Public Function Chenpt ( ByVal x As Integer , ByVal y As Integer ) As String Dim i As Integer Dim s As String For i = n + To ( y ) Step - a(i+1)=a(1) Next is a(y)=x s= For i = To n + s = s & a(i ) & " " Next i Chenpt = s End Function Private Sub Chen Click ( ) Dim i As Integer k = Val ( InputBox ( " Nhap phan tu can chen : " ) ) vt = Val ( InputBox ( " Nhap vi tri can chen " ) ) If vt ( = Then MsgBox " phai nhap vi tri duong " , vbOKCancel , " Loi " Else MsgBox Chenpt ( k , vt ) , vbOKOnly , " Mang da chen vi tri thu : " & vt End If End Sub Bài tập 10: Viết chương trình xóa phần tử mảng Hướng dẫn: Function xoaphantumang ( ByVal vt As Integer ) As String Dim I As Integer Dim s As String For i = vt To n a(i)=a(i+1) Next i " " s=” “ For i = To n - s=s&a(i)& ““ Next i xoaphantumang = s End Function Private Sub Xoa Click ( ) Dim vitri As Integer vitri ¨C Val ( InputBox ( " Nhap vi tri can xoa " ) ) If vitri a ( j ) ) And ( j < = n ) j=j+1 Loop For i = n + To step - a(i+1)=a(i) Next is a(j)=x s="" For i = To n + s=s&a(i)&"" Next i chenmangtang = s End Function Private Sub chen click ( ) Dim a As Integer a = Val ( InputBox ( " Nhap so can chen : " ) ) MsgBox chenmangtang ( a ) , vbOKCancel , " Ket qua " End Sub Bài tập 12 Viết chương trình nhập in mảng chiều Hướng dẫn Dim a ( To 20 , To 20 ) As Integer Dim m , n As Integer Public Function nhapmang ( ByVal x As Integer , ByVal y As Integer ) Dim i , j As Integer For i = To x For j = To y a ( i , j ) = Val ( InputBox ( " a ( " & i & " , " & j & " ) = " ) ) Next j Next i End Function Public Function xuatmang ( ) As String Dim s As String Dim i , j As Integer s=""&" For i = To n For j = To m s=s&a(i,j)&”“ Next j s = s & vbCrLf Next i xuatmang = s End Function Private Sub Nhapmang2 click ( ) n = Val ( InputBox ( " Nhap so dong : " ) ) m = Val ( InputBox ( " Nhap so cot : " ) ) If ( n = ) or ( m < = ) Then MsgBox " Nhap lai " Else Call nhapmang ( n , m ) MsgBox xuatmang ( ) , vbYesNo , " Mang da nhap kieu " & n & " x " & m End If End Sub Bài tập 13: Viết chương trình cộng hai ma trận dạng nxm, với số dòng n số cột m nhập từ bàn phím Hướng dẫn : Dim ( To 20 , To 20 ) As Integer Dim b ( To 20 , To 20 ) As Integer Dim c ( To 20 , To 20 ) As Integer Dim m , n As Integer Public Function nhapmang ( ByVal X As Integer , ByVal y As Integer ) Dim i , j As Integer For i = To x For j = To y c ( i , j ] = Val ( InputBox ( " c ( " & i & " , " & j & " ) = " ) ) Next j Next i End Function Public Function xuatmang ( ) As String Dim s As String Dim i , j As Integer s=" " For i = To n For j = To m s=s&c(i,j)&" " Next j s = s & vbCrLf Next i xuatmang = s End Function Private Sub matran1 click ( ) Dim i , j As Integer n = Val ( InputBox ( " Nhap so dong : " ) ) m = Val ( InputBox ( " Nhap số Cot : " ) ) If ( n < = ) or ( m < = ) Then MsgBox " Nhap lai " Else Call nhapmang ( n , m ) For i = To n For j = To m a(i,j)=x(i,j) Next j Next i MsgBox xuatmang ( ) , vbYesNo , " Mang da nhap kieu " & n & " x " & I End If End Sub Function Conghaimatran ( ) Dim i , j As Integer Dim s As String For i = To n For j = To m c(i,j)=a(i,j)+b(i,j) Next j Next i End Function Private Sub Cong _ Click ( ) Call conghaimatran MsgBox xuatmang ) , vbOKOnly , " Ket qua " End Sub ... Then MsgBox “ Nhap lai”, vbOKOnly, “Loi” Else Call nhapmang(n) MsgBox xuatmang, vbOKOnly, Mang vua nhap:” End If End Sub Hướng dẫn hàm nhập xuất mảng Public Function nhapmang(ByVal m As Integer)... ReDim MangA(n-1) For i=0 To (n-1) Step MangA(i) = Val(InputBox(“Nhap phan tu thu: “ & (i+1)) Next i Inmang MangA, lblfirst Hướng dẫn nhập mảng lần 1: Nthem= Val(txtthem.Text) Ntruoc=UBound(MangA())... Ntruoc=UBound(MangA()) ReDim Preserve MangA(ntruoc ++ nthem) For I = ntruoc + To nthem + ntruoc MangA(i) = Val(InputBox(“Nhap phan tu thu: “ & i+1)) Next i Inmang MangA, lblfirst Bài tập 03 Viết chương