Python-VBA编程500例-006(入门级)

感谢每一个认真阅读我文章的人，看着粉丝一路的上涨和关注，礼尚往来总是要有的：

①　2000多本Python电子书（主流和经典的书籍应该都有了）

②　Python标准库资料（最全中文版）

③　项目源码（四五十个有趣且经典的练手项目及源码）

④　Python基础入门、爬虫、web开发、大数据分析方面的视频（适合小白学习）

⑤ Python学习路线图（告别不入流的学习）

网上学习资料一大堆，但如果学到的知识不成体系，遇到问题时只是浅尝辄止，不再深入研究，那么很难做到真正的技术提升。

需要这份系统化学习资料的朋友，可以戳这里获取

一个人可以走的很快，但一群人才能走的更远！不论你是正从事IT行业的老鸟或是对IT行业感兴趣的新人，都欢迎加入我们的的圈子（技术交流、学习资源、职场吐槽、大厂内推、面试辅导），让我们一起学习成长！

输入arr1=[3,5,10,7]，arr2=[3,5,6,8,10,11,24,7]，输出[5,6,11,-1].对于数组arr1中的第1个元素3，在arr2中的下一个更大数字是5；对于数组arr1中的第2个元素5，在arr2中的下一个更大数字是6；

对于数组arr1中的第3个元素10，在arr2中的下一个更大数字是11；对于数组arr1中的第4个元素7，在arr2中没有下一个更大的元素，因此返回-1.

3.代码实现：

class Solution:
# 参数arr1: 整数数组
# 参数arr2: 整数数组
# 返回值: 整数数组
def nextGreaterElement(self, arr1, arr2):
answer = {}
stack = []
for x in arr2:
while len(stack) != 0 and stack[-1] < x: # len(stack)!=0代码可简写为stack,stack[-1]表示列表stack中最后一个元素.
answer[stack[-1]] = x
del stack[-1]
stack.append(x)
for x in stack:
answer[x] = -1
return [answer[x] for x in arr1]

主函数

if name == ‘main’:
solution =Solution()
arr1 = [3, 5, 10, 7]
arr2 = [3, 5, 6, 8, 10, 11, 24, 7]
print(“输入arr1:”, arr1)
print(“输入arr2:”, arr2)
print(“输出：”, solution.nextGreaterElement(arr1, arr2))

4.运行结果：

输入arr1: [3, 5, 10, 7]

输入arr2: [3, 5, 6, 8, 10, 11, 24, 7]

输出： [5, 6, 11, -1]

##### 1-2、VBA：

Rem 自定义函数，功能：寻找下一个更大数
Function FindNextGreaterElements(arr1 As Variant, arr2 As Variant) As Variant
Dim dict As Object
Dim i As Long, j As Long
Dim nextGreater As Variant
Dim result() As Variant

'创建字典对象
Set dict = CreateObject("Scripting.Dictionary") '此处需要引用控件：Microsoft Scripting Runtime，即对应系统路径下的动态库：C:\Windows\SysWOW64\scrrun.dll
  
'遍历arr2，为每个元素找到下一个更大元素并存入字典
For i = LBound(arr2) To UBound(arr2) - 1
    nextGreater = -1 '初始化nextGreater为-1，表示尚未找到
    For j = i + 1 To UBound(arr2)
        If arr2(j) > arr2(i) Then
            nextGreater = arr2(j) '找到下一个更大元素
            Exit For '跳出内层循环
        End If
    Next j
    dict.Add arr2(i), nextGreater '将当前元素和它的下一个更大元素存入字典
Next i
  
'如果arr2不是空的，给最后一个元素添加-1到字典，因为它没有下一个元素
If UBound(arr2) >= LBound(arr2) Then
    dict.Add arr2(UBound(arr2)), -1
End If
  
'初始化结果数组
ReDim result(LBound(arr1) To UBound(arr1))
  
'遍历arr1，查找并返回每个元素的下一个更大元素
For i = LBound(arr1) To UBound(arr1)
    If dict.Exists(arr1(i)) Then
        result(i) = dict(arr1(i)) '从字典中获取arr1(i)的下一个更大元素
    Else
        result(i) = -1 '如果arr1中的元素不在arr2中，返回-1
    End If
Next i
  
'返回结果数组
FindNextGreaterElements = result

End Function
Rem 执行过程，功能：调用自定义函数FindNextGreaterElements，并在立即窗口输出结果
Sub TestRun()
Dim arr1 As Variant
Dim arr2 As Variant
Dim result As Variant
Dim i As Long

arr1 = Array(3, 5, 10, 7)
arr2 = Array(3, 5, 6, 8, 10, 11, 24, 7)
  
result = FindNextGreaterElements(arr1, arr2) '调用自定义函数FindNextGreaterElements
  
Dim str1 As String
Debug.Print "输入arr1："
For i = LBound(arr1) To UBound(arr1)
    Debug.Print arr1(i)
Next i

Debug.Print "输入arr2："
For i = LBound(arr2) To UBound(arr2)
    Debug.Print arr2(i)
Next i

Debug.Print "输出："
For i = LBound(result) To UBound(result)
    Debug.Print result(i)
Next i

End Sub

**注意：1-2中的代码需粘贴到你的VBA编辑器中，按F5执行TestRun程序，在立即窗口输出结果。**


##### **2、相关文章：**


**2-1、[Python-VBA编程500例-005-01(入门级)]( )")**


**2-2、[Python-VBA编程500例-005-02(入门级)]( )")**



**（1）Python所有方向的学习路线（新版）**  

这是我花了几天的时间去把Python所有方向的技术点做的整理，形成各个领域的知识点汇总，它的用处就在于，你可以按照上面的知识点去找对应的学习资源，保证自己学得较为全面。

最近我才对这些路线做了一下新的更新，知识体系更全面了。



![在这里插入图片描述](https://img-blog.csdnimg.cn/1f807758e039481fa866130abf71d796.png#pic_center)



**（2）Python学习视频**



包含了Python入门、爬虫、数据分析和web开发的学习视频，总共100多个，虽然没有那么全面，但是对于入门来说是没问题的，学完这些之后，你可以按照我上面的学习路线去网上找其他的知识资源进行进阶。

![在这里插入图片描述](https://img-blog.csdnimg.cn/d66e3ad5592f4cdcb197de0dc0438ec5.png#pic_center)



**（3）100多个练手项目**

我们在看视频学习的时候，不能光动眼动脑不动手，比较科学的学习方法是在理解之后运用它们，这时候练手项目就很适合了，只是里面的项目比较多，水平也是参差不齐，大家可以挑自己能做的项目去练练。

![在这里插入图片描述](https://img-blog.csdnimg.cn/f5aeb4050ab547cf90b1a028d1aacb1d.png#pic_center)




**网上学习资料一大堆，但如果学到的知识不成体系，遇到问题时只是浅尝辄止，不再深入研究，那么很难做到真正的技术提升。**

**[需要这份系统化学习资料的朋友，可以戳这里获取](https://bbs.csdn.net/topics/618317507)**

**一个人可以走的很快，但一群人才能走的更远！不论你是正从事IT行业的老鸟或是对IT行业感兴趣的新人，都欢迎加入我们的的圈子（技术交流、学习资源、职场吐槽、大厂内推、面试辅导），让我们一起学习成长！**