Tag: # Visual Basic

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

[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求和的例子。重新写了个小函数。便于限制输入为整数数 阅读全文

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

[VB]使用集合元素卸载非当前的所有窗口 或许你觉得卸载窗口很简单，但是窗口如果很多呢。 看看我的代码吧。 阅读全文

[VB洗牌问题] 如果把纸牌以二维数组的形式存储为a（1 to 4，1 to 13），怎样才能实现随机发牌？ 将牌随机发送到一维数组a（1 to 52）里面？ 我的解答，个人感觉已经极限了。不知道还有啥解法没。 阅读全文

百度知道的一道基础题，算法上面，如果考虑CPU执行时间，可以继续优化。俺做了2种出来，下面是两种算法的实现 第一种有优化和没优化的版本，第二种本身就是优化的，所以就没有啰嗦版本了。 5.12补充了网友的版本，贴在最下面。 阅读全文