VB如何十几行代码写一个科学计算器！

虹墨

效果：

" r/ d# L3 w, X+ P. N! `
源码：
$ R' o+ T( _0 Y% j, s; K

1. Private Sub Command_Click()
   ' K3 M" h% w' r
2. 
   
3. On Error GoTo Command_Click_Err
   
4. 0   Dim ScriptControl As Object, Psw$
   
5. 2   Dim code As String
   
6. 100 code = "Function encodePwd" & vbCrLf & "encodePwd = " & Text1.Text & vbCrLf & "End Function"
   
7. 102 Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
   4 p) H" H! I2 T& m/ Q% [! R
8. 104 ScriptControl.Language = "VBScript"
   3 M7 t3 H" ?" Q+ T, a4 ]
9. 106 ScriptControl.Timeout = -1
   
10. 108 ScriptControl.AddCode code
    
11. 110 Psw = ScriptControl.Run("encodePwd")
    3 w+ l+ H  E3 Q; g. o0 \/ d
12. 112 Text2.Text = Psw
    
13. 114 Text1.SetFocus
    
14. Exit Sub
    % `9 f- f8 A  k
15. 
    
16. Command_Click_Err:
    # l- d& \5 j4 ~5 G9 ^4 U
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    ' l9 Y, n% i0 l, Q, a$ E! d( z
20.   vbExclamation + vbOKOnly, "出错啦！"
    ' P9 E$ T/ o# i- J
21. Resume Next
    
22. 'foot
    + H% D" ?, s4 w, w# q4 l5 ~
23. End Sub

复制代码

* p- n  V& x3 E" }, ^  J

admin

BY  麦子 哈哈哈哈 加油~~~~~~~~~~~~~~~~~~~~~~~~~