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

虹墨

效果：

" o: G. I" W. ~) ^9 K: j3 ]
: B: p. c0 _3 P" E& y源码：

1. Private Sub Command_Click()
   7 H' G5 C* F# `1 m  y! j
2. 
   4 l2 m/ D$ O7 A  d) [; N5 A
3. On Error GoTo Command_Click_Err
   
4. 0   Dim ScriptControl As Object, Psw$
   - ]) Q) f: N' R' L- D. M# S
5. 2   Dim code As String
   0 A* k/ O. `9 ~# {
6. 100 code = "Function encodePwd" & vbCrLf & "encodePwd = " & Text1.Text & vbCrLf & "End Function"
   - V+ M7 o1 `7 P3 a, o
7. 102 Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
   
8. 104 ScriptControl.Language = "VBScript"
   
9. 106 ScriptControl.Timeout = -1
   
10. 108 ScriptControl.AddCode code
    " u  _5 [! ]; j9 |
11. 110 Psw = ScriptControl.Run("encodePwd")
    
12. 112 Text2.Text = Psw
    % J4 F1 \# M, b& S
13. 114 Text1.SetFocus
    . o4 k; w6 `( a1 v8 Q8 {0 `
14. Exit Sub
    ! Y3 h8 G- a+ x1 `' H9 B$ m; M
15. 
      `( Z. \  h# C% G  D, j' F
16. Command_Click_Err:
    
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    : T" ^. e/ k/ e5 ?$ h% O$ x
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    9 O" u5 ~' ^% p) `7 N  s! e
20.   vbExclamation + vbOKOnly, "出错啦！"
    
21. Resume Next
    
22. 'foot
    2 ^1 h* H# T! R: C* G1 I; M
23. End Sub

复制代码

4 z! l  ]! F1 T1 ], z- c
6 L. J0 J1 d( v7 a/ J

admin

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