首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 看雪峰会 看雪商城 证书查询
  1. 看雪社区
  2. 编程技术
    3. 发新帖
我写的几个小程序(VB)
2006-7-17 08:43 5976

我写的几个小程序(VB)

w三二dasm 活跃值
2006-7-17 08:43
5976
如题,我写的几个小程序.(转换.EXE是人民币转美元的程序)(不可在这个程序里面输入汉字)源代码见三楼.。附件见八楼。

[培训]《安卓高级研修班(网课)》月薪三万计划，掌握调试、分析还原ollvm、vmp的方法，定制art虚拟机自动化脱壳的方法

收藏
点赞・0
打赏
分享
最新回复 (22)
小虾
雪    币： 2367
活跃值： (756)
能力值： (RANK：410 )
在线值：
发帖
回帖
粉丝
私信
小虾 10 2006-7-17 08:51
2 楼
0
没有源码？编程版块放的工具必须带有源码，如果没有源码楼主在这里通知一下，我好转到工具版块去。
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-17 09:02
3 楼
0
可是,.....就给你们把(匆匆整理了一下(比较乱))int
nopnopnopnopnopnopnopnopnopnopnopnopnopnopnopnopnopnop
上传的附件：
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-17 16:22
4 楼
0
转换.EXE不容错的。（计算器容错）
WAKU
雪    币： 179
活跃值： (131)
能力值： ( LV12，RANK：290 )
在线值：
发帖
回帖
粉丝
私信
WAKU 7 2006-7-17 16:54
5 楼
0
计算器也没有除0检验
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-17 17:05
6 楼
0
谢谢提出BUG
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-17 17:07
7 楼
0
我有段代码往写了
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-17 17:25
8 楼
0
修改好的应用程序.rar。(压缩文件增大了一点个头，增加了除零检验代码。）还加了一些end if
去除了一些BUG。
上传的附件：
狼孩
雪    币： 200
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
狼孩 2006-7-17 20:25
9 楼
0
lz,这是vb的吗？
狼孩
雪    币： 200
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
狼孩 2006-7-17 21:03
10 楼
0
转换.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
狼孩
雪    币： 200
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
狼孩 2006-7-17 21:11
11 楼
0
还有，text1为空的容错方式：
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入数字！"
End If

End Sub
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-18 12:21
12 楼
0
是VB的啊
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-18 12:31
13 楼
0
最初由 狼孩 发布
还有，text1为空的容错方式：
[code]
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入数字！"
........
请问VB怎么提示类型不匹配？
狼孩
雪    币： 200
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
狼孩 2006-7-18 13:37
14 楼
0
请详细说说，什么出错？
狼孩
雪    币： 200
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
狼孩 2006-7-18 13:47
15 楼
0
哦，sorry，我忘记了 ，end if 后面的代码继续执行，我更改了。
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入数字！"
Else
这里是你的转换代码
End If
End Sub
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-18 16:23
16 楼
0
哎，怪不得。
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-20 13:36
17 楼
0
请问怎样让程序在指定时间结束？
wangshy
雪    币： 442
活跃值： (723)
能力值： ( LV7，RANK：100 )
在线值：
发帖
回帖
粉丝
私信
wangshy 2 2006-7-20 14:16
18 楼
0
用个定时器，过一段时间就检测一下系统时间
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-20 18:21
19 楼
0
哦我知道了谢谢。
fxy
雪    币： 200
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
fxy 2006-7-21 15:18
20 楼
0
下载学习一下
wiaa
雪    币： 249
活跃值： (10)
能力值： ( LV12，RANK：250 )
在线值：
发帖
回帖
粉丝
私信
wiaa 6 2006-7-22 20:36
21 楼
0
本菜鸟是VB新手，来学习一下

“计算器”程序楼主花了较多时间吧?
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-7-23 09:50
22 楼
0
对有一次重写了一下代码。
w三二dasm
雪    币： 207
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
w三二dasm 2006-8-9 15:34
23 楼
0
把帖子顶上来。
游客
登录 | 注册 方可回帖
　回帖　 表情 雪币赚取及消费
高级回复
返回