本程序将顺序文件A:、MYFILE.TXT的内容一个字符一个字符地读入文本框txtTest中。请将程序补充完整。
Private Sub Form_Click()
Dim InputData As String
txtText.Text=""
______
Do While______
______
txtTest.Text = txtTest.Text +InputData
Loop
______
End Sub

根据《建设工程价款结算暂行办法》，在施工条件具备的前提下，下列有关工程预付款的叙述中，正确的是（）。

A.发包人应在双方签订合同后一个月内或不迟于约定的开工日期前的10d内预付工程款

B.发包人不按约定预付，承包人应在预付时间到期后7d内向发包人发出要求预付通知

C.发包人收到承包人要求预付的通知后仍不按要求预付，承包人可在发出通知14d后停止施工

D.发包人因未按要求预付工程款应承担停工责任的，应从约定预付日期后第7天起，按同期银行贷款利率，向承包人支付应预付款利息