نقل قول:
سلام به همه ي برنامه نويسان عزيز
من هم تازه رفتم رشته ي كامژيوتر (برنامه نويسي)
دبيرمون گفته اين برنامه را بنويسد:
برنامه اي بنويسيد كه 4 عدد از ورودي دريافت كند. اين برنامه شامل دو check box به نام هاي c1وc2 مي باشد. اگر c1 فعال بود بزرگترين عدد را چاپ نمايد. اگر c2 فعال بود كوچكترين عدد را چاپ نمايد. اگر c1 و c2 فعال بودند اعدادي كه مساوي است را چاپ كند و اگر c1 و c2 فعال نبودند اعدادي كه وارد شده را وارد كند
من نتونستم اين برنامه را درست بنويسم
از استادان گرامي ميخام راهنماييم كنند
خيلي عجله هم دارم چون فردا صبح كلاس دارم.
با تشكر
بفرمایید ... کد رو براتون نوشتم :
کد:
Private Sub Command1_Click()
Dim a(3) As Integer
a(0) = InputBox("Enter A number")
Min = a(0)
Max = a(0)
For i = 1 To 3
a(i) = InputBox("Enter A Number")
If a(i) > Max Then
Max = a(i)
ElseIf a(i) < Min Then
Min = a(i)
End If
Next i
If c1.Value = 1 Then
Print Max
ElseIf c2.Value = 1 Then
Print Min
ElseIf c1.Value = 0 And c2.Value = 0 Then
For i = 0 To 3
Print a(i)
Next i
End If
End Sub
* فقط مساوی رو نمیدونستم که اونم بعدا واست درست میکنم ... حالا شما که عجله داشتی اینو واستون نوشتم ... امیدوارم بدردتون بخوره !
