向高人求解vb问题

11 |

2 | 2012-7-13 23:19:49 | 显示全部楼层 |阅读模式

Private Sub Cmd1_Click()
Dim str1 As String, str2 As String
Dim r As Single
Dim x As Single, y As Single
If Opt1.Value Then' 画圆环
str1 = "输入圆环半径"
str2 = "圆环圆心"
ElseIf Opt2.Value Then' 画方框
str1 = "输入方框边长"
str2 = "方框中心"
End If
r = Val(InputBox(st...

使用道具举报