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

虹墨

效果：
8 x! W# Q) _9 W0 F5 }+ W5 l

源码：
* g9 d4 i" {$ q6 z) j/ o% a

1. Private Sub Command_Click()
   
2. 
   
3. On Error GoTo Command_Click_Err
   
4. 0   Dim ScriptControl As Object, Psw$
   $ B8 W# X" e. q, C4 O, y7 n6 U4 c% {
5. 2   Dim code As String
   1 s" q) S- W; |( S$ E
6. 100 code = "Function encodePwd" & vbCrLf & "encodePwd = " & Text1.Text & vbCrLf & "End Function"
   6 ?, O2 k6 i9 F: H5 f! u+ k; Y
7. 102 Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
   
8. 104 ScriptControl.Language = "VBScript"
   
9. 106 ScriptControl.Timeout = -1
   & @( c+ [, c5 ^: M% J/ ]
10. 108 ScriptControl.AddCode code
    
11. 110 Psw = ScriptControl.Run("encodePwd")
    
12. 112 Text2.Text = Psw
    
13. 114 Text1.SetFocus
    
14. Exit Sub
    $ ^  K6 `2 C( Z- k2 e$ C) Y
15. 
    
16. Command_Click_Err:
    
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    + s  A3 x1 b) \- X0 ~+ A
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    
20.   vbExclamation + vbOKOnly, "出错啦！"
    / P4 k  s& O8 _. ?1 f
21. Resume Next
    , {+ |% Q* L9 X5 a: e
22. 'foot
    / a1 A8 P; w5 c: R5 P5 Y6 [
23. End Sub

复制代码

, Z: O* w+ d$ {

admin

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