Public Class Form1
Private Sub Button1_Click()
Dim M As Single, Z As Single
M = Textbox1.Text
If M<= 1000 Then
Textbox2.Text = “1000 البرنامج يقوم بحساب الزكاه لاكثر من
Else
Z = 0.025 * M
Textbox2.Text = “الزكاه =” & Z

End If
End Sub

End Class

Public Class Form1
Dim D As Single
Private Sub Button1_Click()
D = InputBox(“ادخل درجه الحراره “) End Sub
Private Sub Button1_Click()
If RadioButton1.Checked = True Then

Public Class Form1
Dim I As Integer
Dim A (3) As Integer
Dim N As String
Private Sub Button1_Click () k
N = InputBox( فضلا ادخل رقم الطالب “) End Sub
Private Sub Button2_Click() For I = 0 To 3