برنامه ای بنویسید که لیستی از انواع خطاها را که غالبا رخ میدهند ارایه کن .......من فقط خطای تقسیم بر 0 روبلدم
Printable View
برنامه ای بنویسید که لیستی از انواع خطاها را که غالبا رخ میدهند ارایه کن .......من فقط خطای تقسیم بر 0 روبلدم
برنامهای بنویسیدکه نام ونمره 8 نفر را گرفته واعلام کند رتبه دوم کیسیت......فکر کنم باید این کار را کرد درسته
[html]Private Sub Command1_Click()
Dim A%(1 To 5)
Dim I%, k%, w%, j%, T%
For I = 1 To 5
A(I) = InputBox("NO:")
Next I
For k = 1 To 5
For j = 1 To 4
If A(j) < A(j + 1) Then T = A(j): A(j) = A(j + 1): A(j + 1) = T
Next j
Next k
For w = 1 To 5
Print A(w - 1)
Next w
End Sub
[/html]بعد باید عنصر اول را -1 کرد تا عنصر دوم را نشان بده اینجا به مشکل خوردم
به جای For آخر از این استفاده کن:
کد:Print A(2)
برای به دست آوردن دومی باید عنصر اول رو +1 کرد. ولی وقتی میدونی کدوم رو میخوای نیازی به این کار نیستنقل قول:
بعد باید عنصر اول را -1 کرد تا عنصر دوم را نشان بده اینجا به مشکل خوردم
دست شما درد نکنه ممنون
کسی نیست جواب سوال اول ما رو بده
من به اين روش نوشتم :27:نقل قول:
نقل قول:
option base 1
dim a(5) as integer
dim max as integer
private sub command1_click()
for i = 1 to 5
a(i) = val(inputbox("plase enter the number", "number box"))
next
for i = 1 to 4
if a(i + 1) > a(i) then
max = a(i + 1)
end if
next
for i = 1 to 4
if a(i + 1) < max and a(i + 1) > a(i) then
sum = a(i + 1)
end if
next
print max
print sum & "úïï ïæã "
end sub
منظورم سوال اول بود دستت درد نکنهنقل قول:
چند تا سوال داشتم می خواستم دوستان برام انجام بدن اگر زحمتی نیست خودم بشتر برنامه ها را نوشتم چند تا نونده که تا جمه میخوام
>>برنامه ای بنویسید که تعدادی عدد را دریافت کند ودر یک ماتریس4*4قرار دهد سپس عددی را گرفته وآن را در ماتریس جستجو کند وتعداد تکرار آن را بگوید
>>برنامه ای بنویسید که تعدادی عدد را دریافت کند ودر یک ماتریس4*4قرار دهد سپس این ماتریس را روی فرم نشان دهد وبا پیغامی اعلان کند که آیا عناصر قطر اصلی ماتریس با هم برابر هستند یا نه
10دانش آموز و 3 نمره هریک را از ورودی دریافت کنید سپس نام هر دانش آمو را به همراه معدل سه نمرهی او نمایش دهید .در پایان نام دانش آموزی که بالاترینوپایین ترین معدل را دارند اعلام کنید