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

虹墨

效果：
6 C6 T0 U3 f8 c5 {( e5 }# w
( N! y8 p4 Z  f- m
源码：

1. Private Sub Command_Click()
   2 R/ F$ ^; Y# V: B( P5 i6 v
2. 
   
3. On Error GoTo Command_Click_Err
   . }9 p; C6 f; R
4. 0   Dim ScriptControl As Object, Psw$
   6 G) {/ t; Q/ h" e8 t5 |- z" [
5. 2   Dim code As String
   0 g2 C( [5 e& R" R# P1 w
6. 100 code = "Function encodePwd" & vbCrLf & "encodePwd = " & Text1.Text & vbCrLf & "End Function"
   
7. 102 Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
   
8. 104 ScriptControl.Language = "VBScript"
   * G# E5 q4 b9 E3 D( a3 e* w
9. 106 ScriptControl.Timeout = -1
   
10. 108 ScriptControl.AddCode code
    . J$ V0 q! i# j/ s9 b
11. 110 Psw = ScriptControl.Run("encodePwd")
    ) S2 _7 {0 N% o3 Y. e3 A
12. 112 Text2.Text = Psw
    " Z! t2 E' z' I; o
13. 114 Text1.SetFocus
    
14. Exit Sub
    ) p* w* L0 ~& \! E
15. 
    0 f* \" K  V' S3 \; S
16. Command_Click_Err:
    ; q# d" b( z, x0 P& g. |: B( w
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    ) `7 |' M$ U3 y% X* O1 }
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    " {5 ~# _: T3 j0 Z
20.   vbExclamation + vbOKOnly, "出错啦！"
    
21. Resume Next
    & P- \' o  H! m5 O
22. 'foot
    
23. End Sub

复制代码

7 R$ [+ e- X3 D! G; z
) _0 Y  m( h, z$ `

admin

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