16.王林設計了一個數字圖形的程序,其功能是在文本框Text1中輸入n 的值(10>n>1),單擊“輸出”按鈕Command1,在列表框List1中輸出數字圖形;單擊“退出”按鈕Command2,結束并退出程序.文本框中輸入8時程序運行界面如圖1所示,程序代碼如下 Dim n,i,j As Integer Dim s As String n=Val(Text1.Text) List1.Clear For i=1To n s=““ For j=1To① s=② Next j List1.AddItem=s′③ Next i (1)代碼“List1.Clear”中的Clear是
Dim s As String,m As String Dim t As String Dim k As String Dim c As Integer s=Text1.Text n1=Len(s) s3=Text3.Text n3=Len(s3) If n3<26Then Label1.Caption=“請重新輸入密鑰!“ Text3.Text=““ Exit Sub End If m=“abcdefghijklmnopqrstuvwxyz“ For i=1To n1 k=Mid(s,i,1) If
Then'將大寫字母轉換為小寫 k=Chr(Asc(k)+32) End If c=1 Do While c<=Len(m) If k=Mid(m,c,1)Then Exit Do End If