下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt，请填空。Private Sub Form. C1ick()Dim ch As StringOpen "C:\a1.txt" For【 】Open "C:\a2.txt" For【 】Do While Not【 】ch＝Input(1,10)Print 20,ch;LoopClose 10,20End Sub

题目

下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt，请填空。

Private Sub Form. C1ick()

Dim ch As String

Open "C:\a1.txt" For【 】

Open "C:\a2.txt" For【 】

Do While Not【 】

ch＝Input(1,10)

Print 20,ch;

Loop

Close 10,20

End Sub

相似考题

1.下面程序把从终端读入的文本（用@作为文本结束标志）输出到一个名为bi.dat的新文件中，请填空。#include "stdio.h"FILE *fp;{ char ch;if（（fp=fopen（（ ）））==NULL）exit（0）;while（（ch=getchar（ ））!='@'）fputc （ch,fp）;fclose（fp）;}

2.下列程序从名为filea.dat的文本文件中逐个读入字符并显示在屏幕上。请填空。 include mai下列程序从名为filea.dat的文本文件中逐个读入字符并显示在屏幕上。请填空。include ＜stdio.h＞main(){ FILE *fp; char ch;fp = fopen(【 】);ch = fgetc(fp);while(!feof(fp)) { putchar(ch); ch=fgetc(fp); }putchar("\n"); fclose(fp);}

3.以下程序的功能是从名为filea.dat的文本文件中逐个读入字符并显示在屏幕上。请填空。majn(){ FILE *fp； char ch；fp=fopen(______)；ch=fgetc(fp)；whle(!feof(fp)) { putchar(ch)； ch=f8etc(fp)； }putchar('\n')； fclose(fp)；}

4.下列程序实现的功能是：在窗体上单击时，将在窗体上输出c:=a1.txt文件中的所有小写字母。Private Sub Form. Click()Dim Ch As String * 1Open "c:\a1.txt" For Input As 10Do While【 】Ch= Input(1, 10)If 【 】ThenPrint Ch;End IfLoop【 】End Sub

更多“下列程序的功能是把文件C:\a1.txt复制成C:\a2.txt,请填空。 Private Sub Form. C1ick()Dim ch As ”相关问题

  • 第1题：

    在标准模块中用：Dim或Private关键字定义的变量是______变量，它们只能在程序的模块中使用。


    正确答案：局部标准
    局部标准

  • 第2题：

    要将当前盘当前目录下的A2.TXT文件连接到C盘根目录下的文件A1.TXT后面，正确的命令是（）。

    ACOPYC:///A1.TXT+A2.TXTC:///

    BCOPYA2.TXT>C:///A1.TXT

    CCOPYA2.TXT+C://A1.TXT>C:///A1.TXT

    DTYPEA2.TXT>C:///A1.TXT


    A
    略

  • 第3题：

    【填空题】输入一个字符，如果它是大写字母，则把它变成小写字母，如果它是一个小写字母，则把它变成大写字母，其它字符不变。请分析程序填空。 main（) {char ch; scanf（"%c",&ch); if（【1】) ch=ch+32; else if（ch＞='a'&&ch＜='z') 【2】; printf（"%c",ch); }


    略

  • 第4题：

    下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。 Private

    下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。

    Private Sub Command1_Click()

    Dim x AS Single

    x=InputBox("请输入x的值!")

    ________

    Case Is＜50

    y=0.8*x

    Case 50 To 100

    y=0.7*K

    __________

    Print"输入的数据出界!"

    End Select

    Print x，y

    End Sub


    正确答案：Select Case x Case Eles
    Select Case x Case Eles

  • 第5题：

    下面这条命令实现的是什么功能？ mv /home/sjh/a1.txt /home/sjh/a2.txt

    A．复制文件a1.txt

    B．删除文件a1.txt

    C．把文件a1.txt改名为a2.txt

    D．剪切文件a1.txt


    将文件 111.txt改名为222.txt

相关内容