جدول جادویی

برنامه ی زیر برنامه ای بسیار جالب است. در این برنامه فقط به یک دکمه با نام command1 نیاز دارید . این برنامه جدولی را چاپ می کند که مجموع ارقام هر سطر یا ستون آن برابر با ۱۵ می شود.

Private Sub Command1_Click() Dim sngb(1 To 3, 1 To 3) As Integer, i As Integer, j As Integer, p As Integer For k = 1 To 3 For i = 1 To 3 sngb(k, i) = 1 Next Next i = 1 j = 2 p = 1 sngb(i, j) = p p = 2 n: i = i - 1 j = j - 1 If i = 0 Then i = i + 3 End If If j = 0 Then j = j + 3 End If If p = 4 Then i = 3 j = 3 End If If p = 7 Then i = 2 j = 1 End If sngb(i, j) = p If p

نظرات خودتونو توی قسمت نظر ها مطرح کنید

خواندن اطلاعات JSON از فایل - اندروید استودیو...