UC知道关于VB的问题?高分求助!一小时在线等!
来源：百度知道 编辑：UC知道 时间：2024/06/24 08:23:09
1,用文本框输入月收入，单击“计算”按钮按以下规定计算税款，显示在另外一个文本框中。
月收入少于或等于1000元者 不纳税
月收入在1000元到3000元者 税款为超过1000元部分的10％
月收入超过2000元者 税款为超过1000元部分的20％
2,使用Select Case语句进行条件判断。用文本框输入学生某门课程的分数后，给出五级评分。评分标准如下：
优 90≤成绩≤100
良 80≤成绩<90
中 70≤成绩<80
及格 60≤成绩<70
不及格 0≤成绩<60
如果输入的分数不在[0，100]范围内，则给出错误提示，并将焦点定位在输入分数的文本框，选中其中的文本。
回答问题后请把文件发到我的邮箱zxy19863@163.com,
月收入少于或等于1000元者 不纳税
月收入在1000元到3000元者 税款为超过1000元部分的10％
月收入超过2000元者 税款为超过1000元部分的20％
2,使用Select Case语句进行条件判断。用文本框输入学生某门课程的分数后，给出五级评分。评分标准如下：
优 90≤成绩≤100
良 80≤成绩<90
中 70≤成绩<80
及格 60≤成绩<70
不及格 0≤成绩<60
如果输入的分数不在[0，100]范围内，则给出错误提示，并将焦点定位在输入分数的文本框，选中其中的文本。
回答问题后请把文件发到我的邮箱zxy19863@163.com,
1、
Private Sub Command1_Click()
Dim a As Integer, b As Single
a = Val(Text1.Text)
Select Case a
Case <=1000
b=0
Case 1001 to 3000
b=(a-1000)*0.1
Case >3000
b=(a-3000)*0.2
End Select
Text2.Text=b
End Sub
2、
Private Sub Command1_Click()
Dim a As Integer, b As String
a = Val(Text1.Text)
if a<0 Or a>100 Then
MsgBox "输入错误！"
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
Exit Sub
End If
Select Case a
Case 90 To 100
b="优"
Case 80 To 89
b="良"
Case 70 To 79
b="中"
Case 60 To 69
b="及格"
Case < 60
b="不及格"
End Select
Text2.Text = b
End Sub
1。select case txt1.text
case txt1.text<=1000
tax=0
case txt1.text>1000