VB属性设置及程序改错题

gc509.frm的功能是：输入圆的半径，求圆面积。在“求圆面积”窗体上建有3个Label控件、2个Command控件和1个Text控件，Text1用于输入圆的半径，Label1和Label2分别用于提示“已知圆的半径圆：”和“面积为：”，Label3用于显示输出圆的面积，以上控件的属性已经设置。Command1和Command2分别用于“计算”和“结束”（Caption属性），它们的快捷键分别是Alt-S和Alt-X，即单击Command1或按Alt-S开始计算，单击Command2或按Alt-X退出程序运行。要求：
1) 设置Command1、Command2的属性；
2) 在Command1_Click()和Command2_Click()二个过程代码中各有一个错误，请调试改正。
调试改正时，每个过程代码只能改一处，并不得增删语句。

---------------------------------------------

Private Sub Command1_Click()
Const pi = 3.14
If Text1.Text = "" Then
r = Text1.Text
If r = Val(Text1.Text) Then
s = pi * r * r
Label3.Caption = s
Else
MsgBox "输入的不是数据，请重新输入！"
Text1.SetFocus
End If
End If
End Sub

Private Sub Command2_Click()
Exit Sub
End Sub

Private Sub Command1_Click()
Const pi = 3.14
If Val(Text1.Text) <> 0 Then '这里应该判断不为0时再执行下面语句，最好用Val(Text1.Text) <> 0
r = Text1.Text
If r = Val(Text1.Text) Then
s = pi * r * r
Label3.Caption = s
Else
MsgBox "输入的不是数据，请重新输入！"
Text1.SetFocus
End If
End If
End Sub

Private Sub Command2_Click()
End '这个过程只有一个语句，所以用脚丫想都知道一定是这句错。程序结束语句是end，没有exit，Exit sub是退出子过程用的。
End Sub

第二个问题似乎上楼的都回答了，还有第一个问题

设置快捷键的那个，

在“开始”的caption属性里输入：&Start

在“结束”的caption属性里输入：&End

以后你就可以用Alt+s,Alt+E来操作了

你试试？

Private Sub Command1_Click()

double pi = 3.14 If Text1.Text = "" Then r = Text1.Text If r = Val(Text1.Text) Then s = pi * r * r Label3.Caption = s Else MsgBox "输入的不是数据，请重新输入！" Text1.SetFocus End If End If End Sub

Private Sub Command2_Click() end

End Sub

Private Sub Command2_Click() End

End Sub

你能不能先把以前的答案采纳了，再发问！