15-05-22, 10:36 PM
تفضل :
كود :
Dim x(4) As Integer
For i = 0 To 4
x(i) = InputBox("أدخل الرقم الـ" & i + 1, "مربع الادخال", vbOK)
Next i
For i = 0 To 4
Print x(i) & vbTab & String(x(i), "*")
Next iقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».