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

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

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

　　[說(shuō)明]

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

　　運(yùn)行界面如下：

　　[程序]

　　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 "請(qǐng)?jiān)谖谋究蛑休斎胗?和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