关闭

整倍递增进位

整倍数增长          在做收费系统中,遇到以x分钟递增,这其中关系到进位的问题。即当超过莫个数的整n倍数后,按n+1倍来计算。在做这个过程中可算是一波三折!下面简单算最终作法。          总结的通式:S= [(m \ n) * n] + n = (m \ n) * (n + 1) (S:进位的最终结果。m:实际数据。n:递增量。“\”整除符合,与除号“/”相区别。)...
阅读(913) 评论(10)

回车默认按钮的设置方法

决定窗体的默认命令按钮的设定        今天在敲收费系统时发现原程序可以使用回车键来设置“确定”命名按钮,把需要登录的信息写好,点击“Enter”——回车键,就可以登录!发现我的不是这样,凭借着以前知识的记忆,捣鼓了几分钟弄了出来。并做了试验,成功了,拿出来献献丑! 完成设定只需要做一件事:设置按钮的属性。按着图片中箭头设置对应的属性即可。 通过代码: Private Su...
阅读(939) 评论(10)

空值的区别和判断

空值Null, Empty, Nothing, and vbNullString的区别和判断 Null:Null是一个象Integer或者String一样的变量类型,它表示一个没有合法数据的变量。 你可以使用IsNull语句来判断表达式是否为Null:    If IsNull(my_variable) Then ...   Empty:这也是一个象Integer或者String一样的变...
阅读(1163) 评论(8)

Listbox列表中添加项目,判断重复项

不同的思路,写出代码的逻辑顺序也会不同,可能执行结果相同,但过程显示不一定相同。下面用一个对比性的例子来说明。    在Listbox中对项目是否重复,进行判定并添加。    方法有二: (一)先添加,后判定;相符则保留,不符则移除。 If Listbox1.ListIndex <> -1 Then '表明当前已选择项目...
阅读(2397) 评论(11)
    个人资料
    • 访问:186293次
    • 积分:6163
    • 等级:
    • 排名:第4237名
    • 原创:138篇
    • 转载:6篇
    • 译文:0篇
    • 评论:1681条
    博客专栏
    最新评论