用数字填充 MSFlexGrid 并创建数学技巧

• 下载演示程序 - 7.77 KB
• 下载源代码 - 3.84 KB

引言

我使用七个数值表来创建这个数学技巧。 我在以前的论文中发现了这个技巧的想法，但我记不清是从哪本书或杂志上看到的。 我承认我的工作是将这个想法翻译成 VB6 程序。

背景

• 选择一个从 1 到 100 的数字，记在心里。
• 我将显示 (7) 个表格。
• 每个表格包含一些数字。
• 在每个表格中搜索你选择的数字。
• 如果你找到它：点击 (是) 按钮。
• 如果没有：点击 (否) 按钮。
• 显示完最后一个表格（第 7 个表格）后
• 我会告诉你你选择的数字！

Using the Code

以下代码是一个用数字填充 MSFlexGrid 的示例

Dim c As Integer
Dim r As Integer
Dim n As Integer
Dim T As Integer

   With NumGrid
      T = 1
      For r = 0 To 4
         For c = 0 To 9
            .TextMatrix(r, c) = Str(T)
            T = T + 2
         Next c
      Next r

请参考源代码 (Sub FillTab) 了解我是如何七次填充网格的。

备注

你可以通过解压缩文件 SourceFile.zip 找到源代码，通过解压缩文件 ExeFile.zip 找到 *.exe 文件。

最后的话

我希望你喜欢这个技巧。 如果有人知道这个技巧的原理，请告诉我们。

联系方式

• 姓名：Mostafa Kaisoun
• 邮箱：M_Kaisoun@hotmail.com

历史

• 2008 年 9 月 9 日：初始发布
• 2008 年 9 月 15 日：源代码和演示程序已更新