窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据： Private Sub Command1_Click（) 　　Dim s1 As String， s2 As String 　　Open "c：d4.dat" For Append As #3 　　Line Input #3， s1 　　Line Input #3， s2 　　Text1.Text＝s1＋s2 　　Close End Sub 该程序运行时有错误，应该进行的修改是________。

A.程序的功能是将f2.txt文件的内容复制到f1.txt中

B.f1.txt和f2.txt均是顺序文件

C.EOF函数可以判断是否已到文件的末尾

D.Close能够把打开的两个文件都关闭

A.温州

B.吉林

C.哈尔滨

D.北京

A.将If语句的条件修改为 i <= List1.ListCount

B.将Interval属性值改为100

C.将语句Dim i As Integer修改为Static i As Integer

D.将语句Text1.Text = List1.List(i)与i = i + 1交换位置

A.文件c:allstu.dat中的每条记录是等长的

B.定义记录类型stu的Type语句可以移到事件过程Command1_Click中

C.如果文件c:allstu.dat不存在，则Open语句执行中出现'文件未找到'的错误

D.语句'Put #1, , s'中没有指明记录号，因此系统总是把记录写到文件的头部

A.private void listBox1_Click(object sender, EventArgs e) { label1.Text = listBox1.Text; }

B.private void listBox1_Click(object sender, EventArgs e) { label1.Text = listBox1.SelectedIndex; }

C.private void listBox1_Click(object sender, EventArgs e) { label1.Name = listBox1.Text; }

D.private void listBox1_Click(object sender, EventArgs e) { label1.Name = listBox1.SelectedIndex; }

A.Timer1. Enabled =0.1

B.Timer1.Interval =0.1

C.Timer1. Enabled=100

D.Timer1.Interval=100

A.Book1

B.工作簿1

C.Sheet1

D.文档1

A.for i=1 To listBox1.Items.Count { …… }

B.for i=1 To listBox1.Items.Count-1 { …… }

C.for i=0 To listBox1.Items.Count-1 { …… }

D.for i=0 To listBox1.Items.Count{ …… }