百度知道上的一个人的问题， VB 随机产生1-36之间的7个互不相同的数，输入7个互不相同的数，提示猜中数的个数 随机产生7个数后，点击按钮才显示。用7个文本框来输入你猜的数，点击按钮，用msgbox显示猜中的个数。（输入的7个数不能重复，或者大于36） 我用动态数组做了,感觉还可以,或许某些地方啰嗦了。[没有添加强制输入字符为数字，就一两句话,本人懒不写了。] 使用方法，把所有的代码复制，粘贴到一个新的窗口中，直接运行，就啥都有了。 阅读全文

和尚吃馒头的问题,俺恶搞一下。 大和尚一个人一个馒头，小和尚三个人吃一个馒头。话说寺庙的馒头也不算大呀。那么小和尚得多小。。。 阅读全文

多叉树统计字符个数。 记得很久以前从网上收集的，感谢作者的思路。有时候问题如果复杂，不如不简化。交给计算机来做。 使用方法,将代码保存为Form.frm运行即可。 阅读全文

花了点时间写了一个凯撒算法的实现[人懒,不做中文的移位算法咯,其实可以演变出来十几种其他的算法,只要设置私匙以及字码位就可以了]动态创建控件，你只需要把代码复制到一个窗体中就可以了。 阅读全文

[VB]动态创建控件，数组控件以及获取键盘鼠标信息 Option Explicit Private Declare Function GetCaretBlinkTime Lib "user32" () As Long Private Const SPI_GETKEYBOARDSPEED = 10 Private Const SPI_GETKEYBOARDDELAY = 22 Private Declare Function SystemParametersInfo _ Lib "user32" _ Alias "SystemParametersInfoA" (ByVal uAction As Long, _ ByVal uParam As Long, _ lpvParam As Any, _ 阅读全文

[VB]鸡兔同笼解法 写了一个鸡兔同笼的算法，一个是递归枚举，一个是公式大法。 使用自写函数以及Do循环过滤不符合的条件。 Option Explicit '鸡兔同笼 阅读全文

[VB]基础题解答 百度知道上的三道题,最后一道有参考知道网友的回复[我居然想一位一位的拆开,mY God.] 1、从3个红球、5个白球、6个黑球中任意取 阅读全文

[VB]InputBoxIntegerNum-只能输入整数的输入框 一个利用InputBox求和的例子。重新写了个小函数。便于限制输入为整数数 阅读全文

知道网友的排队代码，感觉不错。修改的符合自己的标准，收藏。 阅读全文