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

虹墨

效果：
! e2 w, y2 `5 c

源码：
- G9 e6 p) P' Y$ \* `7 P

1. Private Sub Command_Click()
   6 t% d4 r$ `/ o. R8 i
2. 
   
3. On Error GoTo Command_Click_Err
   
4. 0   Dim ScriptControl As Object, Psw$
   / i. O3 H( M( u
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 \8 x; G3 }7 Z4 q; O" X
8. 104 ScriptControl.Language = "VBScript"
   - {; k, @! d- T% E
9. 106 ScriptControl.Timeout = -1
   9 u- y# ~$ |: e1 O6 t* _. ]
10. 108 ScriptControl.AddCode code
    
11. 110 Psw = ScriptControl.Run("encodePwd")
    " d- Z* W1 l  h' \- I
12. 112 Text2.Text = Psw
    
13. 114 Text1.SetFocus
    ) b! l; ~# ]/ c& @
14. Exit Sub
    3 V: [3 Y: E! ~7 N/ \% F
15. 
    # r7 `; i2 D1 Q
16. Command_Click_Err:
    + L) ^3 D1 x* l
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    ; u! O. F* o! q) n, x
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    
20.   vbExclamation + vbOKOnly, "出错啦！"
    ! k: ]% w5 _. t3 u# M
21. Resume Next
      `  C2 a" Q$ M4 g
22. 'foot
    
23. End Sub

复制代码

* d) b2 S5 u) N" l' \# E* H3 ]

admin

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