填空题

下列程序的功能是：将数据1，2，…，8写入顺序文件Num．txt中，请补充完整。 　　Private Sub Form_Click() 　　　　Dim i As Integer 　　　　Open"Num．txt"For Output As #1 　　　　For i=1 To 8 　　　　【 】 　　　　Next i 　　　　Close #1 　　End Sub

【参考答案】

Print #1，i
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Labe1、Label2,标题分别为 城市名称 和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示 已成功添加新输入项。 ,如图所示。如果输入的项目已存在,则在Label2中给出提示 输入项已在组合框中。 。 请填空。Private Sub Combol_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then For i=0 To Combo1.ListCount-1If Combo1.Text=【 】ThenLabel2.Caption= 输入项已在组合框中。 Exit SubEnd IfNext i Label2.Caption= 已成功添加新输入项。 Combo1.【 】Comb01.TextEnd IfEnd Sub
填空题
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程：Private Sub Commandl_Click()Dim inData As StringTextl.Text= Open d：myfile.txt For 【 】As#1Do While 【 】Input#,inDataLoopText1.Text=Text1.Text+inDLoopClose#1 End Sub程序的功能是,打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。
相关试题