For a=10l to 500 step 2 Listl additem a B=b+a label. caption=”101-500之间的奇数“+hc(13)+“和为”&b End sub Private sub command2 click List l dear End sub 属性 command。 Caption=“交换” Private sub command l. click Dim temp, X,Y Ⅹ= text l。Text Temp-. Text3。Text=X Iext4。Text=Y End subFor a=101 to 500 step 2 List1.additem a B=b+a Next label.caption=”101-500 之间的奇数“+hc(13)+“和为:”& b End sub Private sub command2.click() List1.dear End sub 属性 command。Caption=“交换” Private sub command1.clickc） Dim temp，X，Y X=text1。Text Y= Temp=X X=Y Y=temp Text3。Text=X Text4。Text=Y End sub