Question

哪位VB高手 帮我认真的做完下面的题~ 太感谢了

1、求f(x)的分段函数。如果x>0时，y=1;如果x=0时，y=0；如果x<0时，y=-1。
2、输入任意一个整数，判断它是奇数还是偶数。
3、某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折，如果购买10千克以上可以在原价每千克1.5元的基础上打7折。请设计一个程序计算购买x千克苹果的应付款。
4、输入任意三个整数，求它们中的最大数。
5、求任意一个整数的相反数。
6、判断任意方程ax2+bx+c=0有无解。
7、输入任意三边的长度，判断能否够成三角形，如果能，求出三角形的周长，如果不能，给出相应的提示。
8、编写一个程序，实现A，B两个数的值相互对调。
9、输入任意一个整数，判断能否被7或者15整除。
10、给一年级小学生设计一个两位数以内的加数题，要求对做对与做错题数进行统计。
界面如下图：
说明：函数rnd()取值为随机生成大于0小于1的数
函数int()取整，如int(4.55)=4

Answer 1

1.
function f(x as double) as long
select x case is >0
f=1
case is 0
f=0
case is <0
f=-1
end select
end function

2.
function num2(x as long) as boolean
if x mod 2 = 1 then
num2=false
else
num2=true
end if
end function

3.
function money(weight as single) as single
select weight case is >10
money=1.5*weight*0.7
case is >2
money=1.5*weight*0.8
case else
money=1.5*weight*1.0
end select
end function

4.
function maxnum(a as integer,b as integer,c as integer)
if a>b then
maxnum=a
else
maxnum=b
end if
if maxnum<c then
maxnum=c
end if
end function

5.
function opposite(num as integer) as integer
opposite=0-num
end function

6.
function num6(a,b,c) as boolean
if b^2-4*a*c>=0 then
num6=true
else
num6=false
end if
end function

7.
function num7(a as integer,b as integer,c as integer) as integer
if a+b>c and abs(a-b)<c then
num7=a+b+c
else
num7=0
end function

8.
function num8(byref a,byref b)
dim k
k=a
a=b
b=k
end function

9.
function num9(num as long)as boolean
if num mod 7=0 or num mod 15=0 then
num9=true
else
num9=false
end if
end function

10.
function num10(byref num1 as integer,byref num2 as integer) as integer
randomize
num1=int(rnd*99)+1
num2=int(rnd*99)+1
num10=num1+num2
end function