摘要:
Sub Save() Dim olApp As New Outlook.Application Dim nmsName As Outlook.NameSpace Dim vItem As Object Set nmsName = olApp.GetNamespace("MAPI") Set myFo 阅读全文
摘要:
方法1:L1 = [4,1,7,8,9,2,3]for i in range(len(L1)-1): for j in range(0,len(L1)-1-i): if L1[j] > L1[j+1]: L1[j],L1[j+1] = L1[j+1],L1[j]print(L1)方法2:L1 = [ 阅读全文