永发信息网

VB代码解释:以下VB代码的意思?

答案:3  悬赏:0  手机版
解决时间 2021-08-21 15:16

Private Sub Command1_Click()
Dim a, b
a = Val(Text1.Text)
b = Val(Text2.Text)
If Option1.Value = True Then
Text3.Text = a + b
ElseIf Option2.Value = True Then
Text3.Text = a - b
ElseIf Option3.Value = True Then
Text3.Text = a * b
ElseIf Option4.Value = True Then
Text3.Text = a / b
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End

最佳答案

Private Sub Command1_Click() '按钮1被单击
Dim a, b'定义2个变量
a = Val(Text1.Text)'将文本1的值赋值给变量a


b = Val(Text2.Text)'将文本2的值赋值给变量b
If Option1.Value = True Then '如果单击的是单选按钮1
Text3.Text = a + b'则将阿ab的和赋值给文本3
ElseIf Option2.Value = True Then '如果单击的是单选按钮2


Text3.Text = a - b '则将阿ab的差赋值给文本3
ElseIf Option3.Value = True Then '如果单击的是单选按钮3


Text3.Text = a * b '则将阿ab的积赋值给文本3
ElseIf Option4.Value = True Then '如果单击的是单选按钮4


Text3.Text = a / b '则将阿ab的商赋值给文本3
End If '结束如果
End Sub '结束sub过程


Private Sub Command2_Click()'按钮2被单击
Text1.Text = "" '文本1为空
Text2.Text = "" '文本2为空
Text3.Text = "" '文本3为空
End Sub  '结束sub过程
Private Sub Command3_Click() '按钮3被单击
End '结束程序


end sub '结束sub过程

全部回答

你这个是一个简单的计算器吧?嘿嘿 有趣啊 不过上面的仁兄已经回答的差不多了

点击command1进行加或减或乘或除运算,点击command2进行清空文本框,点击command3,结束程序。

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
红军标语博物馆全国爱,为什么要建红军标语博
谁教我弄空间模块图在加上字
离别时,要送什么歌?
软件编程是什么专业,大学计算机软件专业生应
我30级怎么考不了中级驾照
求手机的高考到数计时工具?
天心区长沙坡子街街道坡子街社区综合维稳工作
黄岩网上移动营业厅
豆浆渣可以用来干嘛,有钱之后能干嘛? 10分
大家都来给意见哈
这个问号怎么才能弄掉啊
爱迪生一生发明了多少件物品?
哪位诗人的字是子厚
出租房怎么装修??
怎么让头发长的很快?
推荐资讯
为什么网友的号被自动删除
用什么方法可以很快去除冰箱里的异味?
厦门诺基亚6120c多少价位现在
赫山区益阳九洲医院在什么地方啊,我要过去处
小丽和小红买了相同的一盒年奶,小丽倒了4杯多
普通QQ用户多少级才能建超级群啊?
怎么摘取密友的花
不是绿砖怎么添背景音乐?
家族增加成员
我爱吾师,我更爱智慧 是哪味哲学家说的
笛安的南音有开始连载了么?
炫舞最高几级啊
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?