VB题目求解

1：
界面设置有两个单选框 一个文本框，名称分别为c,s,num,还有一个输出结果的文本框res
Private Sub calr()
Const pi = 3.1415926
If c.Value = True Then
res.Text = Val(num.Text) * 2 * pi
ElseIf s.Value = True Then
res.Text = Val(num.Text) ^ 2 * pi
End If
End Sub

Private Sub num_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then calr
End Sub

2:
界面有一个文本框名称为cj和一个结果输出文本框sc
Private Sub dj(fs)
select case fs
case fs<60
sc.text="不及格"
case fs<=69
sc.text="及格"
case fs<=79
sc.text="中等"
case fs<=89
sc.text="良好"
case fs<100
sc.text="优秀"
end select
End Sub

Private Sub cj_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then dj cj.text
End Sub