Lo
gAsDouble
Diml
fIfabcOracbOrbcaThe
Tria
gle0p0
Elsepabclp2Tria
gleSqrllalblc
E
dIfE
dFu
ctio
PrivateSubComma
d1_Click
DimabcpsaValText1TextbValText2TextcValText3TextsTria
gleabcpText4TextstrpText5TextstrsE
dSub③【计算总和】：在窗体Form1中实现函数Sum。参数a为输入的数组，函数返回数组中所有元素之和。PublicFu
ctio
SumaAsLo
gAsLo
g……E
dFu
ctio
Fu
ctio
sumaAsLo
gAsLo
gsum0
fForiLBou
daToUBou
dasumsumai
NextiE
dFu
ctio
PrivateSubComma
d1_Click
Dima3AsLo
gTextToArrayText1aMsgBoxsumaE
dSub④【排序】：在窗体Form1中实现子程序Sort。参数a为数组，子程序Sort对该数组按正序（从小到大）排序。PublicSubSortaAsLo
g……E
dSubPublicSubsortaAsLo
gDimijkpForiLBou
daToUBou
da1piForji1ToUBou
da
IfapajThe
pjNextj
kaiaiapapk
fNexti
E
dSub（王老师的那种算法可能会评测错误）
⑤【判断是否三角形等腰】：在窗体Form1中实现函数
Tria
gleClass。abc三个参数为三角形三条边，函数返回三角形的
形状。可能的三角形形状为以下4种：等边三角形，等腰三角形，一
般三角形，不构成三角形。PublicFu
ctio
Tria
gleClassaAsLo
gbAs
Lo
gcAsLo
gAsStri
g……E
dFu
ctio
PrivateSubComma
d1_ClickDimaAsLo
gbAsLo
gcAsLo
gaValI
putBox