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

虹墨

效果：
2 x  S/ Z" E( r+ r
+ @& W$ u& B3 r+ Y/ j, M
源码：

1. Private Sub Command_Click()
   
2. 
   
3. On Error GoTo Command_Click_Err
   $ ~8 k% X) G8 b, ~
4. 0   Dim ScriptControl As Object, Psw$
   
5. 2   Dim code As String
   7 d" Q' v; U5 _
6. 100 code = "Function encodePwd" & vbCrLf & "encodePwd = " & Text1.Text & vbCrLf & "End Function"
   6 A: @8 ~' f+ Y* Q4 Z/ @: U
7. 102 Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
   
8. 104 ScriptControl.Language = "VBScript"
   
9. 106 ScriptControl.Timeout = -1
   
10. 108 ScriptControl.AddCode code
    
11. 110 Psw = ScriptControl.Run("encodePwd")
    4 l" w! _  S1 o- _: u) x
12. 112 Text2.Text = Psw
    + m9 j2 T2 r, U& V- E' d: d
13. 114 Text1.SetFocus
    
14. Exit Sub
    ) g$ m9 a9 C& Q4 i8 `3 c4 |6 ?/ B
15. 
    ' I% c; c0 ?2 C; e( |( V$ u
16. Command_Click_Err:
    
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    0 B, _# A; I6 U" A( Z" F4 K
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    $ Q( k3 a6 s/ q) N. ^2 R
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    
20.   vbExclamation + vbOKOnly, "出错啦！"
    
21. Resume Next
    8 I1 q0 U* _  X) @: A% I) H
22. 'foot
    : z" U2 K5 d" P7 }5 @/ |% n
23. End Sub

复制代码

& U. b+ E2 t& P$ S
* {# v) B5 P" b$ e2 n, R! I2 t

admin

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