یک سوال کوچیک از دوستان برنامه نویس

[photolady]

سلام دوستان . سوالم اینه که
برنامه ای که دو عدد را از ورودی خوانده و حاصلضرب دو عدد را بدون استفاده از عملگر ضرب نمایش دهد ؟؟
من یه کامپوننت ms flex grid توی صفحه ی کار وی بی گذاشتم و بعد روی اون ، این کد رو نوشتم ولی دلیلشو نمیدونم که چرا درست خطا میده .:اشتباه:


Private Sub MSFlexGrid1_Click()
For i = 1 To 10
For j = 1 To 10
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.Text = i * j
Next i.j
End Sub




این هم خطا و کدش


102840


راستی این سوال رو توی vb.net هم مطرح کرده بودم ولی به خاطر قوانین و زود رسیدن به جواب گفتم اینجا مطرح بکنم

[SlowCode]

سلام
عنوان تاپیک رو عوض کن وگرنه حذفش میکنن.
Num1 = text1
Num2 = text2
Multiply = 0
For i = 1 To Num2
Multiply = Multiply + Num1
Next
MsgBox Multiply
شما باز هم پایان حلقه رو اشتباه نوشتی.

For i = 1 To 10
For j = 1 To 10
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.Text = i * j
Next j
Next i

[photolady]

وقتی که دو تا NEXT هم واسش میزارم همین خطا رو میده . من فرم رو واستون پیشوست میکنم . اگه مشکلی نباشه یه نگاهی بهش بندازید ممنون میشم

دانلود فایل (http://https-sock-vpn.persiangig.com/MSFlexGrid.zip)

البته باید کامپوننت msflexgrid هم فعال باشه که بتونی تستش کنی (محض احتیاد)

[SlowCode]

اشکال رو گفتم دقت نکردی یکم، تو اون تاپیک هم گفتم که جای next i و next j رو اشتباه نوشتی!
درستش اینه:
For i = 1 To 10
For j = 1 To 10
MSFlexGrid1.Row = i - 1
MSFlexGrid1.Col = j - 1
MSFlexGrid1.Text = i * j
Next j
Next i
هیچ مشکل دیگه ای نداره.
---------
لطفا وقتی به کسی پروژه ای میدی کل پروژه رو ذخیره کن بعد بفرست، یعنی فایل های frm,vbp , ...

[photolady]

ببخشد اصلا به این قسمتش توجه نکرده بودم . بازم خیلی ممنون . :بوس: