ข้อสอบ Visual Basic 2010 พร้อม เฉลย

�Ԫ� �����¹����� Visual Basic �ӹǹ 30 ���
�� ����Է���� ����� �ç���¹�Ժ�Ż�Ъ���ä�

����� ��ԡ���͡�ӵͺ���١��ͧ����ش

��ͷ�� 1)
�����¹��������� Visual Basic ����СѺ�ҹ�������
    �. ��¹�����������Ͷ��
    �. ��¹������Ǻ������¹��
    �. ��¹������͡Ẻ Model ��ҧ�
    �. ��¹����������ҹ���к���Ժѵԡ�� Windows �����
��ͷ�� 2)
���㴡���Ƕ֧����� Microsoft Visual Basic ��
    �. �����Ҥ��������� �дѺ��� ��ҹ���µԴ��͡Ѻ�������ѡɳТ�ͤ��� (Text)
    �. �����Ҥ��������� �дѺ��� ����СѺ�ҹ ����ǡѺ��þ������§ҹ �͡���
    �. �����Ҥ��������� �дѺ�٧ �Դ��͡Ѻ�������ѡɳТ�ͤ��� (Text)
    �. �����Ҥ��������� �дѺ�٧ �Դ��͡Ѻ����� ��ѡɳС�ҿԡ�����ٻ�Ҿ (GUI)
��ͷ�� 3)
���硵� (Project) �������
    �. ������红���������ǡѺ�����
    �. ������ͧ�͹��ŵ�ҧ � � VB
    �. �������㹡�����ҧ�ͺ�硵��ҧ
    �. ������ͧ���㹡�����ҧ�����
��ͷ�� 4)
˹�ҵ�ҧ�������¹����觤Ǻ�����÷ӧҹ�ͧ����� ���¡�������
    �. ˹�ҵ�ҧ���硵� (Project Explorer)
    �. ˹�ҵ�ҧ (Code Editor)
    �. ˹�ҵ�ҧ�س���ѵ� (Properties Window)
    �. ˹�ҵ�ҧ��������������� (Form Layout Window)
��ͷ�� 5)
�����¹�����Ẻ Event-Driven ��������
    �. ���� C
    �. ���� Turbo Pascal
    �. ���� Cobol
    �. ���� Visual Basic
��ͷ�� 6)
�;���पѹ����价���ա����ҹ� Windows ��������ҧ���Ǩ���������չ��ʡ���� .EXE (��硫��ǵ����) ��͢���
    �. ActiveX EXE
    �. ActiveX Control
    �. Standard EXE
    �. VB Application Wizard
��ͷ�� 7)
�����㴷����㹡�����������
    �. ���� Project>Add Class
    �. ���� Project>Add Module
    �. ���� Project>Add Windows Form
    �. ���� Project>Add New Item
��ͷ�� 8)
���㴤�ͤ������¢ͧ TextBox
    �. �繪�ͧ�������ҹ��͡��ͤ���
    �. ��Ѵ������͹�ŵ�ҧ �
    �. ����¡�â���������������͡
    �. �繵�ǨѺ����
��ͷ�� 9)
���㴤�ͤ������¢ͧ Command Button
    �. ��ᶺ��ͤ���
    �. �繵�ǨѺ����
    �. �繻���������顴���ͤ�ԡ����
    �. ��ᶺ����͹
��ͷ�� 10)
���㴤�͹��ʡ�Ţͧ������硵�
    �. .bas
    �. .frm
    �. .vbp
    �. .pag
��ͷ�� 11)
����ͺѹ�֡��������Ǩ�������繹��ʡ������
    �. .bas
    �. .frm
    �. .vbp
    �. .pag
��ͷ�� 12)
Message Box ����������
    �. �͢����Ũҡ�����ҹ
    �. �����ͺ͡������������ҹ
    �. ���ҧ�ҹ������
    �. ����ѹ�����
��ͷ�� 13)
����û����� Integer ���纤������
    �. ����Ţ�ӹǹ���
    �. ����ѡ���
    �. �����ŷҧ��á(��ԧ-��)
    �. ����Ţ�ӹǹ��ԧ
��ͷ�� 14)
����û����� String ���纤������
    �. ����Ţ�ӹǹ���
    �. ����ѡ���
    �. �����ŷҧ��á(��ԧ-��)
    �. ����Ţ�ӹǹ��ԧ
��ͷ�� 15)
���㴤�ͤ���觡�÷ӧҹẺǹ���
    �. If�Then
    �. If�Then�Else
    �. For�..
    �. For�� to �..
��ͷ�� 16)
If�Then�Else �繡�äǺ�����ȷҧẺ�
    �. ��õѴ�Թ�
    �. ��÷ӧҹẺǹ���
    �. Ẻ�ҧ���͡����
    �. Ẻ�ӹǹ�ͺ��������͹
��ͷ�� 17)
Syntax Error �������
    �. �繡�üԴ��Ҵ����Դ�ҡ������Ǵ����
    �. �繡�üԴ��Ҵ���ͧ�ҡ��������觼Դ��Ҵ
    �. �繤����Դ��Ҵ����Դ�ҡ����͡Ẻ
    �. �繤����Դ��Ҵ����Դ�ҡ��������
��ͷ�� 18)
����� On Error �繤���觷���������
    �. �繤���觷���Ǩ�ͺ�����Դ��Ҵ�ͧ�;���प��
    �. �繤���觷����͡����Դ�����Դ��Ҵ����˹
    �. �繤���������䢢ͼԴ��Ҵ����ѵ��ѵ�
    �. �繤��������͡�ҡ�����������բ�ͼԴ��Ҵ
��ͷ�� 19)
���㴤�ͤ������¢ͧ����� (Variable)
    �. ����红������˹��¤����Ӣ�з��������ӧҹ
    �. ��÷��ͺ���͹��繨�ԧ���ӧҹ�������¤�����
    �. ����纤��������鹢ͧ��������ǹ�ͧ������Ẻ����Ţ
    �. ����纤��������鹢ͧ��������ǹ�ͧ������Ẻ�ѡ���
��ͷ�� 20)
��ҵ�ͧ��������ê��� Tem ����Ѻ�红����ŵ���Ţ�ӹǹ�������¹����������ҧ��
    �. Dim Tem As UInteger
    �. Dim Tem As Sbyte
    �. Dim Tem As %
    �. Dim Tem As Integer
��ͷ�� 21)
���㴵�駪��͵�������١��ͧ
    �. A11
    �. New_Price
    �. 1Amp
    �. B5_apple
��ͷ�� 22)
����ŧ��ҵ���Ţ����繤�Ң�ͤ��� ��ѧ����㹢���
    �. Val
    �. Cstr
    �. CChar
    �. CBool
��ͷ�� 23)
��鹵͹�����¹������ӹdz�Ҿ�鹷��ͧ�ٻ�����������ա���鹵͹ ���ú�ҧ
    �. 2 ��鹵͹ ��� ��û�С�ȵ������С�äӹdz
    �. 3 ��鹵͹ ��� ��û�С�ȵ����, ��äӹdz��С���Ѻ���
    �. 4 ��鹵͹ ��� ��û�С�ȵ����, ����Ѻ���,��äӹdz��С���ʴ���
    �. 5 ��鹵͹ ��� ����͡Ẻ, ��û�С�ȵ����, ����Ѻ���,��äӹdz��С���ʴ���
��ͷ�� 24)
��˹���� Tri_Area = ��鹷������������, Tri_Base = �ҹ, Tri_Height = �٧ ����¤����觡�äӹdz�Ҿ�鹷���ٻ������������͢���
    �. Tri_Area * Tri_Base
    �. Dim Tri_Base, Tri_Height As Single
    �. Tri_Area = 12 'SByte
    �. Tri_Area = (Tri_Base * Tri_Height)/2
��ͷ�� 25)
������¹����¤����� If�Then�Else ��١��ͧ
    �. If A <>B Then MsgBox("A ��ҡѺ B") Else MsgBox("A �����ҡѺ B") End If
    �. If A <>B Then MsgBox("A �����ҡѺ B") Else MsgBox("A ��ҡѺ B") End If
    �. If A <>B Then MsgBox("A �����ҡѺ B") Else MsgBox("A ��ҡѺ B") If
    �. If A <>B Then MsgBox("A ��ҡѺ B") Else MsgBox("A �����ҡѺ B") If
��ͷ�� 26)
˹�ҷ��ͧ��ǤǺ��� (Label) ��͢���
    �. ���ʴ�������ҧ�
    �. ���ʴ���ͤ�����ҧ�
    �. ���ʴ���������令ӹdz��
    �. ���ʴ���ͤ�����ҧ� �������ö��ͺ�Ѻ�������
��ͷ�� 27)
���㴡���Ƕ١��ͧ ����ǡѺ�����¹ Code ����ǤǺ���
    �. ��ԡ����ǤǺ���������Ǥ�ԡ������� Edit
    �. �Ѻ��Ť�ԡ��ǹ Properties �ͧ��ǤǺ���
    �. ��ԡ������ҷ���ǤǺ�����鹨��������˹�ҵ�ҧ�����¹��
    �. �Ѻ��Ť�ԡ����ǤǺ�����鹨��������˹�ҵ�ҧ�����¹��
��ͷ�� 28)
�������¢ͧ�������¹�� Text1.Text = del
    �. ����ǤǺ��� Text1 �ӹdz��
    �. ����ǤǺ��� Text1 ����յ���ѡ����
    � ����ǤǺ��� Text1 ź��ͤ���
    �. ����ǤǺ��� Text1 �ʴ���ͤ��� del
��ͷ�� 29)
����觨���÷ӧҹ�ͧ����� ��͢���
    �. Undo
    �. Close
    �. Unload Me
    �. End IF
��ͷ�� 30)
�ҡ��ͧ��÷��ͺ��������ѡ���¹��¹��ͧ���鹤����
    �. F1
    �. F5
    �. F8
    �. F9

�