未分类题

在窗体上画一个文本框,名称为Textl,然后编写如下程序:
Private Sub Form_Load()
Open”d:\temp\dat.txt”For Output As1
Textl.Text=“”
End Sub
Private Sub Textl KeyPress(KeyAscii As Integer)
IfKeyAscii=13 Then
If UCase(Textl.Text)=【 】Then
Close1
End
Else
Write1,【 】
Textl.Text=…
End If
End If
End SUb
以上程序的功能是:在D盘temp文件夹下建立一个名为dat.txt的文件,在文本框中输入字符,每次按回车键都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则不写入文件,直接结束程序。请填空。

A.txt”For
B.Text=“”
End
C.Text)=【
D.Text=…
End
E.txt的文件,在文本框中输入字符,每次按回车键都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则不写入文件,直接结束程序。请填空。


【参考答案】

“END”Text1.Text
“END”,Text1.Text 解析:当输入值为“END”的时候,退出程序。当......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题

未分类题
背景资料 某工程项目,业主通过招标与甲建筑公司签订了土建工程施工合同,包括A、B、C、D、E、 F、G、H八项工作,合同工期360天。业主与乙安装公司签订了设备安装施工合同,包括设备安装与调试工作,合同工期180天。通过相互协调,编制了如图7所示的网络进度计划。 该工程施工过程中发生了以下事件: (1)基础工程施工时,业主负责供应的钢筋混凝土预制柱供应不及时,使A工作延误7天; (2)B工作施工后进行检查验收时,发现一预埋件埋置位置有误,经核查,是由于设计图纸中预埋件位置标注错误所致;甲建筑公司进行了返工处理,损失5万元,且使B工作延误 15天; (3)甲建筑公司因人员与机械调配问题造成C工作增加工作时间5天,窝工损失5万元; (4)乙安装公司设备安装时,因接线错误造成设备损坏,使乙安装公司安装调试工作延误 5天,损失12万元。发生以上事件后,施工单位均及时向业主提出了索赔要求。 问题1.施工单位对以上各事件提出索赔要求,分析业主是否应给予甲建筑公司和乙安装公司工期和费用补偿?2.如果合同中约定,由于业主原因造成延期开工或工期延期,每延期一天补偿施工单位 6000元,由于施工单位原因造成延期开工或工期延误,每延误一天罚款6000元。计算施工单位应得的工期与费用补偿各是多少?3.该项目采用预制钢筋混凝土桩基础,共有800根桩,桩长9m。合同规定:桩基础分项工程的综合单价为180元 m;预制桩由业主购买供应,每根桩按950元计。计算甲建筑公司桩基础施工应得的工程款是多少?