永发信息网

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

答案:3  悬赏:0  手机版
解决时间 2021-08-21 15:16
  • 提问者网友:情歌越听越心酸
  • 2021-08-21 02:21

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

最佳答案
  • 五星知识达人网友:拾荒鲤
  • 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,结束程序。

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯