黑客X档案官方论坛 » 编程魔方 » 一个有意思编程的问题 ,高手请看

qazdsa198806 发表于 2008-7-23 07:03

一个有意思编程的问题 ,高手请看

dim a,s,d
a=inputbox("a+","加法计算")
s=inputbox("a+s","加法计算")
d=a+s
if d=inputbox("=","加法计算") then
msgbox("正确")
else
msgbox("错的")
end if
保存为.exe后运行
大家看到了这是一个vbs语言
不个保存为.exe后出现了一个有意思的问题
很多vbs(vb)的都可以试试看
如有兴趣QQ:914329426

[[i] 本帖最后由 qazdsa198806 于 2008-7-23 07:08 编辑 [/i]]

小力 发表于 2008-7-23 09:52

谁给个正解？
我这没vb环境。，

super2008s 发表于 2008-7-23 12:28

Dim a, s, d As Integer
a = Val(InputBox("a+", "加法计算"))
s = Val(InputBox("a+s", "加法计算"))
d = a + s
If d = Val(InputBox("=", "加法计算")) Then
MsgBox ("正确")
Else
MsgBox ("错的")
End If
不知是否符合原意

编程小猪 发表于 2008-7-23 19:03

正解就是出现一个命令提示符窗口
用记事本把下面的保存成.exe看看是不是也很有意思。
[code]
werqwer
werqwer
eqrwerqwer
wqerqwerwerqwer
qwerqwere
rqwerqwerfsdf
qwerqwerdfs
qwedfssd
rqwsdfs
erdftaab
[/code]

[[i] 本帖最后由 编程小猪 于 2008-7-23 19:10 编辑 [/i]]

qazdsa198806 发表于 2008-7-30 06:30

回复 2# 的帖子

用记事本保存成为.exe运行就可以了
不需要vb环境,运行后不是原意,不过会出现很有意思的效果
很多vbs(vb)代码用记事本保存成为.exe运行后都可以

请先将下面的用记事本保存成为.vbs后在从新保存为另外一个.exe运行
就是说用先有一个vbs文件
dim a,s,d
a=inputbox("a+","加法计算")
s=inputbox("a+s","加法计算")
d=a+s
do
if d=inputbox("=","加法计算") then
msgbox("正确")
exit do
else
msgbox("我日,错的")
end if
loop

[[i] 本帖最后由 qazdsa198806 于 2008-7-30 06:52 编辑 [/i]]

查看完整版本: 一个有意思编程的问题 ,高手请看