NEW
Font size
WorksheetsPretest Pemrograman Komputer TIL
Total questions: 35
Worksheet time: 30mins
Apa yang akan terjadi jika kode VBA berikut ini dijalankan?
For i = 1 To 5
MsgBox i
Next i
Menampilkan kotak pesan dengan angka 1 hingga 5, satu per satu
Menampilkan kotak pesan hanya dengan angka 5
Mengulang eksekusi kode 5 kali tanpa menampilkan pesan
Menampilkan kotak pesan dengan angka 1 hingga 5 sekaligus dalam satu pesan
Apa yang akan dilakukan kode VBA berikut ini?
If Range("A1").Value > 10 Then
Range("B1").Value = "Lebih besar dari 10"
Else
Range("B1").Value = "Kurang atau sama dengan 10"
End If
Menampilkan nilai "Lebih besar dari 10" di sel B1 jika nilai A1 lebih besar dari 10, dan "Kurang atau sama dengan 10" jika tidak
Menampilkan nilai "Lebih besar dari 10" di sel A1 dan "Kurang atau sama dengan 10" di sel B1
Menampilkan pesan kesalahan karena perbandingan tidak valid
Menyisipkan nilai perbandingan antara A1 dan 10 di sel B1
Dari pilihan berikut, manakah kode VBA yang memberikan perintah untuk menyisipkan angka 1 hingga 5 di sel A1 sampai A5?
For i = 1 To 5
Cells(1, i).Value = i
Next i
For i = 1 To 5
Cells(i, 1).Value = i
Next i
For i = 0 To 5
Range("A" & i+1).Value = i
Next i
For i = 0 To 5
Cells(i+1, 1).Value = i + 1
Next i
Perintah VBA manakah yang digunakan untuk mengulang eksekusi kode tertentu dalam loop?
If-Else
For-Next
MsgBox
Do While
Manakah dari pernyataan berikut yang benar tentang penggunaan Dim dalam VBA
Dim digunakan untuk menghapus variabel dari memori
Dim digunakan untuk mengubah tipe data variabel
Dim digunakan untuk mendeklarasikan variabel dan menetapkan tipe data
Dim digunakan untuk menginisialisasi nilai variabel
Perintah “Do Until” dalam VBA digunakan untuk…
Menjalankan perulangan selama kondisi bernilai TRUE
Menjalankan perulangan selama kondisi bernilai FALSE
Menjalankan perulangan tanpa henti
Menghentikan eksekusi program
Tipe data yang digunakan untuk menyimpan teks dalam VBA adalah…
Integer
Double
String
Boolean
Apa output dari kode berikut?
Dim angka As Integer
angka = 10 / 3
MsgBox angka
3,33
3
4
Error
Program apa yang menampilkan angka ganjil antara 1-10?
Sub Test()
Dim i As Integer
For i = 1 To 10
If i Mod 2 = 1 Then MsgBox i
Next i
End Sub
Sub Test()
Dim i As Integer
For i = 1 To 10
If i Mod 2 = 0 Then MsgBox i
Next i
End Sub
Sub Test()
Dim i As Integer
For i = 1 To 10 Step 3
MsgBox i
Next i
End Sub
Sub Test()
Dim i As Integer
For i = 2 To 10 Step 2
MsgBox i
Next i
End Sub
Dalam flowchart, bagaimana cara merepresentasikan keputusan atau percabangan logika dengan kondisi?
Dengan simbol oval
Dengan simbol persegi panjang
Dengan simbol belah ketupat
Dengan simbol panah
Apa fungsi dari ThisDrawing.ModelSpace.AddLine dalam VBA AutoCAD
Menghapus garis yang ada di gambar AutoCAD
Menambahkan garis ke dalam model ruang AutoCAD
Membuat teks keterangan pada gambar
Mengganti warna garis yang sudah ada
Perintah apa yang digunakan untuk membuat dimensi linear pada AutoCAD menggunakan VBA?
ThisDrawing.ModelSpace.AddText
ThisDrawing.Utility.GetPoint
ThisDrawing.ModelSpace.AddDimAligned
ThisDrawing.ModelSpace.AddCircle
Dalam VBA AutoCAD, bagaimana cara mengakses titik yang dipilih pengguna dari gambar?
ThisDrawing.ModelSpace.AddLine
ThisDrawing.Utility.GetPoint
ThisDrawing.Utility.PolarPoint
ThisDrawing.ModelSpace.AddText
Perintah apa yang digunakan untuk memperbesar tampilan agar seluruh objek terlihat dalam satu layar?
ZoomExtents
ThisDrawing.Utility.ZoomWindow
ThisDrawing.ModelSpace.ZoomAll
ThisDrawing.ModelSpace.Pan
Perintah apa yang digunakan untuk mengambil keputusan dari kondisi yang lebih dari satu Atau dengan kata lain akan menjalankan kondisi yang benar dari 2 pernyataan.
If then
If then Else
If then Elseif
Select Case
Apa yang terjadi jika Anda menggunakan MsgBox tanpa parameter tambahan dalam VBA?
Muncul jendela pesan dengan tombol "OK"
AutoCAD langsung tertutup
Gambar secara otomatis disimpan
Program VBA berhenti berjalan
Perintah apa yang digunakan untuk mengambil keputusan dan menyelesaikan masalah yang mempunyai banyak kondisi atau lebih dari 2 pernyataan?
If then
If then Else
If then Elseif
Select Case
Function x(n As Integer) As Double
Dim i As Integer, hasil As Double
hasil = 1
For i = 1 To n
hasil = hasil * i
Next i
x = hasil
End Function
Sub HitungX()
Dim angka As Integer
angka = InputBox("Masukkan bilangan:", "Perhitungan x")
MsgBox "Hasil: " & x(angka)
End Sub
Jika User memasukkan angka 6, Maka hasil yang keluar menunjukkan angka?
6
36
720
120
Perintah apa yang digunakan untuk melakukan perulangan terus-menerus selama kondisi memenuhi syarat (True)?
Do While
Do Until
While
For
Lengkapi kode yang hilang untuk menentukan apakah suatu bilangan merupakan bilangan prima atau bukan
Sub CekPrima()
Dim n As Integer, i As Integer, prima As Boolean
n = InputBox("Masukkan bilangan:", "Cek Bilangan Prima")
If ___ Then
prima = False
Else
prima = True For i = 2 To _______ ' Lengkapi bagian kode yang hilang!
If n Mod i = 0 Then
prima = False
Exit For
End If
Next i
End If
MsgBox n & IIf(prima, " adalah bilangan prima", " bukan bilangan prima")
End Sub
n=0; n/2
n<1; n(Sqr(n))
n<2; (Sqr(n))
n<2; (n*n)
Semua output untuk program berikut adalah benar kecuali?
f0 = 0
f1 = 1
jumlah = 0
For i = 1 To 911
jumlah = f0 + f1
f0 = f1
f1 = jumlah
x = jumlah
Next i
jumlah = f0 + f1 = 0 + 1 = 1
f0 = f1 → f0 = 1
f1 = jumlah → f1 = 1
x = jumlah → x = 1
jumlah = f0 + f1 = 1 + 1 = 2
f0 = f1 → f0 = 1
f1 = jumlah → f1 = 2
x = jumlah → x = 2
jumlah = f0 + f1 = 1 + 2 = 3
f0 = f1 → f0 = 2
f1 = jumlah → f1 = 3
x = jumlah → x = 3
Semua Benar
Perhatikan Program Berikut Ini!
Private Sub CommandButton1_Click()
Dim jumlah As Integer
Dim i As Integer
jumlah = TextBox1.Value
If jumlah < 1 Then
For i = 1 To 15
jumlah = jumlah + i
Next i
Else
End If
MsgBox jumlah
End Sub
Untuk “jumlah” ditentukan nilai harus 0
Sehingga, diberikan hasil dalam bentuk pernyataan sebagai berikut :
Nilai Iterasi Pertama : 1
Nilai Iterasi Kedua : 3
Nilai Iterasi Ketiga : 5
Nilai Iterasi Keempat : 10
Maka jumlah pernyataan yang benar adalah?
1 Pernyataan Benar
2 Pernyataan Benar
3 Pernyataan Benar
4 Pernyataan Benar
Perhatikan Program berikut ini!
Private Sub JanganPusingDuluYaSemangat()
Dim i As Integer
For i = 1 To 5
Cells(i, 1).Value = "Data " & i
Next i
End Sub
Maka Pernyataan yang benar jika kita menjalankan kode di Excel adalah?
Mengisi sel A1 hingga A5 dengan "Data 1", "Data 2", ..., "Data 5"
Mengisi seluruh kolom A dengan "Data i" tanpa batas
Error karena cells tidak dikenali
Hanya menampilkan "Data 5" di sel A5
Deklarasi variabel VBA yang sesuai adalah?
Dim Angka As (Int)
Declare angka As integer
Dim Angka As Integer
Set angka = integer
Manakah sintaks If-Else yang benar dalam beberapa program berikut ini
If x = Saya Sukses Then
MsgBox "X adalah Saya Sukses"
Else
MsgBox "X bukan Saya Sukses"
End If
If x = KoasPemkomNgasihSoalSusahBener {
MsgBox "X adalah KoasPemkomNgasihSoalSusahBener"
}
Else {
MsgBox "X bukan KoasPemkomNgasihSoalSusahBener"
}
If x = MakanSiangGratisTapiKenaEfisiensi
Then
MsgBox "X adalah MakanSiangGratisTapiKenaEfisiensi"
Else MsgBox "X bukan MakanSiangGratisTapiKenaEfisiensi"
If (x = KodokPushUP) Then MsgBox "X adalah KodokPushUP"
Else MsgBox "X bukan KodokPushUP"
End
Apa output dari kode berikut dalam VBA?
Sub Test()
Dim x As Integer
x = 5 + 3 * 2
MsgBox x
End Sub
16
11
13
10
Manakah pernyataan yang benar tentang penggunaan If...Then...Else dalam VBA?
Struktur If...Then...Else hanya dapat digunakan untuk satu kondisi saja.
ElseIf tidak bisa digunakan lebih dari satu kali dalam satu blok If...Then...Else.
If...Then...Else digunakan untuk pengambilan keputusan berdasarkan kondisi tertentu.
Else harus selalu ada dalam setiap blok If...Then...Else.
Apa output dari kode VBA berikut?
Sub LoopTest()
Dim i As Integer
Dim result As String
result = ""
For i = 1 To 3
result = result & i
Next i
MsgBox result
End Sub
"123"
"0123"
"3"
"1 2 3"
Apa fungsi dari perintah Exit For dalam struktur perulangan VBA?
Melanjutkan ke iterasi berikutnya tanpa menjalankan perintah di bawahnya.
Menghentikan perulangan dan melanjutkan eksekusi kode setelah perulangan.
Mengulang kembali perulangan dari awal.
Memaksa keluar dari subroutine.
Apa hasil dari kode berikut dalam VBA?
Sub Test()
Dim x As Integer
x = 10
If x > 5 Then
MsgBox "Besar"
Else
MsgBox "Kecil"
End If
End Sub
Menampilkan pesan "Besar"
Menampilkan pesan "Kecil"
Menampilkan pesan "10"
Tidak menampilkan apa pun
Bagaimana cara menambahkan lingkaran dalam AutoCAD menggunakan VBA?
ThisDrawing.ModelSpace.AddCircle
ThisDrawing.Entities.AddCircle
ThisDrawing.ModelSpace.InsertCircle
Apa yang dilakukan oleh kode berikut?
Dim obj As AcadCircle
Set obj = ThisDrawing.ModelSpace.AddCircle(ThisDrawing.Utility.GetPoint(, "Pilih titik pusat: "), 5)
obj.Update
Membuat lingkaran dengan jari-jari 5 di titik yang dipilih pengguna
Menghapus lingkaran yang sudah ada
Menampilkan koordinat lingkaran
Menggambar lingkaran tetapi tidak terlihat
Apa perbedaan antara Sub dan Function dalam VBA?
Function bisa mengembalikan nilai, sedangkan Sub tidak
Sub bisa mengembalikan nilai, sedangkan Function tidak
Sub dan Function adalah sama
Sub hanya bisa dipanggil dalam satu modul
Bagaimana cara mengganti font dari semua teks di AutoCAD menggunakan VBA?
Dim obj As AcadText
For Each obj In ThisDrawing.ModelSpace
obj.StyleName = "Arial"
Next obj
Dim obj As AcadText
For Each obj In ThisDrawing.ModelSpace
obj.Font = "Arial"
Next obj
Dim obj As AcadText
For obj = 0 To ThisDrawing.ModelSpace.Count - 1
obj.Style.Font = "Arial"
Next obj
Dim obj As AcadText
For obj = 0 To ThisDrawing.ModelSpace.Count - 1
obj.TextFont = "Arial"
Next obj
Bagaimana cara menyalin sebuah objek di AutoCAD menggunakan VBA?
Object.Copy
Object.Duplicate
Object.Clone
Object.Replicate
