2、用select 实现

Private Sub Command1_Click() x! = Val(Text1.Text) Select Case x Case Is < 5000 y = 0 Case Is < 10000 y = (x - 5000) * 0.01 Case Is < 30000

y = 5000 * 0.01 + (x - 10000) * 0.03 Case Is < 50000

y = 5000 * 0.01 + 20000 * 0.03 + (x - 30000) * 0.04 Case Else

y = 5000 * 0.01 + 20000 * 0.03 + 20000 * 0.04 + (x - 50000) * 0.06 End Select Print y End Sub

3. 编写一段程序，实现在单击窗体时通过键盘接收一个百分制成绩，将其转换成“优”（90分以上）、“良”（80～89）、“中”（70～79）、“及格”（60～

69）、“不及格”（59分以下），运行时，单击窗体显示转换结果。 Private Sub Form_Click()

x% = InputBox(\请输入一个分数\If x >= 90 Then y = \优\ElseIf x >= 80 Then y = \良\ElseIf x >= 70 Then y = \中\ElseIf x >= 60 Then y = \及格\Else

y = \不及格\End If Print y End Sub

4. 某快递公司运费标准为5kg以下货物运费10元，5kg以上货物，在基础运费10元的基础上每增加1公斤重量运费增加2元。编程实现其运费计算。

x% = InputBox(\请输入货物重量\If x <= 5 Then y = 10

Else

y = 10 + (x - 5) * 2 End If

Print \货物运费\

5. 编程实现：单击窗体时通过InputBox函数输入三个数，然后用Print方法输出3个数中最小的那个数。 Private Sub Form_Click()

x% = InputBox(\请输入第一个数\y% = InputBox(\请输入第二个数\z% = InputBox(\请输入第三个数\m = x If m > y Then m = y End If If m > z Then m = z End If Print m End Sub

6. 计算下面分段函数的值，并输出y的值。

x(x?0)y=

?3x(x?0)2

x! = Val(InputBox(\请输入第一个数\If x > 0 Then y = x ^ 2 Else

y = -3 * x End If Print y

7. 从键盘输入四个数，计算它们的平均值，并输出显示在窗体上。 X1! = Val(InputBox(\请输入第一个数\X2! = Val(InputBox(\请输入第二个数\x3! = Val(InputBox(\请输入第三个数\x4! = Val(InputBox(\请输入第四个数\avg1 = (X1 + X2 + x3 + x4) / 4 Print \四个数的平均值是：\

8. 写窗体的单击事件，分别用For循环、Do While?Loop及Do ??Loop Until循环分别计算1到100的奇数和。将结果显示在窗体上。 Private Sub Form_Click() Sum = 0

For i = 1 To 100 Step 2 Sum = Sum + i Next

Print \到100间奇数和：\

End Sub

Private Sub Form_Click() Sum = 0 i = 1

Do While i <= 100 Sum = Sum + i i = i + 2 Loop

Print \到100间奇数和：\End Sub

Private Sub Form_Click() Sum = 0 i = 1 Do

Sum = Sum + i i = i + 2

Loop Until i > 100

Print \到100间奇数和：\End Sub