Private Sub Form_Load()
Text1.FontSize = 30
Set Text1.Font = Me.Font
Text1.FontSize = 12
Me.FontSize = 24
Show
Print Text1.FontSize
End Sub
Chương trình sau, khi chạy sẽ in kết quả nào?

Option Explicit
Public n As Integer
Private Sub Form_Load()
Me.Show
Me.Caption = ''Day la Form '' & n+1
n = n + 1
End Sub
Private Sub Form_Click()
'Tạo form mới
Dim A As New Form1
'Hiển thị form mới
A.Show
End Sub
Khi chạy đoạn mã sau, nếu kích vào Form trên màn hình 2 lần thì sẽ sinh ra Form mới có tiêu đề nào?

Dim a(3) As CommandButton
Dim i As Integer
For i = 1 To 3
Set a(i) = Form1.Controls.Add(''vb.commandbutton'', ''Cmd'' & i)
a(i).FontName = ''.vnTime''
a(i).FontSize = 12
a(i).Left = 100 * i
a(i).Caption = ''Nút thứ '' & i
a(i).Visible = True
Next i
End Sub
Chương trình sau sẽ tạo các nút lệnh theo phương nào?

Đoạn chương trình sau khi kich vào command1 thì nội dung của text1 là:
Private Sub Command1_Click()
Dim TextStr
TextStr = bau oi thuong lay bi cung & vbCrLf & tuy rang khac giong nhung chung mot gian
Text1.Text = TextStr
End Sub

Chương trình sau cho kết qủa bao nhiêu khi txt1=3
Private Sub CmdtongBP_Click()
Dim i As Integer
Dim n As Long
For i = 1 To Txt1
n = n + i * i
Next
Txt2.text = n
End Sub

Đoạn chương trình sau làm nhiệm vụ gì khi kích vào nút cmdD nếu ta sử dụng Điều khiển Data1 trong cơ sở dữ liệu :
Private Sub CmdD_Click()
With
Data1.Recordset
.Delete
.MoveNext
End With

Đoạn chương trình Thực hiện nhiệm vụ gì
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode >= 112) And (KeyCode <= 123) Then
End
End If
End Sub

Đoạn chương trình sau đáp ứng sự kiện gì? Trong đó PopupMenu mnuActions là một Menu:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnuActions
End if
End Sub

Đoạn chương trình Thực hiện nhiệm vụ gì :
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode >= 112) And (KeyCode <= 123) Then
MsgBox Bạn đang sử dụng hàm: F & Trim(Str(KeyCode - 111))
End If
End Sub

Hãy cho biết kết quả của HB bằng bao nhiêu ?Nếu nhập vào điểm(D) bằng 8 và hạnh kiểm(HK) bằng C:
Sub Xeploai()
Dim HB As Long
Dim D As Double
Dim HK As String
D = InputBox("Nhap diem")
HK = InputBox("Nhap hanh kiem")
If HK = "A" Or D >= 8 Then
HB = 1000
Else
HB = 0
End If
MsgBox "Xep loai " & HB
End Sub