將a()作為字符串，b()作為字符串，c()作為long
Dim d()作為字符串
將tmpS作為字符串變暗
a = Split(Text1。正文)
redim c(lbound(a)到ubound(a))壹樣長
將d(lbound(a)改為ubound(a))作為字符串
對於i=lbound(a)至ubound(a)
tmpS = lcase(a(i))
a(i) = " "
d(i)=tmps
對於j = 1到Len(tmpS)
a(I)= a(I)& amp；格式(Asc(Mid(tmpS，j，1))，“000”)
下壹個j
c(i)=Val(a(i))
接下來我
Redim B(2)為字符串
對於i=Lbound(a)至ubound(a)
對於j=1至Ubound(B)-1
如果a(j)>a(j+1)和a(j)& lt；a(j-1)然後b(j)=d(i):退出
下壹個j
接下來我
現在數組B按字典順序排列，上面的代碼哪裏寫，數組B的輸出問題就自己處理了。
2.輸入幾個學生的分數，統計平均分，最好分，最差分，每個分數段的人數。
幾百年前寫的代碼，沒想到真的有人要，控制問題妳自己處理吧！懶得動態生成~
要點:文本2。MultiLine = True
我說妳大概不會記得補充
Dim PtsArr()為整數
將應用路徑標註為字符串
私有子命令1_Click()
Dim攤鋪機為Double，pW(4)為Integer
將pctW(4)標註為單個
Dim TotPeo為整數
ReDim將PtsArr(UBound(PtsArr) - 1)保留為整數
攤鋪機=格式(GetAverage(PtsArr)，" . 00 ")
GetPiece PtsArr，pW(1)，pW(2)，pW(3)，pW(4)，pW(0)
tot peo = UBound(pts arr)-LBound(pts arr)+1
對於i = 0到4
pctW(I)= Format(pW(I)/TotPeo * 100，“. 0”)
接下來我
Dim Bg為整數，Lg為整數
GetBL PtsArr，Bg，Lg
文本2。Text = "總人數" &；托普奧& amp“平均分”&；鋪路機和。vbCrLf
文本2。文本=文本2。文本& amp“最高分”&；Bg & amp“最低分”&；Lg & ampvbCrLf
文本2。文本=文本2。文本& amp“通行證號碼”&；pW(0)和amp“通過率”&；pctW(0)和amp" " & ampvbCrLf
文本2。文本=文本2。文本& amp“49分以下”&；pW(1)和amp“比率”&；pctW(1)" " & ampvbCrLf
文本2。文本=文本2。文本& amp“50-59分”&；pW(2)& amp；“比率”&；pctW(2)和amp" " & ampvbCrLf
文本2。文本=文本2。文本& amp“60-89分”&；pW(3)& amp；“比率”&；pctW(3)和amp" " & ampvbCrLf
文本2。文本=文本2。文本& amp“90分以上”&；pW(4)和amp“比率”&；pctW(4)和amp"%"
末端接頭
私有子命令2_Click()
殼牌“記事本”& ampAppPath & amp" ReadMe.txt " "，vbNormalFocus
末端接頭
私有子命令3_Click()
如果短信2。Text & lt& gt”“那麽
打開AppPath & amp追加為#1的“OutLog.txt”
打印#1，
打印#1，文本2。文本
關閉#1
MsgBox "已將結果添加到" &；AppPath & amp" OutLog.txt end！"，VB信息
其他
MsgBox“請輸入分數！”，VB感嘆號
如果…就會結束
末端接頭
私有子命令4_Click()
出錯時轉到錯誤手
Dim字符串作為字符串
對於i = LBound(PtsArr)至UBound(PtsArr) - 1
str = str & ampCStr(pt sarr(I))& amp；vbCrLf
接下來我
Msgbox字符串，vbdefaultbutton 1，"性能檢查"
出口接頭
錯誤手:
調試。打印錯誤。數量和數量。”& amp呃。描述
MsgBox "輸入數據錯誤！"，VB感嘆號
末端接頭
私有子命令5_Click()
對於i = LBound(PtsArr)至UBound(PtsArr)
PtsArr(i) = 0
接下來我
末端接頭
私有子命令6_Click()
Dim DelData為整數
DelData = Val(InputBox("請輸入要刪除的數據！"，“成績處理軟件”))
刪除數據PtsArr，DelData
末端接頭
私有子窗體_Load()
ReDim PtsArr(0)為整數
AppPath = App。小路
If Right(AppPath，1)& lt；& gt" \ "那麽AppPath = AppPath & amp"\"
末端接頭
private Sub text 1 _ KeyPress(KeyAscii為整數)
尺寸工件壹樣長
文本2。文本= " "
if(KeyAscii & lt；Asc("0 ")或KeyAscii & gtAsc("9 "))和KeyAscii & lt& gt8和KeyAscii & lt& gt13那麽KeyAscii = 0
如果KeyAscii = 13，則
WorkPts = Val(Text1。正文)
如果工作& gt100或工件& lt0 or text 1 . text = " " thenmsgbox " "輸入錯誤！"，VB感嘆號:退出Sub
PtsArr(UBound(PtsArr)) =工作任務
ReDim將PtsArr(UBound(PtsArr) + 1)保留為整數
Text1。文本= " "
如果…就會結束
末端接頭
函數GetAverage(PArr()為整數)為Double
點心壹樣長
對於i = LBound(PArr)至UBound(PArr)
sum = sum + PArr(i)
接下來我
get average = sum/(UBound(PArr)-LBound(PArr)+1)
結束功能
Sub GetPiece(PArr()為整數，ByRef p49為整數，ByRef p5059為整數，ByRef p6089為整數，ByRef p90為整數，ByRef pAllow為整數)
p49 = 0:p 5059 = 0:p 6089 = 0:p90 = 0:pAllow = 0
對於i = LBound(PArr)至UBound(PArr)
選擇案例PArr(i)
案例0到49: p49 = p49 + 1
案例50至59: p5059 = p5059 + 1
案例60至89: p6089 = p6089 + 1
案例90到100: p90 = p90 + 1
結束選擇
如果PArr(I)& gt；= 60，則pAllow = pAllow + 1
接下來我
末端接頭
Sub DeleteData(PArr()為整數，KillData為整數)
對於i = LBound(PArr)至UBound(PArr)
如果Val(PArr(i)) = KillData，則
對於j = i到UBound(PArr) - 1
PArr(j) = PArr(j + 1)
下壹個j
ReDim將PArr(LBound(PArr)到(UBound(PArr) - 1))保留為整數
為...退出
如果…就會結束
接下來我
末端接頭
Sub GetBL(PArr()為整數，ByRef最大為整數，ByRef最小為整數)
Dim Bg為整數，Lg為整數
Lg = PArr(LBound(PArr))
對於i = LBound(PArr)至UBound(PArr)
如果PArr(I)& gt；Bg那麽Bg = PArr(i)
如果PArr(I)& lt；Lg那麽Lg = PArr(i)
接下來我
最大= Bg:最小= Lg
末端接頭