怎样把VB代码加进去

发布网友发布时间：2022-04-25 23:43

共1个回答

热心网友时间：2023-10-18 12:54

这段代码应该这么写：
Private
Sub
Command1_Click()
Dim
a,
b,
c
As
Single
'定义变量a,b,c
a
=
Val(Text1.Text)
'取的第一个除数并放到存储单元a中
b
=
Val(Text2.Text)
'取的第二个除数并放到存储单元b中
IF
text2.text
=
0
Then
Msgbox
"除数不能为0或空"
else
c
=
a
/
b
'把两个除数转换数字后相除，并把计算的结果存放到存储单元c中
Label2.Caption
=
c
'把存储单元c中的值，显示在标签中
End
If
End
Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com