急救,VB高手帮忙，急用

1.
((x+y)<10)and((x-y)>0)
2.
bit1=x mod 10
bit2=x \ 10
number=bit1*10+bit2
3.
((x>0) and (y>0)) or ((x<0) and (y<0))
4.
for i=k to 1 step -1
if i mod 2=0 then exit for
next
n=i
5
好像有公式,是不是要三角函数?初一还没讲

sqr( (abs(10-x)*abs(10-x) )+( abs(20-y)*abs(20-y) )<=25
'好像是

1. x+y<10 and x-y>0
3. 第一象限:x>0 and y>0 第三象限:x<0 and y<0

1.X+Y小于10且X-Y要大于0
x+y<10 and x-y>0
2.将两位正整数的个位与十位调换位置
Dim AA$, BB$
AA = Text1.Text
BB = Mid(AA, 2, 1)
AA = Mid(AA, 1, 1)
MsgBox BB & AA
3.已知直角坐标系中任意一个点（x，y），表示该点在第一或第三象限内
第一象限:x>0 and y>0 第三象限:x<0 and y<0
4.n小于正整数k的偶数
if k mod 2 =0 then
then
n=k-2
else
n=k-1
end if
5.坐标点（x，y）落在以（10，20）为圆心，半径为25的圆内
这个搞不定 不好意思