پاسخ سوال 3
A = inputbox("enter number 1")
B=inputbox("enter number 2")
If b<>0 then print a\b else print "not defined"
پاسخ سوال 4
در این برنامه چون تاریخ سیستم میلادی میباشد بهتر است تاریخ جاری نیز از ورودی دریافت شود
S=inputbox("enter birth year:")
m=inputbox("enter birth mounth:")
d=inputbox("enter birth day:")
S1=inputbox("enter year:")
M1=inputbox("enter mounth:")
D1=inputbox("enter day:")
If val(d) > val(d1) then m1=m1-1 : d1=d1+30
If val(m) > val(m1) then s1=s1-1:m1=m1+12
If val(s)>val(s1) then
Print "error"
End
Endif
Print "sal:";s1-s , "mah:";m1-m , "roz:"; d1-d
پاسخ سوال 5
A=inputbox("enter a")
B=inputbox("enter b")
C=inputbox("enter c")
D = b ^ 2 - 4 * a * c
If d>0 then
X1=(-b + sqr(d) )/2*a
X2=(-b - sqr(d) )/2*a
Print x1 , x2
End if
If d=0 then print -b / 2*a
If d<0 then print "not answer"
پاسخ سوال 6
D=inputbox("enter number (1..7)")
Select case d
Case 1:print "sat"
Case 2:print "sun"
Case 3:print "mon"
Case 4:print "tud"
Case 5:print "wed"
Case 6:print "thu"
Case 7:print "fri"
End select
پاسخ سوال 7
S=Inputbox("enter salary")
If s<=200000 then m=0
If s>200000 and s<=800000 then m=(s-200000)*10/100
If s>800000 then m=(s-800000)*12/100 + 60000
Print m
پاسخ سوال8
n=inputbox("Enter number 4 digit")
a=n\1000
r1=n mod 1000
b=r1 \100
r2=r1 mod 100
c=r2 \ 10
d=r2 mod 10
print d*1000+c*100+b*10+a
پاسخ سوال 9
A=0
For I = 10 to 99
If I mod 3 =0 then
Print i
A=a+1
Endif
Next i
Print a
پاسخ سوال 10
N=inputbox("Enter city name")
D=inputbox("Enter degree")
Maxn=n
Maxd=d
Minn=n
Mind=d
For i=2 to 10
N=inputbox("Enter city name")
D=inputbox("Enter degree")
If d > maxd then
Maxn=n
Maxd=d
Endif
If d<mind then
Minn=n
Mind=d
Endif
next i
Print "max";maxn,maxd
Print "min";minn , mind
