VƯỢT CHƯỚNG NGẠI VẬT

Kiểu trường (data type) dùng để làm gì?

• Quy định dữ liệu cần đưa vào cho phù hợp với người sử dụng

• Nó không tác động gì cả vào dữ liệu người dùng

• . Nó dùng để tác động đến đối tượng lập trình sau này

• . Nó dùng để thiết lập thuộc tính đúng sai của dữ liệu

• A

• B

• C

• D

Public Sub Tong()

Dim N As Integer, s As Integer, i As Integer

N = InputBox("N = ")

s = 0

i = 0

Do Until i > N

s = s + i

i = i + 2

Loop

MsgBox (s)

End Sub

Đoạn chương trình trên được dùng để :

A.Tổng dãy số từ 0 đến N

B. Tổng các số chẵn từ 0 đến N

C. Tổng các số lẻ từ 0 đến N

D. Tổng các số từ 0 đến N+1

E. Tổng các số từ 0 đến N-1

• A

• B

• C

• D

• E

Đoạn chương trình sau đây sẽ thực hiện nhiệm vụ gì :

Public Sub Sum()

Dim N As Integer, i As Integer, S As Integer

N = InputBox("Nhap so bat ky")

S = 0

For i = 1 To N

S = S + i

Next

MsgBox (S)

End Sub

A. Tính tổng các số từ 1 đến n

B. Tính tổng các số chẵn từ 1 đến n

C. Tính tổng các số lẻ từ 1 đến n

D. S = 0

E. Tính tổng các số từ 1 đến n +2

• A

• B

• C

• D

• E

Giả sử có một hệ thống cơ sở dữ liệu đã được mở bằng thủ tục như sau :

Sub Open()

Dim Db As DAO.Database, RS As DAO.Recordset, str As String

Set Db = CurrentDb()

Set RS = Db.OpenRecordset("Diem")

End Sub

nếu muốn về bản ghi đầu tiên thì thực hiện tiếp thế nào :

A. RS.MoveFirst

B. RS.Move 0

C. RS.MoveLast

D. Cả A,C đúng

E. Cả A, B đúng

• A

• B

• C

• D

• E

Nếu chạy thủ tục dưới đây thì sẽ cho kết quả thế nào :

Sub Open()

Dim Db As DAO.Database, RS As DAO.Recordset, str As String

Set Db = CurrentDb()

Set RS = Db.OpenRecordset("Diem")

RS.Move 3

End Sub

A.Mở bảng điểm và chuyển đến bản ghi số 3

B. Mở bảng diểm và chuyển đến bản ghi số 4

C. Mở bảng điểm và chuyển đến bản ghi số 2

D. Mở bảng điểm và chuyển đến bản ghi sau bản ghi đầu tiên

E. Mở bảng điểm và chuyển đến bản ghi bất kỳ.

• A

• B

• C

• D

• E

Đoạn thủ tục dưới đây sẽ có kết quả như thế nào sau khi chạy nếu dữ liệu nhập vào là số 10.

Public Sub Calc()

Dim n As Integer

n = InputBox("Nhap so")

n = n & 10

MsgBox (n)

End Sub

Kết quả là :

A.20

B.0

C.1010

D.Thông báo lỗi tại dòng lệnh : n=n & 10

E. Không hiện gì.

• A

• B

• C

• D

• E

Phát biểu MSGBOX trong Access thường được dùng để :

A.Nhập giá trị dạng String từ bàn phím.

B. Nhập giá trị dạng Number từ bàn phím.

C. Nhập giá trị dạng bất kỳ từ bàn phím.

D. Hiện thông báo dữ liệu dạng String ra màn hình

E. Hiện thông báo các dạng bất kỳ dữ liệu ra màn hình.

• A

• B

• C

• D

• E

Giả sử có một thủ tục được lập trình trong Module như sau.

Public Sub Selection()

Dim Key As Integer, str1 As String

k = InputBox("Nhập số bất kỳ")

Select Case k

Case 2

str1 = "Today is Monday"

Case 8

str1 = "Today is Sunday"

Case Else

str1 = "No date"

End Select

MsgBox (str1)

End Sub

Sau khi chạy nếu nhập số là 10 thì kết quả in ra sẽ là :

A. Today is monday.

B. Today is sunday

C. No date

D. Không in kết quả ra màn hình.

E. In tất cả kết quả trong A, B, C.

• A

• B

• C

• D

• E

Hãy cho biết kết S bằng bao nhiêu?

Sub Tong()

Dim S,I

S=0

I=0

Do Until I>10

S=S+1

I=I+1

Loop

MsgBox’Tong la ‘ & S

End Sub

A. 10

B.12

C. 0

D. 1

E. 57

• A

• B

• C

• D

• E