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

虹墨

效果：
% `/ k! Z7 R3 G$ s
  j; L4 w* I( g) j$ f' a
源码：

1. Private Sub Command_Click()
   
2. 
   
3. On Error GoTo Command_Click_Err
   0 B" _- t9 ?5 n4 [6 @+ ]8 X) f
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")
   . R! Z. g9 I2 ^: V5 I$ G7 k* O# s
8. 104 ScriptControl.Language = "VBScript"
   
9. 106 ScriptControl.Timeout = -1
   
10. 108 ScriptControl.AddCode code
    - x4 c. i5 B* ~  k
11. 110 Psw = ScriptControl.Run("encodePwd")
    
12. 112 Text2.Text = Psw
    8 f0 q  r" R  |3 L3 Y2 n
13. 114 Text1.SetFocus
    ( H; p# k/ d1 F5 ~" e* N
14. Exit Sub
    
15. 
    
16. Command_Click_Err:
    
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    ( _2 @! q/ r- x3 C6 f
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    # Z' s4 L# D; S6 N
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    : p  a3 t% H6 J1 N
20.   vbExclamation + vbOKOnly, "出错啦！"
    ) u% L8 [/ j0 g
21. Resume Next
    
22. 'foot
    : A+ F9 _7 }* _; z4 U! R
23. End Sub

复制代码

8 m, P+ ^# D! t' z3 u
4 t( o+ }4 E; [/ m

admin

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