-
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 SubPrivate Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End
VB代码解释:以下VB代码的意思?
答案:3 悬赏:0 手机版
解决时间 2021-08-21 15:16
- 提问者网友:情歌越听越心酸
- 2021-08-21 02:21
最佳答案
- 五星知识达人网友:拾荒鲤
- 2021-08-21 03:35
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过程
全部回答
- 1楼网友:时间的尘埃
- 2021-08-21 05:02
你这个是一个简单的计算器吧?嘿嘿 有趣啊 不过上面的仁兄已经回答的差不多了
- 2楼网友:怙棘
- 2021-08-21 04:19
点击command1进行加或减或乘或除运算,点击command2进行清空文本框,点击command3,结束程序。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯