第1个回答 2019-04-09
有个更好的办法,就是写成脚本,
然后把它们的名字+Execute
这样写
这是脚本代码
private
sub
Option1_Execute()
end
sub
窗体
script.Run
ctl.Name
&"_Execute"
但是不建议你这么做,除非你非常需要扩展功能(即执行的代码经常变)
如果是简单的,就用Select
Case
就行了
第2个回答 2019-04-22
你的问题可以简述为
将四个1-10之间的数进行加减乘除运算是否能得到21?
没难度,但是麻烦,我举个例子,例如先计算只有相加的情况,代码如下:
Private
Sub
form_click()
For
a
=
1
To
10
For
b
=
1
To
10
For
c
=
1
To
10
For
d
=
1
To
10
If
a
+
b
+
c
+
b
=
21
Then
Print
a,
b,
c,
d
End
If
Next
Next
Next
Next
End
Sub
运行后在窗体上单击就能显示出来相加为21的情况
其他的你自己编写吧
第3个回答 2009-10-16
原来是平方,我还以为你打错了呢!
Private Sub Command1_Click()
a = InputBox("请输入a的值:")
b = InputBox("请输入b的值:")
If Val(a)^2 + Val(b)^2 > 100 Then
For i = 100 To Val(a)^2 + Val(b)^2
Print i
Next
Else
Print Val(a)+ Val(b)
End If
End Sub本回答被提问者采纳
第4个回答 2019-11-27
不可以,你可以把4个option控件设置为数组控件,在点击command时用循环语句依次判断各个option的value值,再根据value值执行相应的操作