|
|
|
تازه اول راهه
گروه: کاربران
آخرین بازدید: جمعه 10 آبان 1387 - 3:30 بعدازظهر
پست ها: 6,
بازدید ها: 21
|
|
|
1-برنامه ای بنویسید که یک عدد را خوانده تعداد ارقامی از ان عدد را که بر 2 یا 3 بخش پذیرند چاپ نماید؟
2- برنامه ای بنویسید که شماره کارمندی و حقوق یک کارمند را دریافت کرده بر اساس تعریف زیر، مالیات ان را محاسبه کرده و به خروجی ببرد:
از مالیات معاف 460000 => حقوق
10 درصد نسبت به مازاد 560000 => حقوق =>460001
13/5 درصد نسبت به مازاد 760000 => حقوق =>560001
25 درصد نسبت به مازاد 760001=> حقوق
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: دیروز 16:52:00
پست ها: 1,518,
بازدید ها: 2,469
|
|
|
بسیار ساده هست
مشکلتان چیست ؟
|
|
|
|
|
تازه اول راهه
گروه: کاربران
آخرین بازدید: جمعه 10 آبان 1387 - 3:30 بعدازظهر
پست ها: 6,
بازدید ها: 21
|
|
این ترم برنامه نویسی دارم هیچی هم بلد نیستم اینا رو باید به استاد تحویل بدم
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: دیروز 16:52:00
پست ها: 1,518,
بازدید ها: 2,469
|
|
|
برنامه رو تا جایی که میتونید بنویسید ، هر جا مشکل داشتید اینجا مطرح کنید
|
|
|
|
|
تازه اول راهه
گروه: کاربران
آخرین بازدید: جمعه 10 آبان 1387 - 3:30 بعدازظهر
پست ها: 6,
بازدید ها: 21
|
|
|
سوال 2 رو اینجوری نوشتم ارور می ده
Private Sub Command1_Click()
a = Val(Text2.Text)
If a <= 460000 Then
Text3.Text = "0"
Else
If 460001 <= a <= 560000 Then
Text3.Text = a * 10 / 100
Else
If 560001 <= a <= 760000 Then
Text3.Text = a * 13.5 / 100
Else
Text3.Text = a * 25 / 100
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
سوال 1 هم بدجوری گیجم کرده
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: دیروز 16:52:00
پست ها: 1,518,
بازدید ها: 2,469
|
|
سوال 2 :
PFN Code
a = Val(Text2.Text)
If a <= 460000 Then
Text3.Text = "0"
ElseIf a >= 460001 And a <= 560000 Then
Text3.Text = a * 10 / 100
ElseIf a >= 560001 And a <= 760000 Then
Text3.Text = a * 13.5 / 100
Else
Text3.Text = a * 25 / 100
End If
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: دیروز 16:52:00
پست ها: 1,518,
بازدید ها: 2,469
|
|
|
|
|