我写的几个小程序(VB)-编程技术-看雪-安全社区|安全招聘|kanxue.com

我写的几个小程序(VB)

发表于: 2006-7-17 08:43 6528

我写的几个小程序(VB)

w三二dasm

2006-7-17 08:43

6528

如题,我写的几个小程序.(转换.EXE是人民币转美元的程序)(不可在这个程序里面输入汉字)源代码见三楼.。附件见八楼。

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

收藏・0

免费・0

支持

最新回复 (22)
小虾雪币： 2384 活跃值： (766) 能力值： (RANK：410 ) 在线值：发帖 36 回帖 2248 粉丝 7 关注私信	小虾 10 2 楼没有源码？编程版块放的工具必须带有源码，如果没有源码楼主在这里通知一下，我好转到工具版块去。 2006-7-17 08:51 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 3 楼可是,.....就给你们把(匆匆整理了一下(比较乱))int nopnopnopnopnopnopnopnopnopnopnopnopnopnopnopnopnopnop 上传的附件：源码.rar （0.87kb，7次下载） 2006-7-17 09:02 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 4 楼转换.EXE不容错的。（计算器容错） 2006-7-17 16:22 0
WAKU 雪币： 179 活跃值： (131) 能力值： ( LV12，RANK：290 ) 在线值：发帖 32 回帖 501 粉丝 0 关注私信	WAKU 7 5 楼计算器也没有除0检验 2006-7-17 16:54 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 6 楼谢谢提出BUG 2006-7-17 17:05 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 7 楼我有段代码往写了 2006-7-17 17:07 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 8 楼修改好的应用程序.rar。(压缩文件增大了一点个头，增加了除零检验代码。）还加了一些end if 去除了一些BUG。上传的附件：应用程序.rar （15.90kb，10次下载） 2006-7-17 17:25 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 9 楼 lz,这是vb的吗？ 2006-7-17 20:25 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 10 楼转换.EXE的容错方式： Private Sub Text1_Change() Dim a, b, c b = Len(Text1.Text) For i = 1 To b a = Mid(Text1.Text, b, 1) c = Mid(Text1.Text, 1, b - 1) If Asc(a) < 48 Or Asc(a) > 57 Then MsgBox "对不起，只能输入数字！" Text1.Text = c End If Exit For Next End Sub 2006-7-17 21:03 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 11 楼还有，text1为空的容错方式： Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入数字！" End If End Sub 2006-7-17 21:11 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 12 楼是VB的啊 2006-7-18 12:21 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 13 楼最初由狼孩发布还有，text1为空的容错方式： [code] Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入数字！" ........ 请问VB怎么提示类型不匹配？ 2006-7-18 12:31 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 14 楼请详细说说，什么出错？ 2006-7-18 13:37 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 15 楼哦，sorry，我忘记了，end if 后面的代码继续执行，我更改了。 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入数字！" Else 这里是你的转换代码 End If End Sub 2006-7-18 13:47 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 16 楼哎，怪不得。 2006-7-18 16:23 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 17 楼请问怎样让程序在指定时间结束？ 2006-7-20 13:36 0
wangshy 雪币： 446 活跃值： (758) 能力值： ( LV7，RANK：100 ) 在线值：发帖 39 回帖 614 粉丝 1 关注私信	wangshy 2 18 楼用个定时器，过一段时间就检测一下系统时间 2006-7-20 14:16 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 19 楼哦我知道了谢谢。 2006-7-20 18:21 0
fxy 雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 2 粉丝 0 关注私信	fxy 20 楼下载学习一下 2006-7-21 15:18 0
wiaa 雪币： 249 活跃值： (10) 能力值： ( LV12，RANK：250 ) 在线值：发帖 30 回帖 171 粉丝 1 关注私信	wiaa 6 21 楼本菜鸟是VB新手，来学习一下 “计算器”程序楼主花了较多时间吧? 2006-7-22 20:36 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 22 楼对有一次重写了一下代码。 2006-7-23 09:50 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 23 楼把帖子顶上来。 2006-8-9 15:34 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

w三二dasm

发帖

183

回帖

RANK

关注

私信

他的文章

关于我们

联系我们

企业服务

看雪公众号

最新回复 (22)
小虾雪币： 2384 活跃值： (766) 能力值： (RANK：410 ) 在线值：发帖 36 回帖 2248 粉丝 7 关注私信	小虾 10 2 楼没有源码？编程版块放的工具必须带有源码，如果没有源码楼主在这里通知一下，我好转到工具版块去。 2006-7-17 08:51 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 3 楼可是,.....就给你们把(匆匆整理了一下(比较乱))int nopnopnopnopnopnopnopnopnopnopnopnopnopnopnopnopnopnop 上传的附件：源码.rar （0.87kb，7次下载） 2006-7-17 09:02 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 4 楼转换.EXE不容错的。（计算器容错） 2006-7-17 16:22 0
WAKU 雪币： 179 活跃值： (131) 能力值： ( LV12，RANK：290 ) 在线值：发帖 32 回帖 501 粉丝 0 关注私信	WAKU 7 5 楼计算器也没有除0检验 2006-7-17 16:54 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 6 楼谢谢提出BUG 2006-7-17 17:05 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 7 楼我有段代码往写了 2006-7-17 17:07 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 8 楼修改好的应用程序.rar。(压缩文件增大了一点个头，增加了除零检验代码。）还加了一些end if 去除了一些BUG。上传的附件：应用程序.rar （15.90kb，10次下载） 2006-7-17 17:25 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 9 楼 lz,这是vb的吗？ 2006-7-17 20:25 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 10 楼转换.EXE的容错方式： Private Sub Text1_Change() Dim a, b, c b = Len(Text1.Text) For i = 1 To b a = Mid(Text1.Text, b, 1) c = Mid(Text1.Text, 1, b - 1) If Asc(a) < 48 Or Asc(a) > 57 Then MsgBox "对不起，只能输入数字！" Text1.Text = c End If Exit For Next End Sub 2006-7-17 21:03 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 11 楼还有，text1为空的容错方式： Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入数字！" End If End Sub 2006-7-17 21:11 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 12 楼是VB的啊 2006-7-18 12:21 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 13 楼最初由狼孩发布还有，text1为空的容错方式： [code] Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入数字！" ........ 请问VB怎么提示类型不匹配？ 2006-7-18 12:31 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 14 楼请详细说说，什么出错？ 2006-7-18 13:37 0
狼孩雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 34 粉丝 0 关注私信	狼孩 15 楼哦，sorry，我忘记了，end if 后面的代码继续执行，我更改了。 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入数字！" Else 这里是你的转换代码 End If End Sub 2006-7-18 13:47 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 16 楼哎，怪不得。 2006-7-18 16:23 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 17 楼请问怎样让程序在指定时间结束？ 2006-7-20 13:36 0
wangshy 雪币： 446 活跃值： (758) 能力值： ( LV7，RANK：100 ) 在线值：发帖 39 回帖 614 粉丝 1 关注私信	wangshy 2 18 楼用个定时器，过一段时间就检测一下系统时间 2006-7-20 14:16 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 19 楼哦我知道了谢谢。 2006-7-20 18:21 0
fxy 雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 2 粉丝 0 关注私信	fxy 20 楼下载学习一下 2006-7-21 15:18 0
wiaa 雪币： 249 活跃值： (10) 能力值： ( LV12，RANK：250 ) 在线值：发帖 30 回帖 171 粉丝 1 关注私信	wiaa 6 21 楼本菜鸟是VB新手，来学习一下 “计算器”程序楼主花了较多时间吧? 2006-7-22 20:36 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 22 楼对有一次重写了一下代码。 2006-7-23 09:50 0
w三二dasm 雪币： 207 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 13 回帖 183 粉丝 0 关注私信	w三二dasm 23 楼把帖子顶上来。 2006-8-9 15:34 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复