VB;NET模拟试题(2)

For i = 0 To 7

Combo1.Items.Add ( \Next i End Sub

Private Sub Button1_Click(??) Handles Button1.Click ________（5）________ Combo1.Text = \

If ________（6）________ Then

Combo1.Items.RemoveAt(Combo1.Items.Count - 1) End If

End Sub

Private Sub Button2_Click(??) Handles Button1.Click

If Combo1.Items.Count() > 4 And Combo1.SelectedIndex <> -1 Then ________（7）________ Else

________（8）________ End If End Sub

3、 单击“打开”命令按钮，可将顺序文件（“d:\\test.txt”）的内容逐行输入文本框Text1，并

显示输入的行数。单击“保存”命令按钮，可将TEXT1的内容输出到顺序文件（“d:\\test.txt”），并显示输出的行数。

Dim srdCurrent As System.IO.StreamReader Dim swCurrent As System.IO.StreamWriter

Private Sub Button1_Click(??) Handles Button1.Click Dim s As String, c As Integer Text1.Text = \

____srdcurrent=new __System.IO.StreamReader(“d:\\test.txt”) __（9）________ s = srdCurrent.ReadLine()

Do Until s = Nothing If s <> \

___Text1.Text = Text1.Text & s & vbCrLf___（10）________ c = c + 1 End If

s = srdCurrent.ReadLine() Loop

TextBox2.Text = c srdCurrent.Close() End Sub

Private Sub Button2_Click(??) Handles Button1.Click Dim i As Integer, c As Integer c = 0

For i = 1 To ____len(text1.text)__（11）_______ If Mid(Text1.Text, i, 1) = vbCr Then c = c + 1 Next I

Text2.Text = c+1

swCurrent = New System.IO.StreamWriter( \___swCurrent .write(text1.text)________ swCurrent.Close() End Sub