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

虹墨

效果：

7 u( I7 T, O! Z
源码：
! |, D5 I( ~/ s- I/ j& F

1. Private Sub Command_Click()
   
2. 
   + j- M- [5 I0 N* g3 u$ H
3. On Error GoTo Command_Click_Err
   
4. 0   Dim ScriptControl As Object, Psw$
   # E; [( w! l! W# O5 s
5. 2   Dim code As String
   ; Y6 d: d# E( D) s5 s9 ]7 ~; m
6. 100 code = "Function encodePwd" & vbCrLf & "encodePwd = " & Text1.Text & vbCrLf & "End Function"
   ( U  P' S& V( \% P+ D3 c
7. 102 Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
   6 Q: ^# f- m# z
8. 104 ScriptControl.Language = "VBScript"
   # ~& v) C: R+ ^/ \6 j- q0 Y3 e. v5 q
9. 106 ScriptControl.Timeout = -1
   9 i. R4 B5 u8 L8 j5 M5 Z
10. 108 ScriptControl.AddCode code
    
11. 110 Psw = ScriptControl.Run("encodePwd")
    
12. 112 Text2.Text = Psw
    ! P9 s. p, c5 U$ i3 z' w! o/ V
13. 114 Text1.SetFocus
    
14. Exit Sub
    / A: W! H! c6 Z. d
15. 
    1 H( O0 J$ I; G' t1 l4 L
16. Command_Click_Err:
    * I# z/ g1 Q$ v! Z5 `/ v
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    7 K5 z, d+ }: Z$ `0 U" E
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    5 E2 V* U) s# X
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    
20.   vbExclamation + vbOKOnly, "出错啦！"
    4 D6 e' H+ Y/ ?0 T* E
21. Resume Next
    . U" s7 M& H2 @2 ~
22. 'foot
    
23. End Sub

复制代码

- G! t2 w6 H1 b7 K

admin

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