Question

VB Option默认选项问题

这个空间在这个程序启动的时候让Option1为选中状态。
需要如何设置？
第2.......................
Dim f

Private Sub Option1_Click()
f = 10
End Sub

Private Sub Option2_Click()
f = 20
End Sub

Private Sub Option3_Click()
f = 26
End Sub
Private Sub Command1_Click()
Dim a, b, c, d
a = 1350
c = Text1.Text
b = a - c
If c = "" Then
MsgBox "数据不能为空", 64, "提示"
Else
Label2.Caption = "还需帮贡：" & b & "还需要跑：" & b / f & "票"
End If

End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub

以上的程序会溢出，请问大家需要如何修改。谢谢

Answer 1

1、程序启动的时候让Option1为选中状态,必须设Option1.value=true

2、只有一处修改：
Private Sub Command1_Click()
Dim a, b, c, d
a = 1350
c = Text1.Text
b = a - Val(c) '修改部分
If c = "" Then
MsgBox "数据不能为空", 64, "提示"
Else
Label2.Caption = "还需帮贡：" & b & "还需要跑：" & b / f & "票"
End If

End Sub