VB补考，弄到了补考卷子，那位高手能帮忙一下，希望周五之前告诉我答案，万分感激哇

下列程序的功能是：当x<50时，y=0.8*x；当50≤x≤100时，y=0.7*x；当x>100时，没有意义。请填空。
Private Sub Command1_Click（）
Dim x As Single
x=InputBox（"请输入x的值！"）
select case x___________
Case Is<50
y=0.8 * x
Case 50 To 100
y=0.7 * x
_case else__________
Print "输入的数据出界！"
End Select
Print x, y
End Sub

在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。

Private Sub Command1_Click()

Dim str As String, s As String, c As String
str = UCase(Text1)
s = ""
c = "Z"
While c >= "A"
If InStr(str, c) = 0 Then
s = s + c
End If
c = Chr$(Asc(c) - 1)
Wend
If s <> "" Then
Text1 = s
Text1.Text = Text1
End If
End Sub

设有如下程序：
Private Sub Form_Click（）
Dim a As Integer, s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是求_1+2+3+...+8_______。程序运行后，单击窗体，输出结果为___36_____。

有这个时间你自己上机运行一下也搞得差不多了。