Bài 1a ( cấu trúc lặp For)
Private Sub Bai_1a_Click()
Dim s As Long
Dim i As Integer
'----------------- khoi tao --------------
s = 0
'----------------- Vong lap --------------
For i = 1 To 1000 Step 1
s = s + i
Next
'---- hien thi ket qua ra man hinh -------
MsgBox "Tong S=" & s, vbOKOnly, "Ket Qua"
End Sub
Bài 1b ( cấu trúc lặp For)
Bài 1c ( cấu trúc lặp For)
Bài 1d ( cấu trúc lặp For)
Bài 2a (Cấu trúc lặp While)
Private Sub Bai_2a_Click()
'---------------------------------
Dim s As Long
Dim n As Integer
'---------------------------------
s = 0
n = 0
'---------------------------------
While n <= 5000
s = s + n
n = n + 2
Wend
'---------------------------------
MsgBox "Tinh tong s=" & s, vbOKOnly, "ket qua bai tap 2"
End Sub
Bài 2b (Cấu trúc lặp While)
Bài 2c (Cấu trúc lặp While)
Bài 2d (Cấu trúc lặp While)
Private Sub Bai_2d_Click()
'----------Khai bao bien------------------
Dim s As Double
Dim a As Byte
Dim i As Integer
'----------Nhap gia tri cho biến a---------- lieu", 1))
a = Val(InputBox("Nhap a", "Nhap du lieu", 1))
'----------khoi tao-------------
s = 0
i = 3
'----------vòng lặp-----------------------'------------Vong lap-----------
While 1 / (i * a) >= 1 / (99 * a)
s = s + 1 / (i * a)
i = i + 3
Wend
'----------Hien thi ket qua----------------
MsgBox "Tong s=" & s, vbOKOnly, "Thong bao ket qua"
End Sub