Question

2道VB 题目 高手帮下忙 谢谢啦

设计一个计时器，能够设置倒计时的时间，并进行倒计时 还有道是 编制程序，根据用户输入的考试成绩（百分制，若有小数则四舍五入），输出相应的等级，其中：90～100，优秀；80～89，良好；70～79，中等；60～69及格；<60，不及格。

Answer 1

1、使用计时器一个、按钮一个。
Dim n As Long
Private Sub Command1_Click()
Do
n = CLng(InputBox("请输入倒计时多久，单位分钟"))
Loop Until n > 0 And n < 1440
n = n * 60
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
Me.FontSize = 36
Command1.Move 500, 300, 1000, 500
Me.Height = 3000
Me.Width = 6000
End Sub

Private Sub Timer1_Timer()
Cls
ss = n Mod 60
mm = n \ 60
hh = mm \ 60
mm = mm Mod 60
CurrentY = 1000
Print "还有："; Format(hh, "00"); ":"; Format(mm, "00"); ":"; Format(ss, "00")
n = n - 1
End Sub

2、使用按纽一个
Private Sub Command1_Click()
Dim n As Integer
Do
Do
n = CInt(InputBox("请输入成绩") + 0.5)
If n >= 0 And n <= 100 Then Exit Do
s = MsgBox("你输入的数据不是期望的数据，你是否想结束程序？", vbYesNo)
If s = vbYes Then End
Loop
Cls
CurrentY = 1000
Select Case n
Case Is >= 90
Print "优秀"
Case Is >= 80
Print "良好"
Case Is >= 70
Print "中等"
Case Is >= 60
Print "及格"
Case Else
Print "不及格"
End Select
Loop
End Sub

Private Sub Form_Load()
Me.FontSize = 36
Command1.Move 500, 300, 1000, 500
Me.Height = 3000
Me.Width = 4000
End Sub

Answer 2

1.直接设置Label1的Caption属性就可以设置要倒计多少秒了

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = CStr(Val(Label1.Caption) - 1)
If Val(Label1.Caption) < 1 Then
Timer1.Interval = 0
End If
End Sub

2.
Private Sub Text1_Change()
ii = Round(Val(Text1.Text))
If ii >= 90 Then
Caption = "优秀"
ElseIf ii >= 80 Then
Caption = "良好"
ElseIf ii >= 70 Then
Caption = "中等"
ElseIf ii >= 60 Then
Caption = "及格"
Else
Caption = "不及格"
End If
End Sub