แบบทดสอบออนไลน์ (Online Testing)
1. What is the result?
Module Module1
Dim a As Integer
Sub Main()
Dim a As Integer = 5
sub1(5, a)
Console.WriteLine(func1(a, a))
End Sub
Sub sub1(ByRef x As Integer, ByVal y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByRef x As Integer, ByRef y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    25
    12
    20
    10
    15
2. What is the result?
Module Module1
Dim a As Integer
Sub Main()
Dim a As Integer = 5
Console.WriteLine(func1(a, a))
sub1(a, a)
End Sub
Sub sub1(ByRef x As Integer, ByVal y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByRef x As Integer, ByVal y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    20
    15
    10
    12
    25
3. What is the result?
Module Module1
Dim a As Integer = 2
Sub Main()
sub1(a, a)
Console.WriteLine(func1(a, a))
End Sub
Sub sub1(ByVal x As Integer, ByVal y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByRef x As Integer, ByRef y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    25
    12
    20
    10
    15
4. What is the result?
Module Module1
Dim a As Integer = 1
Sub Main()
sub1(a, a)
Console.WriteLine(func1(a, a))
End Sub
Sub sub1(ByVal x As Integer, ByRef y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByVal x As Integer, ByRef y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    25
    12
    15
    20
    10
5. What is the result?
Module Module1
Dim a As Integer
Sub Main()
Dim a As Integer = 5
sub1(a, a)
Console.WriteLine(func1(a, a))
End Sub
Sub sub1(ByVal x As Integer, ByVal y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByVal x As Integer, ByVal y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    25
    12
    15
    20
    10
6. What is the result?
Module Module1
Dim a As Integer = 1
Sub Main()
sub1(a, a)
Console.WriteLine(func1(a, a) - 4)
End Sub
Sub sub1(ByRef x As Integer, ByRef y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByRef x As Integer, ByRef y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    25
    12
    15
    20
    10
7. What is the result?
Module Module1
Dim a As Integer
Sub Main()
Dim a As Integer = 4
sub1(a, a)
Console.WriteLine(func1(a, a))
End Sub
Sub sub1(ByVal x As Integer, ByRef y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByVal x As Integer, ByRef y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    25
    12
    20
    10
    15
8. What is the result?
Module Module1
Dim a As Integer
Sub Main()
Dim a As Integer = 5
Console.WriteLine(func1(a, a))
sub1(5, a)
End Sub
Sub sub1(ByVal x As Integer, ByVal y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByVal x As Integer, ByVal y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    20
    15
    10
    12
    25
9. What is the result?
Module Module1
Dim a As Integer
Sub Main()
Dim a As Integer = 5
sub1(a, a)
Console.WriteLine(func1(a, a))
End Sub
Sub sub1(ByRef x As Integer, ByVal y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByRef x As Integer, ByVal y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    25
    12
    20
    10
    15
10. What is the result?
Module Module1
Dim a As Integer
Sub Main()
Dim a As Integer = 5
sub1(a, a)
Console.WriteLine(func1(a, a))
End Sub
Sub sub1(ByVal x As Integer, ByRef y As Integer)
a += x : x += a : y += a
End Sub
Function func1(ByVal x As Integer, ByRef y As Integer) As Integer
func1 = a + x + y
End Function
End Module
    12
    20
    10
    15
    25
คำชี้แจง
- ถ้าไม่กรอกทั้งชื่อ และสกุลของผู้ทำข้อสอบ จะไม่ตรวจข้อสอบให้
- ผลสอบจะเก็บเพียง 100 ระเบียนสุดท้าย โดยเรียงจากเวลาล่าสุด
- ถ้าทำข้อสอบไม่ครบ จะไม่ตรวจข้อสอบให้
- เมื่อมีการตรวจคำตอบ จะบันทึกชื่อ และคะแนน ลงฐานข้อมูล พร้อมเวลาเริ่มทำ และเวลาสิ้นสุด
ชื่อของผู้ทำข้อสอบ : เช่น บุรินทร์
สกุลของผู้ทำข้อสอบ : เช่น รุจจนพันธุ์
ต้องกรอกชื่อ และสกุลของผู้ทำข้อสอบ และทำครบทุกข้อ
จึงจะตรวจ และบันทึกผลการทำข้อสอบ ลงสถิติผู้ทำข้อสอบ 100 คนล่าสุด


สถิติผู้ทำข้อสอบ : เริ่มใหม่ : รหัสต้นฉบับ : รุ่น 1.510103 : เวลา : May 24,2013 1:57:39 #
ข้อสอบ : ภาษาอังกฤษ1 : vb.net1 : internet1 : internet2 : computer1 : computer2 : computer3 : computer4 : computer5
บวกเลข1 : บวกเลข2 : จาวาทำซ้ำ1 : xhtml