vb编程计算n的阶乘（力扣算法第1题两数之和）

力扣算法(LeetCode)是一套非常优秀的算法练习题库，编程学习者通过刷力扣题可以有效地、快速的提高自己编程能力，准备参加一些企业的面试。初学者练习力扣算法题更是好处多多，可以学以致用、养成边学习边解决工程问题的习惯，有助于很快的提高自身的编程水平。

美中不足的是，绝大多数力扣的算法题都没有VB语言的官方答案，原因不详。这不能不说是一种遗憾。

今天我用VB语言给大家讲解力扣算法第1题，我们先看题干部分：

学完本课后会做的软件动图

给定一个整数数组 nums 和一个整数目标值 target，请你在该数组中找出和为目标值 target 的那两个整数，并返回它们的数组下标。

你可以假设每种输入只会对应一个答案。但是，数组中同一个元素在答案里不能重复出现。

你可以按任意顺序返回答案。

示例 1：

输入：nums = [2,7,11,15], target = 9 输出：[0,1] 解释：因为 nums[0] nums[1] == 9 ，返回 [0, 1] 。

示例 2：

输入：nums = [3,2,4], target = 6 输出：[1,2]

示例 3：

输入：nums = [3,3], target = 6 输出：[0,1]

官方给了两种解题思路：第一种思路是暴力穷举法，也是本课的解题方法。第二种方法是哈希表法，宇哥比较笨，用VB字典法还没调试出来。。等调试出来再分享给大家。。

本课程的VB案例通过Access数据库呈现，课程讲解分为3个部分：

1.完整代码

2.需求讲解

3.代码讲解

— 1 —

完整代码

力扣算法第1题（两数之和）官方第一种答案的完整VBA代码（基于Access数据库）如下：

Option Compare Database Dim a(25) As Integer '代码改编自力扣算法第1题 '力扣算法没有VB答案，我自己改编 Private Sub Text2_AfterUpdate() Dim target As Integer Dim i As Integer Dim j As Integer ​ target = Val(Nz(Text2)) 'Text2录入数值，Text3输出答案 ​ For i = 0 To 24 '遍历每一个a(i)，寻找后面的数有没有a(j)=target-a(i) For j = i 1 To 24 '每次i遍历结束，j从i 1开始往后遍历 If target = a(i) a(j) Then Me.Text3.Value = "第" & i 1 & "个数字和" & Chr(13) _ & Chr(10) & "第" & j 1 & "个数字之和等于" & Text2 '注意每个下标要加1，因为数值第一个下标是0 Exit Sub '根据我的测试，VB里条件达成后不是自动退出循环，需要手动退出sub End If Next j Next i ​ Me.Text3.Value = "老铁，没找到哈" ​ End Sub Private Sub Text2_Change() Me.Refresh End Sub

制作好的演示界面

— 2 —

需求讲解

根据老规矩，本题也要给他做成一个有人机交互、有输入和输出界面的Access窗体应用，主要有三项功能：

1. 可以生成25个随机数，按照顺序排列，可重复也可以不重复，作为题干部分。
2. 制作一个文本框Text1作为输入窗口
3. 制作一个文本框Text2作为输出窗口

严禁用控制台输入和输出。

案例的窗体设计视图

— 3 —

代码讲解

生成25个不重复的、从小到大排序的数字，之前我曾经讲过这个技术用VB如何实现，现将代码分享如下：

Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim tempStr As String Text1 = "" tempStr = " " ​ For i = 0 To 24 a(i) = Int(30 * Rnd) 1 For j = 0 To i - 1 '这段是防止重复的代码 If a(i) = a(j) Then '如果重复了再次选择 i = i - 1 End If Next j Next i '这段是排序，运用冒泡算法 For i = 0 To 24 For j = i 1 To 24 If a(i) > a(j) Then t = a(i) 't作为中间变量，冒泡算法常见 a(i) = a(j) a(j) = t End If Next j Next i ​ For i = 0 To 24 Text1 = Text1 tempStr CStr(a(i)) 'CStr转换成字符串 If (i 1) Mod 5 = 0 Then '逢5换行 tempStr = Chr(13) Chr(10) " " '换行 Else tempStr = " " End If Next i ​ End Sub

上面的代码是窗体里那个按钮“随机生成10个数”单击后，在下方生成25个数字的代码，可能显得很笨拙，但是用的都是最为可靠的技术，生成过程很简洁、清楚，在我的教程里会经常采用，建议吃透。

在此我再简略的过一遍这个随机数生成代码的含义：

第8行到第15行，生成随机数并进行去重操作；

第18行到第26行，冒泡排序；

第28行到第35行，把25个数进行分列，5个数字一行，一共5行。

下面讲解一下官方给的标准答案，一行一行吃透。

官方核心代码没有VB语言，被我弥补了这个空白

Option Compare Database Dim a(25) As Integer ​ '代码改编自力扣算法第1题 '力扣算法没有VB答案，我自己改编 Private Sub Text2_AfterUpdate() Dim target As Integer Dim i As Integer Dim j As Integer ​ target = Val(Nz(Text2)) 'Text2录入数值，Text3输出答案

这一段主要是定义变量：

1. 生成一个数组a，包括25个数字。（这段数组的数字和排序已经做好了，参考上一部分）
2. 查找的目标数target，通过文本框Text1输入产生
3. 定义两个变量i，j，用于遍历数组a。

For i = 0 To 24 '遍历每一个a(i)，寻找后面的数有没有a(j)=target-a(i) For j = i 1 To 24 ' 每次i遍历结束，j从i 1 开始往后遍历 If target = a(i) a(j) Then Me.Text3.Value = "第" & i 1 & "个数字和" & Chr(13) _ & Chr(10) & "第" & j 1 & "个数字之和等于" & Text2 '注意每个下标要加1，因为数值第一个下标是0 Exit Sub ' 根据我的测试，VB里条件达成后不是自动退出循环，需要手动退出sub End If Next j Next i

这段代码是官方“暴力枚举”的核心代码，用了跟制作九九乘法表类似的两次For循环。

基本思想就是第一个数下标为i，然后遍历每一个a(i)，寻找后面的数有没有a(j)=target-a(i)，比如我们要找数字6，数组里第1个数是2，于是a(1)=2，下面要做的，就是j的事了，

j永远从比i大一位的数字开始找，因为题干不允许自己和自己相加。j=2时，a(2)=3，于是2 3=5不等于6，j就接着往下找，j=3时，a(3)=4，2 4=6，target就等于6，答案就得出来了，i=1，第一个数为1，j=3，第二个数为3，输出答案就是[1,3]。

如果i=1的情况，j所有下标的数组a(j)和a(i)相加都不等于结果target，那么程序自动选择i=2的下标，继续循环往复上面的过程，直到找到答案。如果找不到答案，那么要返回[0,0]。

Me.Text3.Value = "老铁，没找到哈" End Sub

在我的案例里，直接返回一段话“老铁，没找到”。

需要特别注意的是，力扣官方答案里，都是Java、C、C 的，这些语言里一旦找到答案后，直接中断循环过程，跳出循环。但是VB需要特别注意，找到答案后要输入Exit Sub手动结束循环。

,