[متميزه]

المشروع الأول


Private Sub Command1_Click()
Dim R As Single
R = Text1.Text
Text2.Text = R * 12
End Sub



المشروع الثاني عندي مشكلة كتبته كذا بس مادري ايش المشكله
Private Sub Command1_Click()

Dim Q , F , T , S , H , m As Single
Text1.Text = Q
Text2.Text = F
Text3.Text = T
Text4.Text = S
Text5.Text = H
m = Val(Q) + Val(F) + Val(T) + Val(S) + Val(H
Text6.Text = m \ 5
End Sub


اعتذر ان اخطئت