UC知道谁帮我解释这段vb小程序
来源：百度知道 编辑：UC知道 时间：2024/05/18 01:13:01
这样一段练习程序,要求根据用户输入的成绩数值评定学生的成绩,60分以下为不及格,大于等于60,小于70为及格,大于等于70小于80为良好,90到期100为优秀.
代码是这样的:
Private Sub cmdCjpd_Click()
Dim value$, a!
value = InputBox("请输入成绩:")
If value <> "" Then
a = Val(value) '转换成数值型
If a < 60 Then
MsgBox "你的成绩不及格!"
ElseIf a >= 60 And value < 70 Then
MsgBox "你的成绩及格"
ElseIf a >= 70 And value < 90 Then
MsgBox "你的成绩良好"
ElseIf a >= 90 And value <= 100 Then
MsgBox "你的成绩优秀"
Else
MsgBox "输入数字不合法,请重新输入!"
End If
End If
End Sub
我依样画葫芦是可以运行的.望哪位行家能给我逐句解释一下.使我可以理解程序的运行逻辑.
代码是这样的:
Private Sub cmdCjpd_Click()
Dim value$, a!
value = InputBox("请输入成绩:")
If value <> "" Then
a = Val(value) '转换成数值型
If a < 60 Then
MsgBox "你的成绩不及格!"
ElseIf a >= 60 And value < 70 Then
MsgBox "你的成绩及格"
ElseIf a >= 70 And value < 90 Then
MsgBox "你的成绩良好"
ElseIf a >= 90 And value <= 100 Then
MsgBox "你的成绩优秀"
Else
MsgBox "输入数字不合法,请重新输入!"
End If
End If
End Sub
我依样画葫芦是可以运行的.望哪位行家能给我逐句解释一下.使我可以理解程序的运行逻辑.
**为留白 你去*替换成空格就知道了 百度知道会过滤空格 没办法
过程开始
内存中定义变量 value（字符串） 和 a（整型）
弹出输入框（请输入成绩），内容输入到 value 变量中
如果 value 不是空白（比如说输入框按取消就会返回空白）
**将字符串value的内容转换成数值类型，输入到变量 a
**如果 a < 60 的话
****弹出对话框（以下简称“弹”） “你的成绩不合格！”
**如果 a介于 60到70之间 （包含60，70）
****弹“你的成绩及格”
……
****弹“你的成绩优秀”
**如果以上条件都不满足
****弹“你输入的数字不合法，请重新输入”
**结束判断语句（以上判断）
结束判断语句（value <> ""）
结束过程
这是最基本的if语句，没啥好解释的！