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

[Arash_Fifa]

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

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


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

با تشکر ...

[amirxbest]

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 بگیره رو عوض کنی و دیگه حله...
موفق باشید

[Arash_Fifa]

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

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

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

[Arash_Fifa]

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

[Arash_Fifa]

سلام عزیز

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

با تشکر