下载 >  开发技术 >  VB > 一个有趣的VB小程序

一个有趣的VB小程序 评分:

Private Sub Command1_Click() 'On Error GoTo err Dim line_all As Double Dim jgtemp As String Dim jg As String Dim line_zensu As Integer Dim dot As Integer Dim zensu As Integer Dim mon As String 'If Me.MaskEdBox1.Text <> "." Then line_all = CDbl(Me.Text1.Text) mon = CStr(line_all) line_all = Len(mon) dot = InStr(mon, ".") line_zensu = line_all - dot If (line_all - dot) < 2 Then mon = mon & "0" 'MsgBox CStr(line_all) & CStr(dot) 'MsgBox mon For i = 0 To line_all - 1 ' ' If i < line_all - 1 Then word = Mid(mon, line_all - i, 1) ' Else ' word = Mid(mon, line_all, 1) ' End If If word <> "." Then 'word = Mid(mon, i, 1) jg = return2(i + 1) & jg jg = return1(word) & jg jgtemp = jg & jgtemp 'Else: i = i - 1 ' End If End If Next i MsgBox jg Exit Sub 'End If err: 'MsgBox err.Number If err.Number = 13 Then MsgBox "非法字符", vbExclamation Exit Sub End Sub Function return1(s As String) As String return1 = zw(CInt(s)) End Function Function return2(d As Integer) As String If i < 3 Then return2 = dw(d - 1) Else return2 = dw(d - 2) End If End Function
...展开详情收缩
2008-12-13 上传大小:2KB
分享
收藏 (1) 举报

评论 共1条

yjjlovezzx 很好的东西,喜欢,这个小程序不错哦!
2014-07-19
回复
几个有意思的vb程序

当你系统的把vb学习一遍的时候,你可以选择来做几个有意思的小程序来梳理一下自己的知识同时也会起到鼓励的作用!

立即下载
vb_一个简单的小程序·1
推荐一个有趣的小程序
7个VB有趣程序,新手最爱

7个有趣的VB小程序,相信对初学者是个不错的资源。

立即下载
100个VB精彩小程序源码实例

100个VB精彩小程序源码实例

立即下载
一个有趣vb程序

一个恶搞有趣的小程序,可以用来和朋友开玩笑,没有什么副作用!

立即下载
VB精彩小程序

VB精彩小程序,总共100多个程序,总有一款适合你!

立即下载
有趣vb程序

有趣的vb小程序

立即下载
VB程序
一个VB有趣的程序,需要大家的指导.
小程序代码
VB小程序,提供好耍好玩的精彩瞬间

小小程序慢慢耍啊 都是我自己做额度 有些人怕是木马毒代码 有事联系我 17784825

立即下载
求vb的一个最简单的小程序!
怎么用VB做一个随着系统时间显示的电子时钟(详情看里面)急求帮助
用VB做的一个小程序
用VB写的很简单的恶搞小程序(纯属菜鸟娱乐)

这只是一个学VB一个星期的菜鸟做出来恶搞好友的小程序,让大家不要见笑了。使用注意:在文件的同级目录下建立一个名为“名单”的txt文件,然后把你想要恶搞的人的名字输入到txt文件中,记住一定要分行,每个名字占一行,想添加的名字不够10个的话,剩下的每行随便输入一些字符串就可以了,(只要能让名单.txt里刚好有十行数据就可以了)。然后保存txt文件,运行程序,在框框里填3个名字,点“开始算”的按钮,最后程序就会挑出你名单里有的名字来输出为最猥琐的人。

立即下载
简单的VB小程序!!适合初学者!!

一些适合初学者学习的VB小程序!!里面有13个小列子,每个都附有源代码!文件齐全!!方便大家学习应用!

立即下载
一组VB实用小程序
vb编写的简单小程序

vb编写的简单的小程序,但有的会很实用。我保证这里没重复的。以上几个不敢说全部有用,但其中一个绝对有用,对于保存隐私的文件。加密文件就在vb编写的简单小程序系列。

立即下载
VB自删代码,不要拿来做木马病毒哦,学习一下。下载

热点文章

img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

一个有趣的VB小程序

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
1 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: