想找一个函数，它的功能是这样的：

vb:
public function getScore(a as Integer) as Integer
dim score as integer
if a>0 and a<20 then score=-2
if a>=20 and a<50 then score=-1
if a>=50 and a<70 then score=1
if a>=70 and a<100 then score=1
getScore=score
end sub

C/C++
public:
int getScore(int a){
int score;
if (a>0 and a<20) score=-2
if (a>=20 and a<50) score=-1
if (a>=50 and a<70) score=1
if (a>=70 and a<100) score=1
return score;
}

C#/JAVA
public int getScore(int a){
int score;
if (a>0 and a<20) score=-2
if (a>=20 and a<50) score=-1
if (a>=50 and a<70) score=1
if (a>=70 and a<100) score=1
return score;
}

自己编这么个函数不就完了