好心人帮忙做一下吧

第1题，将三个数两两比较三次，如果每次比较中前面的数小于后面的数则交换
至于每次比较哪两个数，可以有多种选择，对应不同的排序算法，这里说两种：
1.依次比较a和b、a和c、b和c
2.依次比较a和b、b和c、a和b
以比较a和b为例，代码如下：
if a<b then
t=a
a=b
b=t
endif
第2题，代码如下：
a=val(inputbox("输入成绩"))
if a>=0 and a<=100 then msgbox "录入成绩正确！" else msgbox "录入成绩错误！"
（这题顺便还练习了MsgBox函数的使用，正确写法你自己看图写吧，没图我写不了）
另外，对于题目中一定要出现End If的要求，我是不认同的，反正我第2题就没写End If；当然，如果你嫌这一行太长，也可以拆成好几行来写，最后补上End If