Bài giải

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