2010軟件水平考試程序員考試模擬試題及答案(1)

　　試題七(15分，每空3分)

　　閱讀以下說明及Visual Basic 程序代碼，將應填入___(n)___處的字句寫在答題紙的對應欄內(nèi)。

　　[說明]

　　設窗體上有兩個文本框和一個按鈕，在第一個文本框text1中輸入一個全部由“0”和“1” 組成的字符串，單擊按鈕，在第二個文本框text2中顯示出給定字符串中連續(xù)的0和連續(xù)的1中連續(xù)字符數(shù)目的最大值。如果輸入的字符串中有不是“0”和“1”的字符，使用消息框顯示錯誤信息。

　　運行界面如下：

　　[程序]

　　Private Sub Command1_Click()

　　Dim strSource As String

　　Dim str1 As String

　　Dim result As Integer

　　Dim int1 As Integer, num As Integer

　　strSource = Text1.Text

　　If Len(strSource) = 0 Then

　　MsgBox "請在文本框中輸入由0和1組成的字符串"

　　Exit Sub

　　End If

　　For int1 = 1 To Len(strSource)

　　___(1)___

　　If str1 <> "1" And str1 <> "0" Then

　　MsgBox "不能輸入非0或非1的字符"

　　Exit Sub

　　End If

　　Next

　　str1 = ___(2)____

　　num = 1

　　For int1 = 2 To Len(strSource)

　　If str1 = Mid(strSource, int1, 1) Then

　　___(3)___

　　Else

　　If result < num Then

　　result = num

　　End If

　　str1 = Mid(strSource, int1, 1)

　　___(4)___

　　End If

　　Next

　　If result

　　< num Then

　　result = num

　　End If

　　___(5)___

　　End Sub