visual basic sintax

rumus VB

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "tidak boleh kosong"
ElseIf Text2.Text = "" Then
MsgBox "tidak boleh kosong"
Else
Text3.Text = Text1.Text * Text2.Text
End If
End Sub




Private Sub Command1_Click()
Dim i As Integer
Dim hasil As Integer
hasil = 0
For i = 1 To 3
hasil = hasil + Text1.Text
Next i
Text2.Text = hasil

End Sub