如何用VB让按公式计算?

Posted 2023-04-09

用循环做,定义一个变量从第一个数开始,每次加一,按你那个公式计算后累加到一个变量上,我学的是C,VB不太熟,如果你要我可以帮你写,不过可能时间比较长 参考技术A 两个text个控件
和一个
command控件
--------------------------------------------
Private
Sub
Command1_Click()
If
Text1.Text
>
Text2.Text
Then
MsgBox
"text2的值必须大于text1的值"
Else
Dim
a,
b,
c,
s,
t
As
Integer
a
=
Val(Text1.Text)
b
=
Val(Text2.Text)
t
=
a
s
=
0
End
If
Do
While
(t
<=
b)
s
=
s
+
t
*
t
*
100
t
=
t
+
1
Loop
MsgBox
"输出结果:"
&
s
End
Sub

VB中如何用for循环调用按钮的click事件。

If Command7.Caption = "全部锁定" Then
For i = 8 To 27
If Controls("command" & i).Caption = " 锁 定 " Then
controls("command" & i)_click ‘这里应该怎么写
End If
Next i
Command7.Caption = "全部解锁"
Exit Sub
End If

俺是个新手，只会照葫芦画瓢，请高手指教标注的那里应该怎么写

参考技术A If Command7.Caption = "全部锁定" Then
For i = 8 To 27
If Controls("Command" & i).Caption = " 锁 定 " Then
Controls("command" & i).Value = True '就这么写
End If
Next i
Command7.Caption = "全部解锁"
Exit Sub
End If 参考技术B 将命令按钮属性：灰色【Visible:TRUE】正常？：(False)
即：枷锁＝【不可点击】解锁＝【正常工作】！一试即可。 参考技术C 是要调用 "command" & i 的click事件吧？

Controls("command" & i).Value = True本回答被提问者采纳