VB工程--百例59--指数、对数函数计算器

概述Option Explicit Private Sub cmd1_Click()         If Val(txt1.Text) > 709 Then        若文本框txt1.中输入的数值大于709            txt2.Text = "数值过大，请重新输入"则在txt2. 显示 "数值过大，请重新输入"         Else      若文本框txt1输入的数值小于70

Option Explicit

Private Sub cmd1_Click()
If Val(txt1.Text) > 709 Then 若文本框txt1.中输入的数值大于709
txt2.Text = "数值过大，请重新输入"则在txt2.显示 "数值过大，请重新输入"
Else若文本框txt1输入的数值小于709
txt2.Text = Exp(Val(txt1.Text))计算e^x的数值并在txt2只中输出结果
End If
End Sub
Private Sub cmd2_Click() cmd2、cmd3、cmd4同理
If Val(txt1.Text) > 308 Then
txt2.Text = "数值过大，请重新输入"
Else
txt2.Text = 10 ^ (Val(txt1.Text))
End If
End Sub

Private Sub cmd3_Click()
If Val(txt1.Text) <= 0 Then
txt2.Text = "不是有效数值！"
Else
txt2.Text = Log(Val(txt1.Text))
End If
End Sub

Private Sub cmd4_Click()
If Val(txt1.Text) <= 0 Then
txt2.Text = "不是有效数值！"
Else
txt2.Text = Log(Val(txt1.Text)) / Log(10)
End If
End Sub

Private Sub cmd5_Click()
txt1.Text = ""
txt2.Text = ""
End Sub

Private Sub cmd6_Click()
End
End Sub

成品图 总结

以上是内存溢出为你收集整理的VB工程--百例59--指数、对数函数计算器全部内容，希望文章能够帮你解决VB工程--百例59--指数、对数函数计算器所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。