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

虹墨

效果：

) Y( v, v3 s% u8 X0 s6 T
  W' o# [* k9 l源码：

1. Private Sub Command_Click()
   
2. 
   3 l- l9 T; n: Y- l! G
3. On Error GoTo Command_Click_Err
   3 a" Y( X+ K3 l/ }7 n7 N, K  [+ E
4. 0   Dim ScriptControl As Object, Psw$
     e' Y  g& S8 i3 E4 C& h
5. 2   Dim code As String
   
6. 100 code = "Function encodePwd" & vbCrLf & "encodePwd = " & Text1.Text & vbCrLf & "End Function"
   3 v9 c" C9 V7 S& p7 V" G) I
7. 102 Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
   
8. 104 ScriptControl.Language = "VBScript"
   ; r9 X( v8 V4 c# X& D% F
9. 106 ScriptControl.Timeout = -1
   
10. 108 ScriptControl.AddCode code
    
11. 110 Psw = ScriptControl.Run("encodePwd")
    
12. 112 Text2.Text = Psw
    
13. 114 Text1.SetFocus
    
14. Exit Sub
    
15. 
    * M# |% L7 k& u" D: L
16. Command_Click_Err:
    3 K' _  a" T: ]& A% x
17. MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
    
18.   "发生在 VBS语言计算器.MainForm.Command_Click " & _
    / s# v$ l8 i7 F/ n: ~  O& I
19.   "的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确 ：）", _
    
20.   vbExclamation + vbOKOnly, "出错啦！"
    0 l. u. ^5 V) ?1 J& I: n7 m' S- R+ u
21. Resume Next
    : n9 V" V2 Q+ w2 d% E  u
22. 'foot
    
23. End Sub

复制代码

$ b5 g( {( t6 _. I

admin

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