Dim d(1 To 100)As Integer Dim n As Integer Private Sub Command1_Click ( ) Dim i As Integer Randomize n=Val(Text1.Text) For i=1 To n
List1.AddItem Str(d(i)) Next i End Sub Private Sub Command2_Click( ?。?br />Dim i As Integer,min As Integer,max As Integer Dim maxpos As Integer,minpos As Integer max=d(1)
For i=2 To n If max<d(i) Then max=d(i):maxpos=i If min>d(i) Then min=d(i):minpos=i Next i Label4.Caption=Str(max)+“位置:“+Str(maxpos) Label6.Caption=Str(min)+“位置:“+Str(minpos) End Sub
(2)程序運(yùn)行時(shí),在Text1中輸入字符串,單擊“統(tǒng)計(jì)”按鈕,在List1中顯示統(tǒng)計(jì)結(jié)果.請?jiān)跈M線處填入合適代碼. ‘函數(shù)IsLetter(x)功能,若x是字母,則返回值為字母x在字母序列“A”~“Z”中的序號,如字母“A”的序號為0,字母“D”的序號為3.若x不是字母,則返回值為-1. Function IsLetter(x As String) As Integer If“A“<=x And x<=“Z“Then IsLetter=Asc(x)-Asc(“A“) ElseIf“a“<=x And x<=“z“Then IsLetter=Asc(x)-Asc(“a“) Else
End If End Function Private Sub Command1_Click
Dim f(25)As Integer,m As Integer,n As Integer Dim s As String,c As String List1.Clear For m=0To 25‘初始化數(shù)組f f(m)=0 Next m s=Text1.Text For m=1To Len(s)‘依次讀取字符串中的每個(gè)字符進(jìn)行判斷 c=Mid(s,m,1) n=IsLetter(c) If n<>-1Then f(n)=f(n)+1 Next m For m=0To 25‘輸出統(tǒng)計(jì)結(jié)果,沒有出現(xiàn)的字母不輸出 If
Then List1.AddItem (Chr(m+Asc(“a“)) &“:“& f(m)) End If Next m End Sub.