14-02-23, 09:11 PM
كود :
Dim xCount 'As Integer 'As Long 'As Double
xCount = 0
For i = 3 To MSFlexGrid1.Cols - 1
xCount = Val(xCount) + Val(MSFlexGrid1.TextMatrix(1, i))
Next i
Text2.Text = xCountقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».