بالا مثلثی و پایین مثلثی

سلام دوستان عزیز

تو رو خدا کمک کنید من می خوام این برنامه رو به VB بنویسم ولی هر کاری می کنم نمیشه


لطفا یکی برام کد بالا مثلثی و پایین مثلثی بنویسد.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
با تشکر ...:40:

Private Sub Command1_Click()
Dim x(1 To 3, 1 To 3) As Integer
For i = 1 To 3
For j = 1 To 3
x(i, j) = Val(InputBox("Enter Number"))
Print x(i, j);
Next j
Print
Next i


blna = True
For i = 2 To 3
For j = 1 To i - 1
If x(i, j) <> 0 Then
blna = False
Exit For
End If
Next j
Exit For
Next i
If blna = True Then
For i = 1 To 2
For j = 3 To i + 1 Step -1
If x(i, j) <> 0 Then
Print "bala mosalasi"
Exit For
End If
Next j
Exit For
Next i
End If
If blna = False Then
blnb = True
For i = 1 To 2
For j = 3 To i + 1 Step -1

If x(i, j) <> 0 Then
blnb = False
Exit For
End If
Next j
Exit For
Next i
If blnb = True Then Print "pauin mosalasi"
End If
End Sub

میتونید اول کد بجای اینکه ورودی رو با input box بگیره رو عوض کنی و دیگه حله...:20:
موفق باشید:46:

سلام دوست عزیز

از راهنمایی بسیار ممنون ولی فقط این که بالا یا پایین مثلثی بودن رو مشخص نمی کنه !!!

فقط اعداد را از inputpux میگیره و نمایش میده اون اعداد ...:11:

آهاا الان تست کردم . نشون داد مرسییییی :46:

سلام عزیز

ببین اگر میشه یک برنامه بنویسید که بالا مثلثی رو به پایین مثلثی تبدیل کنه و بر عکس [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با تشکر
:11: