كمك براي حل چند مسئله؟ (فوري)

[iranfast]

بابا جون خودتون اذيت نكنيد من به اين سوالا احتياج دارم شما گير دادين مي گين سوالاي تكراري نپرسيد
حالا اين دفعه رو بي خيال شيد
arashrj  يكي از اين سوالارو اشتباه جواب دادي اونم جواب سوال چهاره.
هر چي بزني مي نويسه 4500
من مي خوام وقتي روي دكمه كليك كردي يكان عدد با صدگان عدد يه جور باشه
يعني با دستور فور 121 يا 323 يا 454 .
من تا فردا يعني پنج شنبه به اين برنامه ها نياز دارم.
خيلي خيلي ممنون

[Iron_Fist]

من تا فردا يعني پنج شنبه به اين برنامه ها نياز دارم.

ای ناکس !
جواب تکالیفت رو می آی از بچه ها می پرسی

[iranfast]

ناكس بازي نيست چون ماها آماتوريم براي اينكه روشون كار كنيم و ياد بگيريم ميايم از ديگران مي پرسيم. براي فردا نياز دارم چون مي خوام اونارو ياد بگيرم و جواب بدم

[esmaeily-hosein]

Private Sub one(n As Integer)
For i = 3 To n
For j = 2 To Sqr(i)
If i Mod j = 0 Then
List1.AddItem i
Exit For
End If
Next j
Next i
End Sub

Private Function sum(n As Integer) As Long
For i = 1 To n
sum = sum + i
Next i
End Function

Private Function reverse(strinput As String) As String
For i = Len(strinput) To 1 Step -1
reverse = reverse + Mid(strinput, i, 1)
Next i
End Function


بهینه ترین حالتی که میتوان نوشت .[align=left]

[esmaeily-hosein]

اینم جواب سوال 4 ، سعی کن جواب سوالات را خودت در بیاری . و اگر نه هیچ وقت برنامه نویس نمیشی . اینها مسایل پایه هستند . اگر اینها را یاد نگیری وای به حال بقیه ...
Private Sub gambit()
dd = -0.1
For j = 101 To 999 Step 10
dd = dd + 0.1
cc = Mid(dd, 1, 1)
List1.AddItem j + Val(cc)
Next j
End Sub