عرض مشاركة واحدة
  #4  
قديم 25-12-2015, 12:51 PM
olobnet olobnet غير متواجد حالياً
عضو مشارك
 
تاريخ التسجيل: May 2008
المشاركات: 118
معدل تقييم المستوى: 18
olobnet is on a distinguished road
افتراضي

Public Class Form1
Dim n As Integer = 1
Dim sum As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sum = sum + n
n = n + 2
If n > 10 Then
Me.Text = n
End If
End Sub
End Class


اول قيمة سوف تظهر على شريط العنوان للنموذج هى 11