求吧务再不要删我的帖了，感谢感谢！
1、下面程序的功能是判断某门]课程的成绩区间。程序中有1处局部错误，请调试程序(没有电脑的同学用脑分析) ,,用
正确的
部分代码替换错误的部分代码(以一个完整标识符或数字为单位)。本题满分2分。
注意:
(1)凡涉及到英文字母- -律用大写。(2)不要增减语句或语句的一部分。Option Explicit
Private Sub Command1. _Click()
Dim X As Integer
X = Val(Text1.Text)
Select Case x
Case X >= 90
Text2.Text = "优秀"
Case 80 To 89
Text2.Text= "良好"
Case 70, 71, 72, 73, 74, 75, 76, 77, 78,79
Text2.Text= "dg"
Case 6О, 61, 62, 63 To 69
Text2.Text= "及格"
Case Else
Text2.Text= "不及格'
End Select
End Sub
Private Sub Command2_ _Click()
Text1.Text= '""
Text2.Text = ""
Text1. SetFocus
End Sub
Private Sub Command3_ _Click()
End
End Sub

麻烦问一下吧里哪一位大哥会做呀？

有偿也可以，感谢感谢了。

代码错误满满
不考虑由于你发帖抄录过程中导致的错误，需要修改的代码如下：
Case X >= 90 '把X改为Is

这个我记得我之前给你解答过了啊？

以下的代码中有1处局部错误，用正确的部分代码替换错误的部分代码（以一个完整标识符或数字为单位）。
注意：
(1)凡涉及到英文字母一律用大写。
(2)不要增减语句或语句的一部分。
Private Sub Command1_Click()
Dim x!, y!
x = Val(InputBox("请输入一个数："))
If x < 0 Then
y = x ^ 3 + 6
ElseIf x < 7 & 0 <= x Then
y = (x - 2) / (x + 2)
Else
y = x * 2 - 10
End If
Print "分段函数y的值为："; y
End Sub

d