Kuis

Terjemahkan algoritma bahasa VBA for Excel

Dipublikasikan pada : 29 Januari 2020.

Private Sub bersih_Click()
ListBox1.Clear
TextBox1.Text = “”
End Sub

Private Sub cari_Click()
If TextBox1.Text = “” Then
MsgBox “masukan batas terbesar bilangan prima yang ingin di cari !!!”
End If
batas = Val(TextBox1.Text)
For x = 2 To batas
Z = 0
For y = 2 To x
hasil = x Mod y
If hasil = 0 Then
Z = Z + 1
End If
Next y
If Z <= 1 Then
ListBox1.AddItem x
End If
Next x
End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub