Kết quả của chương trình sau: sub thu ( num as integer) num=num *2 print num end sub private sub form_click() dim a as integer a=4 print a thu a print a end sub
A -
4 8 4
B -
4 8 8
C -
4 4 4
D -
4 6 8
2-
Cho mảng A có 10 phần tử là các số nguyên. Đoạn lệnh sau, sau khi chạy cho kết quả P là bao nhiêu? P = 0 For I = 1 To 10 If I Mod 2 = 0 Then P = P + A(I) End If Next MsgBox P
A -
Tổng giá trị các phần tử của mảng
B -
Tổng giá trị các phần tử chẵn của mảng
C -
Tổng giá trị các phần tử ở vị trí chẵn của mảng
D -
Tổng giá trị các phần tử lẻ của mảng
3-
Đoạn chương trình sau in kết quả là gì khi kích vào command (cmdchiahet) và Text1=12? Private Sub Cmdchiahet_Click() Dim ch As String ch = Txt1.text If val(Right(ch, 1)) Mod 2 = 0 Then Txtketqua .text=so&ch& la so đặc biệt Else Txtketqua.text = So & ch & không phải số đặc biệt End If End Sub
A -
Không hiện gì
B -
So 12 là số đặc biệt
C -
So 12 không phải là số đặc biệt
D -
Tất cả đều sai
4-
Chương trình sau cho kết quả là gì : Private Sub form_Click() Line (700, 500)-(2800, 2400) Line (2800, 2400)-(1800, 900) Line (1800, 900)-(700, 500) End Sub
A -
Vẽ một tam giác
B -
Vẽ 3 đường thẳng rời nhau
C -
Vẽ Hình chữ nhật
D -
Vẽ 3 đường thẳng cùng toạ độ
5-
Đọc Đoạn chương trình sau cho kết quả là gì khi chọn OK : Private Sub CmdP_Click() Dim ReturnValue As Integer ReturnValue = MsgBox(""Close the program down"", vbQuestion + vbOKCancel, "Exit Program") Select Case ReturnValue Case 1 MsgBox "Chao ban" Case 2 MsgBox "Hen gap lai" End Select End Sub
A -
Chao ban
B -
Hen gap lai
C -
Ket thuc chuong trinh
D -
Không hiện gì
6-
Đoạn mã sau sẽ hiện Kết quả nào? Private Sub Form_Load() Dim a As Integer Show a = 8 Me.Print Trim(Str$(a)) & a ^ (1 / 3) End Sub Trả lời
A -
AA
B -
82
C -
84
D -
88
7-
Chương trình sau thực hiện công việc gì? Private Sub Form_Click() Cls Dim i As Integer For i = 1 To 4 Print Rnd Next i End Sub
A -
In ra 4 số ngẫu nhiên từ [0,1)
B -
In ra các số ngẫu nhiên bất kỳ
C -
Không in gì
D -
In ra các số 1, 2, 3, 4
8-
Chương trình sau cho kết quả bằng bao nhiêu? Private Sub Form_Load() Show a$ = "chuong trinh" Print Mid(a$, Len(a$) - 7) End Sub
A -
Chuỗi "chương trinh"
B -
Chuỗi "trinh"
C -
Chuỗi "ng trinh"
D -
Cú pháp lệnh sai
9-
Chương trình sau hiện kết quả thế nào? Private Sub Form_Load() Show For i = 1 To 3 For j = 1 To 3 s = s + i * j Next j Next i Print s End Sub
A -
7
B -
9
C -
18
D -
36
10-
Lệnh Me.Print Format(123.456, "##.##") trả lại giá trị bằng bao nhiêu?"
