عدد اول

[ahmad3]

سلام
1-من یه برنامه برای تشخیص اعداد اول میخوام
2-یه برنامه برای !n
3-برنامه ای برای دادن معکوس عدد مثلا 36 = 63
4-یه برنامه که تمام اعداد 3 رقمی که یکان با صدکان برابره بده مثل (111 و 121 و 131 و ...)

[فاطمه وطن دوست]

سلام
فقط خودتون بهینش کنید.
این برنامه چاپ اعداد اول بین 1 تا 50 هست.




Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim flag As Boolean
For n = 1 To 50
flag = True
For i = 2 To n / 2
If n Mod i = 0 Then
flag = False
End If
Next
If flag Then
Print (n)
End If
Next
End Sub

[mononok]

با عرض سلام و تبریک سال نو
برنامه اول رو که دوستمون لطف کردند و گذاشتند این هم از برنامه دوم

Private Sub Command1_Click()
Dim a As Double
a = Val(Txt1.Text)
Print fact(a)
End Sub
Private Function fact(x As Double) As Double
If x <= 1 Then
fact = 1
Else
fact = x * fact(x - 1)
End If
End Function
برنامه سوم :فرم کلی آن به صورت زیره البته الان اعداد سه رقمی به پایین رو حساب میکنه برای اعداد بزرگتر تعداد صفرها افزایش می یابد

Private Sub Command1_Click()
Dim a As Integer
a = Val(Txt1.Text)
b = a \ 100
c = a Mod 100
d = c \ 10
e = c Mod 10
If Len(CStr(a)) = 3 Then
Print e; d; b
Else
Print e; d
End If
End Sub
و برنامه چهارم

Private Sub Command1_Click()
Dim a As Integer
For a = 100 To 999
b = a \ 100
c = a Mod 100
d = c \ 10
e = c Mod 10
If b = e Then
Print b; d; e
End If
Next
End Sub
:لبخندساده:

[RezaS_1354]

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


Private Sub Command1_Click()
Dim S As Integer
For S = 0 To Len(Text1)
Text2.Text = Mid(Text1, 3, S)
Next

End Sub
Private Sub Command2_Click()
Dim D As String
Dim W As String
'
D = Mid(Text1, 2, 1)
W = Mid(Text1, 1, 1)
Text3.Text = D & W

End Sub

[ali_habibi1384]

سلام
1-من یه برنامه برای تشخیص اعداد اول میخوام
2-یه برنامه برای !n
3-برنامه ای برای دادن معکوس عدد مثلا 36 = 63
4-یه برنامه که تمام اعداد 3 رقمی که یکان با صدکان برابره بده مثل (111 و 121 و 131 و ...)
احمد آقا این سوالات خیلی مبتدی هستند و برای تقویت و آموزش زبان برننامه نویسی برای شما مطرح شده و جزء مسائل کاربردی نیست .
مطرح کردن سوالات درسی خلاف قوانین و مقررات سایت هستش . بهتره خودتون فکر کنید.