مقایسه اعداد

[Sepideh AGHM]

با سلام
چطوری میشه چند عدد(مثلا 10 عدد مختلف)رو تو برنامه از کاربر بگیری و کوچکترین عدد رو به عنوان نتیجه نشون بدی؟
دو عدد رو با استفاده از دستور IF می تونیم مقایسه کرده و نتیجه شو نشون بدیم و لی 10 عدد رو...

[سید حمید حق پرست]

سلام علیکم
دو نمونه کد
اولی :
Dim vals(0 To 5) As Integer
Dim Name As String
Dim i As Integer
Dim j As Integer
Dim temp As Integer
Dim Mid As Integer
Dim Final As Integer
Dim Term As Integer
Dim Smallest As Single
For i = 0 To 5
vals(i) = InputBox("Enter Assignment mark:")
Next i
Mid = InputBox("What is the Midterm mark?")
Final = InputBox("What is the Final Exam mark?")
For i = 0 To 5
For j = 1 To 5
If vals(j - 1) > vals(j) Then
temp = vals(j)
vals(j) = vals(j - 1)
vals(j - 1) = temp
End If
Next j
Next i
Smallest = vals(0)
MsgBox (Smallest)
دومی :
Dim Aray(1 To 10), J As Integer
For i = 1 To 10
Aray(i) = InputBox("Enter your number :")
Next
J = Aray(1)
For A = 1 To 10
If Aray(A) < J Then J = Aray(A)
Next
MsgBox J, vbInformation
موفق باشید.

یا علی (ع)

[gorg313]

سلام علیکم
دو نمونه کد
اولی :
Dim vals(0 To 5) As Integer
Dim Name As String
Dim i As Integer
Dim j As Integer
Dim temp As Integer
Dim Mid As Integer
Dim Final As Integer
Dim Term As Integer
Dim Smallest As Single
For i = 0 To 5
vals(i) = InputBox("Enter Assignment mark:")
Next i
Mid = InputBox("What is the Midterm mark?")
Final = InputBox("What is the Final Exam mark?")
For i = 0 To 5
For j = 1 To 5
If vals(j - 1) > vals(j) Then
temp = vals(j)
vals(j) = vals(j - 1)
vals(j - 1) = temp
End If
Next j
Next i
Smallest = vals(0)
MsgBox (Smallest)
دومی :
Dim Aray(1 To 10), J As Integer
For i = 1 To 10
Aray(i) = InputBox("Enter your number :")
Next
J = Aray(1)
For A = 1 To 10
If Aray(A) < J Then J = Aray(A)
Next
MsgBox J, vbInformation
موفق باشید.

یا علی (ع)


سلام سيد اگه يه سه عدد را بگير و از کوچيک به بزرگ چاپ کنه اونو چطور بايس بنويسيم

من خودم نوشتم گيج شدم

اين سورسش

Q=دريافت عدد اول
W=دريافت عدد دوم
E=دريافت عدد سوم

يک ليبل به اسم ليبل
ميخواد

يه کامند که سورس پاينو توش بذارم

:متفکر:


Dim Q, W, E As Integer

Q = InputBox("ÚÏÏ Çæá", "ÏÑíÇÝÊ ÚÏÏ Çæá", "0")
W = InputBox("ÚÏÏ Ïæã", "ÏÑíÇÝÊ ÚÏÏ Ïæã", "0")
E = InputBox("ÚÏÏ Óæã", "ÏÑíÇÝÊ ÚÏÏ Óæã", "0")

'ÚÏÏ Çæá ÇÒ ÚÏÏ Ïæã æ Óæã ˜æí˜ÊÑ ÈÇÔå ÚÏÏ Ïæã ÇÒ ÚÏÏ Óæã ˜æí˜ÊÑ ÈÇÔå

'Q<W AND Q<E AND W<E


'ÚÏÏ Ïæã ÇÒ Çæá æ ÚÏÏ Óæã ˜æí˜ÊÑ ÈÇÔå ÚÏÏ Çæá ˜æí˜ÊÑ ÇÒ ÚÏÏ Óæã

'W<Q AND W<E AND Q<E


'ÚÏÏ Óæã ÇÒ ÚÏÏ Çæá æ ÚÏÏ Ïæã ˜æí˜ÊÑ ÈÇÔå ÚÏÏ ÚÏÏ Ïæã ÇÒ ÚÏÏ Çæá

'E<Q AND E<W AND W<Q


If Q < W And Q < E And W < E Then


'Label4.Caption = "ÝÑãæá 3" & vbNewLine & "ÇÚÏÇÏ ÇÒ ˜æ˜ Èå ÈÒѐ Ç ÔÏ" & vbNewLine & "ÚÏÏ Óæã : " & E & vbNewLine & "ÚÏÏ Çæá : " & Q & vbNewLine & "ÚÏÏ Ïæã : " & W

Label4.Caption = "ÝÑãæá 1" & vbNewLine & "ÇÚÏÇÏ ÇÒ ˜æ˜ Èå ÈÒѐ Ç ÔÏ" & vbNewLine & "ÚÏÏ Çæá : " & Q & vbNewLine & "ÚÏÏ Ïæã : " & W & vbNewLine & "ÚÏÏ Óæã : " & E

Else


If W < Q And W < E And Q < E Then

Label4.Caption = "ÝÑãæá 2" & vbNewLine & "ÇÚÏÇÏ ÇÒ ˜æ˜ Èå ÈÒѐ Ç ÔÏ" & vbNewLine & "ÚÏÏ Ïæã : " & W & vbNewLine & "ÚÏÏ Çæá : " & Q & vbNewLine & "ÚÏÏ Óæã : " & E


Else


If E < Q And E < W And W < Q Then


Label4.Caption = "ÝÑãæá 3" & vbNewLine & "ÇÚÏÇÏ ÇÒ ˜æ˜ Èå ÈÒѐ Ç ÔÏ" & vbNewLine & "ÚÏÏ Óæã : " & E & vbNewLine & "ÚÏÏ Çæá : " & Q & vbNewLine & "ÚÏÏ Ïæã : " & W

End If
End If
End If

[سید حمید حق پرست]

سلام سيد اگه يه سه عدد را بگير و از کوچيک به بزرگ چاپ کنه اونو چطور بايس بنويسيم
سلام علیکم
بصورت زیر :
Dim Aray(1 To 3) As Integer
Dim A As Integer
Dim aTemp As Integer
Dim aSwap As Boolean
For A = 1 To 3
Aray(A) = InputBox("Enter your number :")
Next A
aSwap = True
Do While aSwap = True
aSwap = False
For A = 1 To 2
If Aray(A) > Aray(A + 1) Then
aTemp = Aray(A)
Aray(A) = Aray(A + 1)
Aray(A + 1) = aTemp
aSwap = True
End If
Next A
Loop
For A = 1 To 3
Me.Print Aray(A)
Next A
موفق باشید.

یا علی (ع)