QQ账号登录	立即注册>>

您现在的位置：论坛 › 盖世程序员(我猜到了开头却没有猜到结局) › 盖世程序员 > VB如何十几行代码写一个科学计算器！

总共48087条微博

动态微博

发表新帖

查看: 1045|回复: 1

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

虹墨

4 主题	1 听众	41 金钱

二袋弟子

该用户从未签到

电梯直达

楼主

发表于 2016-09-29 17:46:44 |只看该作者 |倒序浏览

效果：

源码：

Private Sub Command_Click()& T# t7 m1 H3 K1 ~9 `$ C
0 K) H2 J/ ^) ^, K* h* k
On Error GoTo Command_Click_Err; G3 V+ k& _) L
0 Dim ScriptControl As Object, Psw$
- k. F1 D2 M3 O; b
2 Dim code As String
1 o% W: r7 X& L" G, `
100 code = "Function encodePwd" & vbCrLf & "encodePwd = " & Text1.Text & vbCrLf & "End Function"
2 U& t; p; u( G* s9 ^, F5 W: t
102 Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
) r1 a) _- L, M. L( M7 B! Q
104 ScriptControl.Language = "VBScript"5 T" W5 a* H5 ^7 m; ~
106 ScriptControl.Timeout = -11 y% I% y. }& ^% n- f$ E1 ^
108 ScriptControl.AddCode code
& s6 {4 Q9 i3 S5 O
110 Psw = ScriptControl.Run("encodePwd")+ `3 l; w' U' E7 y
112 Text2.Text = Psw0 c8 F9 z$ U7 Q6 J3 N* y+ c/ u. @
114 Text1.SetFocus
, s# ~/ g% ]2 J4 M. o$ X
Exit Sub4 L' V' d" J! C5 B
9 m" b; N. w8 l) ~4 H0 |) o
Command_Click_Err:
I( {# g" o# `8 P' p& s) k& P
MsgBox "::>_<:: 有以下错误" & vbCrLf & Err.Description & vbCrLf & _
8 l( B- `( @; f$ T: I- ]3 W
"发生在 VBS语言计算器.MainForm.Command_Click " & _/ Z! X/ W5 `6 s" J* J
"的第 " & Erl & " 行" & vbCrLf & vbCrLf & "检查一下你的语法是否正确：）", _
* a9 d6 I, ~/ S$ t/ k' r' E
vbExclamation + vbOKOnly, "出错啦！"
( H, \% w1 `2 R. c+ M2 D8 y
Resume Next. E- h/ r) [* d8 I+ b! O0 w$ H
'foot
' `/ c H9 y; Y+ s+ L' g/ Z; F! D
End Sub

复制代码

科帮网 1、本主题所有言论和图片纯属会员个人意见，与本社区立场无关
2、本站所有主题由该帖子作者发表，该帖子作者与科帮网享有帖子相关版权
3、其他单位或个人使用、转载或引用本文时必须同时征得该帖子作者和科帮网的同意
4、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任
5、本帖部分内容转载自其它媒体，但并不代表本站赞同其观点和对其真实性负责
6、如本帖侵犯到任何版权问题，请立即告知本站，本站将及时予与删除并致以最深的歉意
7、科帮网管理员和版主有权不事先通知发贴者而删除本文