1.
Dim jml As Single
Dim awal, akhir As Integer
Private sub command1_click()
awal = CInt(text1.text)
akhir = CInt(text2.text)
jml = 0
do until (awal > akhir)
jml = jml + awal
awal = awal + 1
loop
text3.text = hasil
end sub
jika kita menginput “Universitas” pada textbox1 dan “gunadarma” pada textbox2 berapa banyak pengulangan yang terjadi ?
Dim awal, akhir As Integer
Private sub command1_click()
awal = CInt(text1.text)
akhir = CInt(text2.text)
jml = 0
do until (awal > akhir)
jml = jml + awal
awal = awal + 1
loop
text3.text = hasil
end sub
jika kita menginput “Universitas” pada textbox1 dan “gunadarma” pada textbox2 berapa banyak pengulangan yang terjadi ?
A.
? Universitasgunadarma
Universitasgunadarma Universitasgunadarma
B.
? Universitasgunadarma
Universitasgunadarma
C.
? Universitasgunadarma
D.
:-) Error
dan tidak menghasilkan output
2.
For counter=1 to 10 step
2
display.Text=counter
Next
Yang tercetak pada text box adalah
display.Text=counter
Next
Yang tercetak pada text box adalah
A.
? 12345678910
B.
? 1
2 3 4 5 6 7 8 9 10
C.
:-) 13579
D.
? 246810
3.
Do whilecounter
<=1000
num.Text=counter
counter =counter+1
Loop
Yang tercetak pada text box adalah :
num.Text=counter
counter =counter+1
Loop
Yang tercetak pada text box adalah :
A.
:-) 1234,…..1000
B.
? 1 2 3
4,……1000
C.
? 2468,…….1000
D.
? 2 4 6
8,…….1000
4.
“ bentuk perulangan yang
memerintahkan
proram untuk menjalankan proses yang berulang apabila kondisi persyaratan yang
ada masih bernilai true. Jika kondisi persyaratan sudah bernilai False maka
program akan melanjutkan proses ke kode program berikutnya”
pengertian di atas adalah pengertian dari ?
proram untuk menjalankan proses yang berulang apabila kondisi persyaratan yang
ada masih bernilai true. Jika kondisi persyaratan sudah bernilai False maka
program akan melanjutkan proses ke kode program berikutnya”
pengertian di atas adalah pengertian dari ?
A.
:-) Do while
loop
B.
? For
next
C.
? Do
until loop
D.
? Do
while
5.
“Perulangan ini akan
menjalankan proses perulangan sampai kondisi perulangan dipenuhi. Apabila
kondisi perulangan masih bernilai False, maka proses akan dijalankan terus
Menerus”
pengertian di atas adalah pengertian dari ?
pengertian di atas adalah pengertian dari ?
A.
? Do
while loop
B.
? For
next
C.
:-) Do until
loop
D.
? Do
while
6.
FOR nilai = 1 TO 10 Step
2
Maksud dari code di atas adalah ?
Maksud dari code di atas adalah ?
A.
? Menaikkan
nilai sebesar kelipatan 1
B.
:-) Menaikkan
nilai sebesar kelipatan 2
C.
? Menurunkan
nilai sebesar kelipatan 1
D.
? Menurunkan
nilai sebesar kelipatan 2
7.
FOR = TO [STEP ]
NEXT
Manakah yang salah untuk penjelasan code di atas?
NEXT
Manakah yang salah untuk penjelasan code di atas?
A.
? adalah
perubahan nilai setiap pengulangan. Step
sifatnya optional (boleh ditulis ataupun tidak). Bila tidak ditulis maka nilai
akan naik secara bertahap sebesar 1.
sifatnya optional (boleh ditulis ataupun tidak). Bila tidak ditulis maka nilai
akan naik secara bertahap sebesar 1.
B.
? adalah
nilai awal dari .
C.
? adalah
nilai akhir dari
D.
:-) adalah
variabel (tipe: string) yang digunakan untuk menyimpan
angka pengulangan.
angka pengulangan.
8.
. j = 10
Do Until j < 1
ListBox3.Items.Add(j & " BD")
j -= 2
Loop.
Akan menghasilkan apa program di atas?
Do Until j < 1
ListBox3.Items.Add(j & " BD")
j -= 2
Loop.
Akan menghasilkan apa program di atas?
A.
:-) 10BD 8BD
6BD 4BD 2BD
B.
? 10 BD 8 BD
6 BD 4 BD 2 BD
C.
? 10B
D 8B D 6B D 4B D 2B D
D.
? 10
B D 8 B D 6 B D 4 B D 2 B D
9.
. For i = 10 To 1 Step
-1
ListBox2.Items.Add(i)
Next
Akan menghasilkan apa program di atas?
ListBox2.Items.Add(i)
Next
Akan menghasilkan apa program di atas?
A.
:-) 10987654321
B.
? 10 9 8 7 6
5 4 3 2 1
C.
? 1
2 3 4 5 6 7 8 9 10
D.
? 12345678910
10.
Private Sub
Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim awal, akhir As Integer
awal = 1
akhir = 26
For i = awal To akhir Step 3
'List1.AddItem MonthName(i)
'List1.addItem i
kode_ascii = 64 + i
List1.AddItem Chr(kode_ascii)
Next i
End Sub
Akan menghasilkan apa program di atas?
End
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim awal, akhir As Integer
awal = 1
akhir = 26
For i = awal To akhir Step 3
'List1.AddItem MonthName(i)
'List1.addItem i
kode_ascii = 64 + i
List1.AddItem Chr(kode_ascii)
Next i
End Sub
Akan menghasilkan apa program di atas?
A.
? Urutan kode
sesuai ascii
B.
? Urutan
bilangan sesuai ascii
C.
:-) Urutan
huruf sesuai ascii
D.
? Salah semua
11.
“IF Then ”
Pada Visual basic merupakan bentuk umum dari
A.
:-) Kondisi
Percabangan
B.
? Kondisi
Perulangan
C.
? Kondisi
Tetap
D.
? Kondisi
Hipotesa
12.
Operator Logika yang
digunakan untuk kondisi yang dipakai lebih dari satu pada Visual Basic adalah
A.
? Then
B.
? True
C.
? True
D.
:-) Eqv
13.
Berikut adalah Operator
Logika yang biasa digunakan pada percabangan dalam Visual Basic, kecuali
A.
? And
B.
? OR
C.
? XOR
D.
:-) Then
14.
Berikut adalah Operator
Perbandingan yang biasa digunakan pada Percabangan dalam Visual Basic, kecuali
A.
? <>
B.
? >=
C.
? >
D.
:-) =>
15.
Maksud dari Command
“Not” Pada percabangan adalah
A.
:-) Untuk
Logika Tidak
B.
? Untuk
Logika atau
C.
? Untuk
Logika dan
D.
? Untuk
Logika Implikasi.
16.
Maksud dari Command
“And” Pada percabangan adalah
A.
? Untuk
Logika Tidak
B.
? Untuk
Logika atau
C.
:-) Untuk
Logika dan
D.
? Untuk
Logika Implikasi.
17.
Maksud dari Command “Or”
Pada percabangan adalah
A.
? Untuk
Logika Tidak
B.
:-) Untuk
Logika atau
C.
? Untuk
Logika dan
D.
? .
Untuk Logika Implikasi.
18.
Maksud dari Command
“Xor” Pada percabangan adalah
A.
? Untuk
Logika Equivalen
B.
:-) Untuk
Logika Executive atau
C.
? Untuk
Logika Atau
D.
? Untuk
Logika Implikasi.
19.
. Maksud dari Command
“Imp” Pada percabangan adalah
A.
? Untuk
Logika Equivalen
B.
? Untuk
Logika Executive atau
C.
? Untuk
Logika Atau
D.
:-) Untuk
Logika Implikasi.
20.
Maksud dari Command
“Eqv” Pada percabangan adalah
A.
:-) Untuk
Logika Equivalen
B.
? Untuk
Logika Executive atau
C.
? Untuk
Logika Atau
D.
? Untuk
Logika Implikasi.
21.
Maksud dari Command
“<>” Pada kondisi percabangan adalah
A.
? Sama
Dengan
B.
? Lebih
dari kurang dari
C.
? Kurang
Dari
D.
:-) Tidak
Sama dengan
22.
Ada dua bentuk struktur
kontrol pengulangan (looping), yaitu
A.
? IF
THEN & SELECT CASH
B.
:-) FOR NEXT
& DO LOOP
C.
? Jawaban
a dan b Benar
D.
? Semua
Jawaban Benar
23.
Procedure yang tidak
mengembalikan nilai setelah ‘tugas’-nya selesai adalah
A.
? Procedure
Sub
B.
:-) Procedure
Function
C.
? Procedure
Event
D.
? Procedure
Property
24.
Type data yang bernilai
TRUE atau FALSE
A.
:-) Boolean
B.
? Date
C.
? Currency
D.
? Single
25.
Variabel yang hanya
dikenali oleh satu bagian program saja adalah …
A.
:-) Variable
Global
B.
? Variable
Lokal
C.
? Variable
National
D.
? Variable
International
26.
String,Integer,Boolean,Date,Currency
dan Single termasuk kedalam
A.
? Variable
B.
:-) Data
C.
? Procedure
D.
? Information
27.
Procedure untuk mengubah
(let) atau mengambil (get) nilai property pada sebuah object. Digunakan di
dalam class module adalah
A.
? Procedure
Sub
B.
? Procedure
Function
C.
:-) Procedure
Event
D.
? Procedure
Property
28.
Untuk membaca data dari
tabel atau query pada database server menggunakan .
A.
? Data Grid
B.
:-) Adodc
C.
? . Show Grid
D.
? Flex
Grid
29.
Untuk menghubungkan
antara Datagrid dengan komponen Adodc menggunakan
A.
:-) Data
Source
B.
? Data
Member
C.
? DefColWidth
D.
? Column
Header
30.
Perbedaan yang mendasar
antara Data Grid dengan Data List terdapat pada ..
A.
? Banyaknya
tabel yang dapat dibaca
B.
? Data
List tidak dapat dihubungkan dengan Adodc
C.
:-) Banyaknya
kolom yang dapat ditampilkan
D.
? Banyaknya
baris yang dapat ditampilkan
Tidak ada komentar:
Posting Komentar