چند تا سوال مسابقه

سلام

يه چند تا سوال مسابقات مرحله استاني كامپيوتره

اگه ميشه ذوستان لطف كنن و جواب رو برام بذارن

ممنون


سوالات Visual Basic
در نوشتن برنامه از زير برنامه (رويه و تابع) استفاده شود.
1- عدد مقابل را در نظر بگيريد: 735452783974134
تعداد ارقام آن : 15
تعداد ارقام زوج آن: 5
تعداد ارقام فرد آن: 10
سه عدد فوق را از چپ به راست كنار هم مي‌نويسيم: 15510
كارهاي فوق را براي عدد جديد (15510) تكرار مي‌كنيم. باز هم اينكار را تكرار مي‌كنيم ............
مي‌توان نشان داد همه اعداد در نهايت به يك عدد خاص ختم مي‌شوند.
-برنامه‌اي بنويسيد كه عددي چند رقمي را دريافت كند وكارهاي فوق را تا رسيدن به عدد مورد نظر تكرار كند و نتايج حاصل را در يك فايل متني در پوشه تان روي Desktop ذخيره كند و عدد نهايي را اعلام نمايد؟(5+3 امتياز)
- دكمه‌اي براي خروج از برنامه تعبيه كنيد بطوريكه هنگام خروج از كاربر تاييد بگيرد و در صورت تاييد خارج شود. (5/1 امتياز)
3- برنامه‌اي بنويسيد كه دو عدد n و m را دريافت كند و فقط با عملگر + و- حاصل (خارج قسمت و باقي‌مانده) و را محاسبه و چاپ نمايد. (5 امتياز)

از اين همه آدم خبره كسي بلد نيست جواب ما رو بده

نقل قول:

---

نوشته شده توسط Samba [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

در نوشتن برنامه از زير برنامه (رويه و تابع) استفاده شود.
1- عدد مقابل را در نظر بگيريد: 735452783974134
تعداد ارقام آن : 15
تعداد ارقام زوج آن: 5
تعداد ارقام فرد آن: 10
سه عدد فوق را از چپ به راست كنار هم مي‌نويسيم: 15510
كارهاي فوق را براي عدد جديد (15510) تكرار مي‌كنيم. باز هم اينكار را تكرار مي‌كنيم ............
مي‌توان نشان داد همه اعداد در نهايت به يك عدد خاص ختم مي‌شوند.
-برنامه‌اي بنويسيد كه عددي چند رقمي را دريافت كند وكارهاي فوق را تا رسيدن به عدد مورد نظر تكرار كند و نتايج حاصل را در يك فايل متني در پوشه تان روي Desktop ذخيره كند و عدد نهايي را اعلام نمايد؟(5+3 امتياز)

---

این جواب سوال اول:

روی فرم یک Command button قرار بده و کد زیر رو در کد ادیتور بنویس.
برنامه رو اجرا کن :20:

کد:

---

Private Sub Command1_Click()
Dim MyNum As String
MyNum = InputBox("plz type a number:")
If Len(MyNum) <= 0 Then Exit Sub
If IsNumeric(MyNum) <> True Then Exit Sub
Dim MyResult As String
Dim even As Integer
Dim Odd As Integer
Dim i As Integer
Dim hFile As Long
Dim sFilename As String
sFilename = "c:\demo.txt"
hFile = FreeFile
Open sFilename For Output As #hFile
Print #hFile, ""
Close #hFile
While Len(MyNum) > 1
For i = 1 To Len(MyNum)
If Mid(MyNum, i, 1) Mod 2 = 0 Then
even = even + 1
Else
Odd = Odd + 1
End If
Next
MyResult = Len(MyNum) & even & Odd
If Val(MyNum) <> Val(MyResult) Then
Open sFilename For Append As #hFile
Print #hFile, "number: " & MyNum & vbCrLf & _
"Result: " & MyResult & _
vbCrLf & "-----------------" & vbCrLf
Close #hFile
MyNum = MyResult
Else
MyNum = 1
End If
even = 0
Odd = 0
Wend
End Sub

---

جواب بقیه سوالاتت رو هم دارم می نویسم :46:

نقل قول:

---

نوشته شده توسط Samba [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

- دكمه‌اي براي خروج از برنامه تعبيه كنيد بطوريكه هنگام خروج از كاربر تاييد بگيرد و در صورت تاييد خارج شود. (5/1 امتياز)

---

در همون برنامه قبلی یه Command Button دیگه اضافه کن و کد زیر رو در کد ادیتور اضافه کن:

کد:

---

Private Sub Command2_Click()
If MsgBox("Are you sure to exit?", vbYesNo, "Exit") = vbNo Then Exit Sub
End
End Sub

---

نقل قول:

---

نوشته شده توسط Samba [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

3- برنامه‌اي بنويسيد كه دو عدد n و m را دريافت كند و فقط با عملگر + و- حاصل (خارج قسمت و باقي‌مانده) و را محاسبه و چاپ نمايد. (5 امتياز)

---

نمیدونم با وجود اینکه چنین سوالاتی رو میشه به راحتی با توابع math وی بی، پاسخ داد ، طرح اینگونه سوالات با کدامین هدف است؟
شاید هدف، تحلیل قوه خلاقیت سوال شوندگان باشد. شاید.

به هر جهت، پاسخ سوال شما این است:

روی فرم دو تکست باکس و یک کامند باتون قرار دهید و کد زیر را در کد ادیتور بنویسید:

کد:

---

Private Sub Command1_Click()
Call print_Result(Text1, Text2)
End Sub
Private Sub print_Result(ByVal m As Integer, ByVal n As Integer)
If Len(m) <= 0 Then Exit Sub
If Len(n) <= 0 Then Exit Sub
If IsNumeric(m) = False Then Exit Sub
If IsNumeric(n) = False Then Exit Sub
m = Text1
n = Text2
Dim quotient As Integer
Dim remainder As Integer
While m - n >= 0
quotient = quotient + 1
m = m - n
Wend
remainder = m
Cls
Print remainder & " - " & quotient
End Sub

---