VB text1+text2除2等于A text3除A等于B，text1乘B，单击Command1显示结果 怎么写？
比如65等于5.57/5.5等于1.2726乘1.272等于7.632最后结果是7.632...
比如 6 5 等于5.5 7 / 5.5 等于1.272
6 乘 1.272 等于 7.632
最后结果是7.632 展开
6 乘 1.272 等于 7.632
最后结果是7.632 展开
1个回答
展开全部
Private Sub CommandButton1_Click()
MsgBox "最终计算结果是" & Int(Text1.Value) * (Int(Text3) / ((Int(Text1.Value) + Int(Text2.Value)) / 2))
End Sub
MsgBox "最终计算结果是" & Int(Text1.Value) * (Int(Text3) / ((Int(Text1.Value) + Int(Text2.Value)) / 2))
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
