Cấu trúc lặp While/Wend là hình nào ? Tỉ lệnh thực thi, mũi tên chỉ dòng thi hành) (Hình thoi chỉ điểu kiện, hình chữ nhật chỉ lệnh thực thi, mũi tên chỉ dòng thi hành)
A -
A1
B -
A2
C -
A3
D -
A4
2-
Cho biết chương trình sau sẽ in ra kết quả gì ? Public Sub yyy(x As Long, y As Long, z As Long) If y < x Then x = y ElseIf z < x Then x = z End If MsgBox (x) End Sub Private Su b Command1_Click() Call yyy(15, 47, 36) End Sub
A -
1 5
B -
47
C -
36
D -
Câu a, b, c đều sai.
3-
Cho biết chương trình sau sẽ in ra kết quả gì ? Dim x, y, m as integer x = 1 : m = 0 While x <= 5 y = x ^ 2 : Print y + " "; m = m + y : x = x + 1 Wend
A -
1 4 9 16 25
B -
2 4 6 8 10
C -
1 4 6 9 25
D -
Các câu a, b, c đều sai.
4-
Cho biết chương trình sau sẽ in ra kết quả gì ? Dim x, y, m as integer x = 1 : m = 0 While x <= 5 x = x + 1 : y = x ^ 2 Print y + " "; : m = m + y Wend
A -
1 4 9 16 25
B -
4 9 16 25 36
C -
1 4 6 9 25 36
D -
Các câu a, b, c đều sai.
5-
Tính chất nào là không đúng đối với Procedure :
A -
Được gọi để thi hành
B -
Sử dụng lại được (reusable)
C -
Dễ quản lý
D -
Chạy được ở cấp hệ điều hành
6-
Cho biết phát biểu nào sai trong các phát biểu sau:
A -
Trong VB, Procedure được phân làm 2 loại là Sub và Function
B -
Các thuộc tính Get, Set, Let của đối tượng không phải là procedure
C -
Các từ khóa Public, private dùng để xác định tầm vực của procedure
D -
Không có phát biểu nào sai
7-
Cho biết chương trình sau sẽ in ra kết quả gì ? Public Sub mmm(x As Long) For i = x To 2 Step -1 x = x * (i - 1) Next End Sub Private Sub Command1_Click() Dim x As Long x = 4 : mmm x : Print x End Sub
A -
4
B -
12
C -
24
D -
VB báo chương trình có lỗi
8-
Cho biết chương trình sau sẽ in ra kết quả gì ? Public Function nnn(ByValx As Long) Dim y As Long y = x For i = 2 To y -1 x = x * i Next nnn = x End Function Private Sub Command1_Click() Print nnn(5) End Sub
A -
5
B -
120
C -
240
D -
VB báo chương trình có lỗi.
9-
Cho biết chương trình sau sẽ in ra kết quả gì ? : Function ppp(Optional x As Integer = 4, y As Integer = 6) ppp = x + y End Function Private Sub Command1_Click() Print ppp(3) End Sub
A -
3
B -
9
C -
12
D -
VB báo chương trình có lỗi
10-
Cho biết chương trình sau sẽ in ra kết quả gì ? : Function www(Optional x As Byte = 2, Optional y _ As Byte = 4, Optional z As Byte = 6) www = (x * y) + z End Function Private Sub Co mmand1_Click() Print www(, , 3); Print www(3, , 2)