一道vb设计题！希望高手指点一下！

来源：百度知道 编辑：UC知道 时间：2024/04/28 00:23:43
在名称为Form1的窗体上画一个图片框（名称为Picture1）；三个单选按钮，标题分别为“正方形”、“椭圆形”、“圆型”；还有一个标题为“显示”的命令按钮。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在图片框中显示“选择了正方形”、“选择了椭圆形”或“选择了圆型”，如图所示。

这个实现起来比较简单，
假设按钮为command1,
假设选项按钮为option1(0)---正方形
option1(1)----椭圆形
option1(2)----圆形
private sub command1_click()
'清屏
picture1.cls
if option1(0).value=true then
picture1.print "你选择了正方形"
else if option1(1).value=true then
picture1.print "你选择了椭圆形"
else if option1(2).value=true then
picture1.print "你选择了圆形"
end if
end sub

fddf

复制代码就行了，s为全局变量：
Dim s As String
Private Sub Command1_Click()
Picture1.Print "你选择了" & s
End Sub

Private Sub Option1_Click()
s = "正方形"
End Sub

Private Sub Option2_Click()
s = "椭圆形"
End Sub

Private Sub Option3_Click()
s = "圆形"
End Sub

Private Sub Command1_Click()
If Option1.Value = True Then Picture1.Print "你选择了正方形"
If Option2.Value = True Then Picture1.Print &qu