Question

求VB大侠们解答，赶工啊，十万火急！！！！！！

1、某培训学校规定外聘教师的薪资计算方法为：X*Y*R，其中X是教师授课的学时数，Y为教师每小时的津贴，并对R做了如下规定：学员人数为1~30人时，系数R为1；学员人数为31~60人时，系数R为1.4; 学员人数为61~90人时，系数R为1.7;大于90人时系数R为2。编写外聘教师的薪资计算程序(用选择结构的嵌套实现)。
2、求x+x^2+x^3+…+x^n的值，n，x的值由inputbox函数输入，用print方法在窗体上输出结果。(用FOR循环实现)
3、求x+x^2+x^3+…+x^n的值，n，x的值由inputbox函数输入，用print方法在窗体上输出结果。(用DO循环实现)

Answer 1

X = Val(InputBox("学时数"))
Y = Val(InputBox("津贴"))
R = Val(InputBox("学员人数"))
If 1 <= R <= 30 Then
R = 1
Else
If R <= 60 Then
R = 1.4
Else
If R <= 90 Then
R = 1.7
Else
R = 2
End If
End If
End If
MsgBox X * Y * R
第二题
x = Val(InputBox("x"))
S = 0
For i = 1 To Val(InputBox("n"))
S = S + x ^ i
Next
Print S
第三题
x = Val(InputBox("x"))
S = 0
i = 1
Do While i <= Val(InputBox("n"))
S = S + x ^ i
i = i + 1
Loop
Print S

Answer 2

1、select case (stud-1)\30
case 0
gongzi=x*Y
case 1
gongzi=x*Y*1.4
case 2
gongzi=x*y*1.7
case else
gongzi=x*y*2
end select
2、n=inputbox ("请输入n:","0",“提示”)
x=inputbox ("请输入X","0","提示")
z=1
for y=1 to n
z=z*x
sum=sum+z
next
print sum
3、n=inputbox ("请输入n:","0",“提示”)
x=inputbox ("请输入X","0","提示")
z=1
do while y<=n
z=z*x
y=y+1
sum=sum+z
loop
print sum