ايران ويج

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

خوشبحالت چقدر هوادار داری اینجا! حسودیم شد!! (;

اینم از طرف من

(۱۷-فروردین-۱۳۹۱, ۰۱:۴۰:۲۰)1120 نوشته است: [ -> ]سلام آقا معلم .
انشالا که خوب و سلامتید همگی

سلام
خوبین شما؟ ممنون از لطفت . دستت درد نکنه. بابت کدها ممنون .تقریبا همون چیزی هستش که می خواستم .منتها ادرس فایل رو خودمون باید بهش بدیم. یعنی هر بار ممکنه جای فایل متنی عوض بشه.
یه دنیا ممنون

(۱۷-فروردین-۱۳۹۱, ۰۸:۵۲:۱۷)Di Di نوشته است: [ -> ]سلام
خوب هستید. سال نو شما هم مبارک باشه.

خوشبحالت چقدر هوادار داری اینجا! حسودیم شد!!

کد:

Dim A(10) As String
Open "C:\Test.Txt" For Input As #1
While EOF(1) = False
Input #1, A(I)
I = I + 1
Wend
Close 1#
MsgBox CStr(A(Int(Rnd * 10)))

اینم از طرف من

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

سلام آقا معلم .
حالا شد همونی که میخواستید
مهدی جان سلام . دلم واسه شما و ایرانویجیز قدیمی تنگ شده بود .
انشاالله که همتون سال خوبی داشته باشید

سلام
دست مریزاد. خدایی همونی شد که می خواستم. دیدم تشکر کمه پست زدم تا تشکر کنم.
دی دی جان از شما هم ممنون