TEN TEST CENTER
child
Visual Basic.NET (Quiz ID : 33)
1. 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




2. 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




3. 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




4. 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




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(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




6. 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




7. 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




8. 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




9. 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




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




คำชี้แจง
- ถ้าไม่กรอกทั้ง Name และ Surname จะไม่ตรวจให้
- ถ้าทำแบบทดสอบไม่ครบทุกข้อ จะไม่ตรวจให้
- ระบบเก็บผลสอบเพียง 100 ระเบียนล่าสุด
- ผลการตรวจจะเผยแพร่ทั้ง ชื่อ สกุล คะแนน และเวลา
Name : ex. burin
Surname : ex. rujjy
ต้องกรอกชื่อและสกุล(อังกฤษ)และทำทุกข้อ
สถิติ 100 รายการ : เริ่มใหม่ : ภาพเตรียมข้อสอบ : รหัสต้นฉบับ : รุ่น 5.670913 : เวลา : Oct 31,2025 13:15:52
คอมพิวเตอร์
คีย์แอพพลิเคชั่น(1)
จาวาทำซ้ำ(1)
คอมพิวเตอร์(7)
vb.net(1)
แฟน BNK48 (1) 		คณิต
บวกเลข(1)
บวกเลข(2)
อนุกรม ก.พ.(1)
คณิต(1)
เตรียม คณิต ก.พ. 		อังกฤษ
ถาม - ตอบ
present 1
present perfect 1
อังกฤษเบื้องต้น
aiken format 		ไทย สังคม
สังคมศึกษา
ความรู้ทั่วไป
ไทย f.1
ไทย p.1
ไทย m.1 		เกี่ยวกับเรา
หน้าหลัก
ทีมงาน
ศูนย์สอบออนไลน์
สนับสนุน
facebook page
สถิติ 100 รายการล่าสุด