‹‹ 上一主题 | 下一主题 ››
发新话题
打印

[原创] 一个有意思编程的问题 ,高手请看

qazdsa198806

学前班

帖子
32 
精华
0 
威望
0 度 
金币
5 枚 
最后登录
2008-10-28 
1# 大 中 小 发表于 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

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

TOP

小力

小力就是我

超级版主

Rank: 9Rank: 9Rank: 9

黑X论坛技术第一烂长相第一帅 .. ...

帖子
3388 
精华
1 
威望
65 度 
金币
2718 枚 
性别
男 
来自
吉珠 
最后登录
2008-12-5 
2# 大 中 小 发表于 2008-7-23 09:52  只看该作者
谁给个正解？
我这没vb环境。，
点击查看论坛最新活动贴
点击了解投稿须知
点击看PS新手教程
点击查看黑X论坛魔兽争霸赛报名帖
点击看完就不会被扣BB了

TOP

super2008s

学前班

帖子
6 
精华
0 
威望
0 度 
金币
4 枚 
最后登录
2008-11-30 
3# 大 中 小 发表于 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
不知是否符合原意

TOP

编程小猪

三年级

Rank: 3Rank: 3Rank: 3

帖子
765 
精华
1 
威望
21 度 
金币
1403 枚 
性别
男 
来自
成都->丽水 
最后登录
2008-12-5 
4# 大 中 小 发表于 2008-7-23 19:03  只看该作者
正解就是出现一个命令提示符窗口
用记事本把下面的保存成.exe看看是不是也很有意思。
复制内容到剪贴板
代码:
werqwer
werqwer
eqrwerqwer
wqerqwerwerqwer
qwerqwere
rqwerqwerfsdf
qwerqwerdfs
qwedfssd
rqwsdfs
erdftaab
[ 本帖最后由 编程小猪 于 2008-7-23 19:10 编辑 ]
以子之盾，攻子之矛。

TOP

qazdsa198806

学前班

帖子
32 
精华
0 
威望
0 度 
金币
5 枚 
最后登录
2008-10-28 
5# 大 中 小 发表于 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

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

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题

Processed in 0.315294 second(s), 5 queries, Gzip enabled