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

虹墨

效果：

6 {' N4 J% H# R1 c- N" @
6 G8 R) @3 i, L4 k5 g! b源码：
- Q1 ]/ h! L% N2 C3 P

1. Private Sub Command_Click()
   $ n$ s8 z& S2 W4 b
2. 
   
3. On Error GoTo Command_Click_Err
   + t4 }! g6 {* m2 I$ K; B
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")
   
8. 104 ScriptControl.Language = "VBScript"
   
9. 106 ScriptControl.Timeout = -1
   7 i- N6 T7 U, y6 `
10. 108 ScriptControl.AddCode code
    
11. 110 Psw = ScriptControl.Run("encodePwd")
    
12. 112 Text2.Text = Psw
    
13. 114 Text1.SetFocus
    
14. Exit Sub
    # @% j" f- H; F9 F4 c
15. 
    
16. Command_Click_Err:
      L& V; r4 D, s
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    6 T: L& Z& k5 Y( d; p
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    2 I* m1 C1 l0 C$ n
20.   vbExclamation + vbOKOnly, "出错啦！"
    
21. Resume Next
    % w, q: ~) ~8 D1 A* A, y5 {6 N* T
22. 'foot
    
23. End Sub

复制代码

1 H- C2 ?$ q" I+ E, S

admin

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