Tài liệu tham khảo Lập trình Visual Basic

tất cả các biến phải được khai báo tường minh
Q.28/ 60
Chương trình sẽ hiển thị giá trị gì khi nút lệnh btnDiaplay được click?Private Sub btnDisplay_Click()    Dim num As Double = 9   txtBoxResult.Text = CalculateSquareRoot(num)End SubFunction CalculateSquareRoot(ByVal NumberArg As Double) As DoubleIf NumberArg < 0 Then   MsgBox "Error - cannot find square root - result set to zero"    CalculateSquareRoot=0Else   CalculateSquareRoot=Sqrt(NumberArg)End IfEnd Function
Các chọn lựa?
A)  
0
B)  
12
C)  
9
D)  
6
E)  
3
Q.29/ 60
Chương trình sẽ hiển thị giá trị gì khi nút lệnh btnDiaplay được click?Private Sub btnDisplay_Click()    Dim word1, word2, word3 As String   word1 = "First"   word2 = "Second"   word3 = "Third"    Myproc(word1, word2, word3)End SubSub Myproc(ByVal var3 As String, ByVal var2 As String, ByVal var1 As String)   txtBox.Text = var1 & var2 & var3End Sub
Các chọn lựa?
A)  
SecondThirdFirst
B)  
ThirdSecondFirst
C)  
Program will be error
D)  
FirstSecondThird
E)  
No output
Q.30/ 60
Chương trình sẽ hiển thị giá trị gì khi nút lệnh btnDiaplay được click?Private Sub btnDisplay_Click() Dim x as String, y As Stringx = "tin"y = "can"Swap(x, y)txtOutput.Text = x & " " & yEnd SubSub Swap(ByRef x As String, ByVal y As String)Dim temp As String temp = xx = yy = tempEnd Sub
Các chọn lựa?
A)  
can tin
B)  
can can
C)  
Lỗi khi thực hiện chương trình
D)  
tin can
E)  
tin tin
Q.31/ 60
Bạn muốn tính giá trị của biểu thức:S= 1/2 + 2/3 + 3/4 + 4/5 + … + 99/100?Chọn đọan lệnh thích hợp? 
Các chọn lựa?
A)  
For x = 1 To 100    s = s+(1 / (x + 1))Next
B)  
For n = 1 To 99    s = s+(n / (1 + n)) Next
C)  
For d = 2 To 99    s = 1 / d + d / (d + 1)Next
D)  
For q = 100 To 1    s =s+ ((q + 1) /q)Next
Q.32/ 60
Cho mảng khai báo như sau:Dim myArray(100) As DoubleBạn muốn thiết lập tất cả giá trị của mảng thành 100. Chọn chương trình thích hợp?
Các chọn lựa?
A)  
For j = 0 to 100    myArray(j) = 100Next
B)  
All options
C)  
For j = 1 to 100    myArray(j) = 100Next
D)  
myArray() is already initialized to 100 by the Dim statement.
E)  
For i = 0 To 100    (i) = 100Next
F)  
myArray = 100
Q.33/ 60
Nếu bạn muốn tạo thêm một command button cho Form, bạn sẽ lấy command button này từ thành phần nào trong môi trường thiết kế của VB (Visual Basic environment)? 
Các chọn lựa?
A)  
The Form window 
B)  
The Properties window 
C)  
The Toolbox 
D)  
The Project window 
Q.34/ 60
Để kết thúc chương trình, người ta dùng lệnh 
Các chọn lựa?
A)  
Exit 
B)  
Halt 
C)  
End 
D)  
Exit (0)
E)  
End Sub 
Q.35/ 60
Chương trình của bạn cho phép người khác chọn màu của Form. Bạn có 5 màu để chọn.Bạn nên sử dụng đối tương nào là thích hợp nhất? 
Các chọn lựa?
A)  
option buttons
B)  
text boxes
C)  
check boxes
D)  
name boxes
Q.36/ 60
Để đưa hình ảnh vào một image control, ngừoi ta dùng thuộc tính _______ 
Các chọn lựa?
A)  
icon 
B)  
graphic 
C)  
image 
D)  
picture 
Q.37/ 60
Để xác định xem một option button có được chọn hay không, nguời ta dùng thuộc tính __________ 
Các chọn lựa?
A)  
Visible 
B)  
Enabled 
C)  
Value 
D)  
Caption
E)  
GotFocus
F)  
Selected 
Q.38/ 60
Ba ký tự đầu được đề nghị (prefix) của label là __________. 
Các chọn lựa?
A)  
lab 
B)  
lb
C)  
l
D)  
la
E)  
lbl
F)  
lbe
Q.39/ 60
Nếu một biến được khai báo mà không chỉ định kiểu dữ liệu, thì biến đó sẽ có kiểu là ________ 
Các chọn lựa?
A)  
boolean
B)  
variable
C)  
string
D)  
object
E)  
variant
Q.40/ 60
Nếu một hàm (Sub/Function) cần được gọi trong nhiều Form, thì hàm này nên được đặt trong __________ 
Các chọn lựa?
A)  
Một hàm khác
B)  
Form 
C)  
module
D)  
Biến cục bộ
Q.41/ 60
Đối với một Listbox trong Visual Basic 6, để thêm 1 phần tử vào, người ta sử dụng phương thức _________ 
Các chọn lựa?
A)  
LisstIndex
B)  
AddValue
C)  
AddItem
D)  
AddList 
E)  
ItemAdd 
F)  
List 
Q.42/ 60
Cho mảng 2 chiều A được khai báo như sau:Dim A(0 To 3, 0 To 5) As IntegerMảng A chứa bao nhiêu phần tử? 
Các chọn lựa?
A)  
24
B)  
3
C)  
8
D)  
10
E)  
5
F)  
15
Q.43/ 60
Khi button btnDisplay được click, thì kết quả của chương trình sẽ hiển thị?Private Sub btnDisplay_Click() Dim a As String, b As StringtxtBox.text=””a = "A"b = "B"PrintWords(a, b)PrintWords(b, a)End SubSub PrintWords(ByVal a As String, ByVal b As String)txtBox.Text = a & bEnd Sub
Các chọn lựa?
A)  
ABBA
B)  
ab ba
C)  
AB BA
D)  
ABAB
E)  
abba
Q.44/ 60
Khi button btnDisplay được click, thì kết quả của chương trình sẽ hiển thị?Private Sub btnDisplay_Click()    Dim var1, var2, var3, num As Integer   var1 = 2   var2 = 4   var3 = 6   Add(num)   txtBox.Text = CStr(num)End SubSub Add(ByRef num As Integer)Dim var1, var2, var3 As Integernum = var1 + var2 + var3End Sub
Các chọn lựa?
A)  
6
B)  
12
C)  
0
D)  
8
Q.45/ 60
Khi button btnDisplay được click, thì kết quả của chương trình sẽ hiển thị?Private Sub btnDisplay_Click()     Dim num As Integer     num= 20    DoubleIt(num)    txtBox.Text = CStr(num)End SubSub DoubleIt(ByRef var As Integer)    var = var * 2End Sub
Các chọn lựa?
A)  
20
B)  
0
C)  
40
D)  
80
Q.46/ 60
Chọn phát biểu sai trong các phát biểu sau đây khi thực hiện với Visual Basic? 
Các chọn lựa?
A)  
x = 10
B)  
If run then lblOut.Text = "True"
C)  
z = x + y
D)  
lblOut.Text = str(z)
E)  
x + y = y
F)  
y = 20
Q.47/ 60
Chọn đọan lệnh nào sau đây để thay đổi giá trị hiển thị trên Button Button1 thàn "Push Me" ?
Các chọn lựa?
A)  
Button1.Name = "Push Me"
B)  
Button1.Value = "Push Me"
C)  
Button1.SetText( "Push Me")
D)  
Button1.Caption = "Push Me"
E)  
Button1.Print "Push Me"
F)  
Button1.Text = "Push Me"
Q.48/ 60
Trong VB6, Với Khai báo   DIM a, b as integer thì a sẽ có kiểu biến gì? 
Các chọn lựa?
A)  
boolean
B)  
string
C)  
long
D)  
integer
E)  
Kiểu dữ liệu khác
Q.49/ 60
Bạn muốn xóa tất cả các ohần tử trong listbox LstA. Chọn đọan code tương ứng? 
Các chọn lựa?
A)  
LstA.Clear
B)  
LstA.Remove
C)  
LstA.removeItem LstA.ListCount-1
D)  
LstA.Unload
E)  
LstA.RemoveAll
F)  
LstA.removeItem 0
Q.50/ 60
Cho chương trình sau đây, với Index là biến kiểu Integer và thisarray là một mảng (0 to 5) của các số IntegerFor index = 0 To 5   thisarray(index) = indexNextFor index = 0 To 5   Msgbox thisarray(index): 'PrintNext Kết quả hiển thị khi thực thi chương trình lần luợt là?
Các chọn lựa?
A)  
1 2 3 4 5 6
B)  
5 5 5 5 5 5
C)  
01 2 3 4 5
D)  
0 0 0 0 0 0
Q.51/ 60
Consider the following statements: Dim i As Integer, j As Integer, k As Integeri = 3j = 5k = 2If i < j ThenIf i < k Then i = 4 Else i = 5 Phát biểu nào sau đây là đúng?
Các chọn lựa?
A)  
Sau khi thực hiện thì i = 4
B)  
Sau khi thực hiện thì i có giá trị khác 3 hoặc 4 hoặc 5
C)  
Chương trình bị lỗi
D)  
Sau khi thực hiện thì i = 5
E)  
Sau khi thực hiện thì i = 3
Q.52/ 60
Cho chương trình sau đâySub Form_Load ()Dim MyString As String * 5Dim Index As IntegerDim s1 As String, s2 As String, s3 As StringMyString = "ABCDE"For Index = 5 To 2 Step -1   s1 = Left(MyString, Index - 2)   s2 = Mid(MyString, Index, 1)   s3 = Right(MyString, 5 - Index + 1)   MyString = s1 + s2 + s3NextMsgbox MyStringEnd Sub Kết quả hiển thị khi thực hiện chương trình là? 
Các chọn lựa?
A)  
EEEEE
B)  
ABBBB
C)  
Chương trình bị lỗi
D)  
AAAAA
Q.53/ 60
Cho chương trình sau đâySub Form_Load ()Dim i, a As Integer, b As Integer   i = 0   a = 4   b = 10   swap a, b   Msgbox str(a) & " " & str( b) & " " Str( i)End SubSub swap (a As Integer, b As Integer)   Dim Temp, i   Temp = a   a = b   b = Temp   i = 1End Sub Cho biết kết quả sau khi chương trình thực hiện? 
Các chọn lựa?
A)  
10 4 0
B)  
4 10 0
C)  
10 4 1
D)  
4 10 1
Q.54/ 60
Control nào phải tạo nhóm khi họat động?
Các chọn lựa?
A)  
OptionButtons
B)  
TextBoxes
C)  
CheckBoxes
D)  
Listbox
Q.55/ 60
Để viết chú thích (comment) trong Visual Basic
Các chọn lựa?
A)  
dùng dấu //
B)  
/* comment */
C)  
dấu ' 
D)  
REM 
Q.56/ 60
Hàm gì dùng để chuyển số qua chuỗi? 
Các chọn lựa?
A)  
ToString
B)  
Str
C)  
Convert
D)  
ParseString
Q.57/ 60
Bao nhiêu lần MsgBox sẽ hiển thị khi thực thi chương trình sau?For Index = 0 To 2   MsgBox IndexNext 
Các chọn lựa?
A)  
2
B)  
0
C)  
1
D)  
3
Q.58/ 60
Giá trị hiển thị cuối cùng khi thực hiện chương trình sau là bao nhiêu?Twos = 2Do While Twos < 100   MsgBox Twos   Twos = Twos * 2Loop
Các chọn lựa?
A)  
2
B)  
100
C)  
64
D)  
128
Q.59/ 60
Chương trình nào sau đây sẽ tính tổng các giá trị từ 1 đến 100? 
Các chọn lựa?
A)  
Sum = 0For I = 1 To 100   Sum = Sum + INext I
B)  
Sum = 0For I = 100 To 1 Step -1   Sum = Sum + INext I
C)  
Sum = 0If I <= 100 Then   Sum = Sum + IEnd If
D)  
Sum = 0do while I <= 100 Then   Sum = Sum + Iloop
E)  
Sum = 0do    Sum = Sum + Iloop while I <= 100 
Q.60/ 60
Chương trình nào sau đây sẽ tính tổng các giá trị các số chẵn từ 1 đến 100? 
Các chọn lựa?
A)  
Sum = 0For I = 1 To 100   if i mod 2 =0 then Sum = Sum + INext I
B)  
Sum = 0For I = 2 To 100 step 2   Sum = Sum + INext I
C)  
Sum = 0For I = 1 To 100   Sum = Sum + 2Next I
D)  
Sum = 0For I = 1 To 100 step 2   Sum = Sum + INext I
	TÀI LIỆU THAM KHẢO
1. Programming in Visual Basic 6.0, Julia Case Bradley and Anita C. Millspaugh, McGraw-Hill
2. Programming Microsoft Visual Basic 6.0, Francesco Balena, Microsoft Press
3. Microsoft Visual Basic 6.0 Programer's guide, Microsoft Press 
4. Microsoft Visual Basic 6.0 Introduction to Programming, Michael Sprague, Phillips
5. Programming With Visual Basic 6, Boek ▪ Edward Coburn & Edward J. Coburn
6. Lập trình Windows 1, Phạm Quang Tri