Private Sub Form_Load()
Dim n As Long, i As Long, m As Long
Dim s As String
n = Val(InputBox("Please enter n :"))
For i = 1 To n
m = Val(InputBox("Please enter a number :"))
If m Mod 3 = 0 Or m Mod 5 = 0 Then
s = s & CStr(m) & " "
End If
Next
MsgBox s
End
End Sub
مهندس این فایل رو نگاه کن فرم کلیش می خوام طوری باشه که با زدن دکمه خواندن و ورودی تکست باکس مثلا 5 وارد کنیم inputbox 5 بار عدد ازمومون بگیره و اعدادی که بر 3 یا 5 بخش پذیرند رو تویه لیست نمایش بده
مهندس این فایل رو نگاه کن فرم کلیش می خوام طوری باشه که با زدن دکمه خواندن و ورودی تکست باکس مثلا 5 وارد کنیم inputbox 5 بار عدد ازمومون بگیره و اعدادی که بر 3 یا 5 بخش پذیرند رو تویه لیست نمایش بده
Private Sub Command1_Click()
Dim n As Long
n = Val(Text1.Text)
Call showw(n)
End Sub
Public Sub showw(n As Long)
Dim i As Long, m As Long
Dim s As String
List1.Clear
For i = 1 To n
m = Val(InputBox("Please enter a number :"))
If m Mod 3 = 0 Or m Mod 5 = 0 Then
List1.AddItem m
End If
Next
End Sub
http://www.lon.ir/up/uploads/1273602595.rar
The_king بزرگوار یه نگاه به این برنامه هم کن قربون دستت می خوام عددی رو که وارد می کنم و برعکس می کنه تویه لیست بکس به صورت زیر هم نشون بده !!! یعنی 589 به صورت 9 و8 و5 زیر همدیگه بزنه ؟؟؟
ممنون میشم
http://www.lon.ir/up/uploads/1273602595.rar
the_king بزرگوار یه نگاه به این برنامه هم کن قربون دستت می خوام عددی رو که وارد می کنم و برعکس می کنه تویه لیست بکس به صورت زیر هم نشون بده !!! یعنی 589 به صورت 9 و8 و5 زیر همدیگه بزنه ؟؟؟
ممنون میشم
Private Sub Command1_Click()
Dim n As Long
n = Val(Text1.Text)
Call showw(n)
End Sub
Public Sub showw(n As Long)
Dim i As Long, m As Long
Dim s As String
List1.Clear
For i = 1 To n
m = Val(InputBox("Please enter a number :"))
If m Mod 3 = 0 Or m Mod 5 = 0 Then
List1.AddItem m
End If
Next
End Sub
