一个VB设计问题！ 我希望高手指点击！

此实现相对简单，假设按钮是 command1，选项按钮是 option1（0）-square。

option1（1） -- 椭圆形。

option1（2） -- 倒圆角。

private sub command1 click（）。

if option1(0).value=true then"您已经选择了正方形"

else if option1(1).value=true then"您选择了一个椭圆形"

else if option1(2).value=true then"你已经选择了圆圈"

end if

end sub

只需复制 **，s 是全局变量：

dim s as string

private sub command1_click()"您选择了" & 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 = true then "您已经选择了正方形"

if = true then "您选择了一个椭圆形"

if = true then "您选择了一个椭圆形"

end sub

给我发一封电子邮件，然后把源程序发给你。

如果你看右边的数字，它应该是一个斐波那契数列，即序列中的第一个和第二个元素都是 1，其他元素的值是前两个元素的总和。 这个问题是将序列求和 144

option base 1

private sub form_click()dim x() as integer

dim i as integer

dim sum as integer

redim x(2)

x(1) =1: x(2) =1 '斐波那契数列的前两个元素。

do while x(ubound(x)) 144 '该循环用于获得小于或等于 144 的每个元素。

redim preserve x(ubound(x) +1)x(ubound(x)) x(ubound(x) -1) +x(ubound(x) -2)

loopsum = 0

for i = 1 to ubound(x)print x(i); space(5);

sum = sum + x(i)

next i

printprint "sum 是"; sumend sub

横坐标为 5 的点必须在 （ ）。

a;平行于 x 轴，距离为 5。

b，平行于 y 轴，在一条距离为 5 的直线上。

c;平行于 x 轴，平行于 y 轴，距离为 5。

d;平行于 y 轴、平行于 x 轴且距离为 5 的直线上的一组数据的方差为 0，如果中位数为 a，则其均值为 （ ）a等于 a b不等于 a c大于 d小于 a

答案应该是 c

因为 x 被分配给每个循环一个值，所以在最后一个循环开始之前 x = 3，并且循环在结束时将 6 加两次，从而得到 15

经过测试和选择。

如果您不明白并需要解释，请询问。