کمک به حل الگوریتم

[nevermoney]

سلام
اسم من انا هست
من فردا امتحان عملی دارم
دوتا سوال هست که توش گیر کردم اگه کسی بتون به هم کمک کنه متشکر میشم
(با VB6(
1.الگوریتمی که دو عدد دریافت کرده و اعداد اول بین این دو را نشان دهد
2.الگوریتمی که دو عدد دریافت کرده و اعداد تام بین این دو را نشان دهد
​

 

[mosi70]

سلام اسم منم مصطفی است
کتاب طراحی الگوریتم و فلوچارت علیرضا جباریه نوشته
من دارمش ولی الان موقعیتشو ندارم بفرستم
اگه خواستید به ایمیلم پیغام بده تا برات بفرستم
mosi.ghanbari@yahoo.com

 

[mosi70]

Dim i As Long, n As Long
n = Val(InputBox("Please enter a number :"))
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next
If n = i Then
MsgBox "yes"
Else
MsgBox "no"
End If

 

[mosi70]

5برنامه ای بنویسید که یک عدد را خوانده، اول بودن آن را تعیین نماید و پیغام مناسبی چاپ کند.

Private Sub Command6_Click()ClsDim i As Integer, n As Integer, t As Booleann = InputBox("Enter a num:")t = Truei = 2Do While i <= n / 2 And tIf n Mod i = 0 Then t = Falsei = i + 1LoopIf t ThenPrint "Prim"Else: Print "not prim"End IfEnd sub​

 

[mosi70]

به این سایت سر بزن هست
http://vb-man.blogfa.com/post-23.aspx