Dim a(1To 15)As Integer Dim c,ym,mm As String‘本題將用到函數int ( ) rnd ( )chr ( )asc ( )mid ( ) len ( ) Private Sub sjzf_Click ( )‘在列表中隨機列舉15個ASCII字符 List1.Clear For i=1To 15 a(i)=
‘隨機產生0-127的整數 c=
‘將相應隨機數轉為相等ASCII碼值的字符 List1.AddItem Str(i)+c‘列表輸出15個字符 Next i End Sub Private Sub Command2_Click ( ) ym=““:mm=““ For i=1To 15 If a(i)>=97And a(i)<=122 Then‘小寫字母ASCII碼值范圍97-122 ym=ym+Chr(a(i))‘取出隨機字母中小寫字母 End If Next i Label1.Caption=ym For i=1To
c=
‘取出每個小寫字母 mm=mm+
‘大寫字母比小寫字母ASCII值小32 Next i Label2.Caption=mm End Sub