文章存档

贴一篇从网上看到的文章吧，关于VB中类的使用。2000年左右的老文了。文章很长，但是阅后无论你对类了解多或少，都会获得一些新的视角。

本例是转换Excel中的A1中的数字为大写并保存到A2中。 Private Sub cmdGet_Click() Dim lngTmp As Long Dim xlsApp As Object Set xlsApp = Excel.Application With xlsApp .Visible = True .Workbooks.Open (App.Path & "\target.xls") lngTmp = .Workbooks("target").Sheets("Sheet1").Range("A1").Value .Workbooks("target").Close .Quit End With Set xlsApp = Nothing MsgBox "表格中的数字是：" & lngTmp & vbNewLine & "转换后的数字是：" & MyConvert(CStr(lngTmp))   End Sub   Private Function MyConvert(strNum As String) …

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

和尚吃馒头的问题,俺恶搞一下。 大和尚一个人一个馒头，小和尚三个人吃一个馒头。话说寺庙的馒头也不算大呀。那么小和尚得多小。。。   Private Sub Form_Load() ’100个和尚吃100个馒头。大和尚一人吃3个，小和尚3人吃一个 Dim 大和尚人数 As Byte Dim 小和尚人数 As Byte For 大和尚人数 = 1 To 100 Step 1 For 小和尚人数 = 3 To 99 Step 3 If 大和尚人数 + 小和尚人数 = 100 Then Debug.Print "大和尚人数" & 大和尚人数 & " And 小和人数尚" & 小和尚人数 Next Next End Sub

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

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