類對象。 (2)請在橫線處填入合適的代碼。 Private Sub Command1_Click ( ) Dim luck As Integer Dim sr,c As String luck=0 sr=Text1.Text If Len(sr)=10 Then′輸入的格式長度符合條件 For i=1 To Len(sr) c=
If c>=“0“And c<=″9″Then luck=luck+Val(c) End If Next i Do While luck>9 luck=luck Mod 10+
Loop Label2.Caption=″你的幸運數(shù)字是:″+str(luck) Else Label2.Caption=″輸入有誤,請重輸!″ End If End Sub (3)若在文本框Text1中輸入“2004/08/18”,Label2中顯示的內(nèi)容為
15.設(shè)某漢字由7×7 的0、1 點陣圖案組成。依照以下規(guī)則生成壓縮碼:連續(xù)一組數(shù)值,從漢字點陣圖案的第一行第一個符號開始計算,按書寫順序由左到右,從上到下。壓縮碼第一個數(shù)表示起始的數(shù)字(例如0),第二個數(shù)表示連續(xù)有幾個0,第三個數(shù)表示接下來連續(xù)有幾個1,第四個數(shù)表示接下來連續(xù)有幾個0,第五個數(shù)表示接下來連續(xù)有幾個1,以此類推…… 例如,以下漢字點陣圖案: 0001000 0001000 0001111 0001000 0001000 0001000 1111111 對應(yīng)的壓縮碼是031616431616137(第一個數(shù)是0,表示一開始時的數(shù)字為0)。 (1)請將程序代碼補充完整。 Private Sub Command1_Click ( ?。?br />Dim code As String,c As Integer,res As String,k As Integer code=Text1.Text k=0 res=″″ c=Val(Mid(code,1,1)) For i=2 To Len(code) For j=1 To Val(Mid(code,i,1))' res=
If k=7 Then List1.AddItem res k=0 res=″″ End If Next j c=