[试题]

( 7 )下面程序的功能是把文件 file11.txt 中重复字符去掉后(即若有多个字符相同,则只保留 1 个 ) 写

入文件 file2.txt 。请填空。

Private Sub Command1__Click ()

D.im inchar AS String,temp AS String,outchar AS String

Outchar= ” ”

Open= ” file1.txt ” For Input AS #1

Open= ” file2.txt ” For Output AS——

n=LOF (——)

inchar=Input$ ( n,1 )

F.or k=1 To n

temp=Mid ( inchar,k,1 )

If InStr ( outchar,temp ) = ——Then

outchar=outchar & temp

E.nd If

Next k

print #2,——

close #2

close #1

E.nd Sub

参考答案与解析:

相关试题

下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同,

[主观题]下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同,则只保留1个)写入文件file2.txt。请填空。Private Sub Command1__Click()D.im inchar AS String,temp AS String,outchar AS Stringutchar=” ”pen=”file1.txt” For Input AS #1pen=”file2.txt” For Output AS ______n=LOF( ______ )inchar=Inp

  • 查看答案
  • 下面程序的预设功能是:统计文件abc.txt中的字符个数。 include i

    [主观题]下面程序的预设功能是:统计文件abc.txt中的字符个数。 include include 下面程序的预设功能是:统计文件abc.txt中的字符个数。include <iostream.h>include <fstream.h>include <stdlib.h>void main(){fstream file;file.open( "abc.txt", ios::in);if ( !file ){cout<<"Can not open abc.txt"<<end1;abort();}

  • 查看答案
  • (34)为了从当前文件夹中读入文件File l .txt,某人编写了下面的程序:

    [单选题](34)为了从当前文件夹中读入文件File l .txt,某人编写了下面的程序:Private Sub Command 1_CLick()Open"File l .txt" For Output As #20D.o While Not EOF(20)Line Input #20, ch$Print chLoopC.lose #20E.nd Sub程序调试时,发现有错误,下面的修改方案中正确的是A.)在Open语句中的文件名前添加路径B.)把程序中各处的"20"改为"1"C.)把Pri

  • 查看答案
  • 为从当前文件夹中读入文件File1.txt,某人编写了下面的程序:Private

    [单选题]为从当前文件夹中读入文件File1.txt,某人编写了下面的程序:Private Sub Command1_Click( )Open"File1.txt"For Output As20D.o While Not EOF(20)Line Input20,ch$Print chLoopC.lose20E.nd Sub程序调试时,发现有错误,下面的修改方案中正确的是( )。A.在Open语句中的文件名前添加路径B.把程序中各处的“20”改为“1”C.把Print ch语句改为Pri

  • 查看答案
  • 下面的程序执行后,文件test.txt中的内容是() # include voi

    [单选题]下面的程序执行后,文件test.txt中的内容是() include void fun(char*

  • 查看答案
  • 设文件test.txt中原已写入字符串Begin,执行以下程序后,文件中的内容为

    [试题]设文件test.txt中原已写入字符串Begin,执行以下程序后,文件中的内容为( 15 ) 。#include <stdio.h>main( ){ FILE *fp;fp= fopen( "test.txt”, ”w+”);fputs( "test",fp);fclose(fp);}

  • 查看答案
  • 下面的事件过程执行时,可以把TXET1文本框中的内容写到文件“file1.txt

    [主观题]下面的事件过程执行时,可以把TXET1文本框中的内容写到文件“file1.txt”中去。请填空。Prvate Sub Command1_Click()Open “file1.txt”for(6)as#1Print(7),text1.txtC.lose #1E.nd Sub

  • 查看答案
  • 现有一个文件file21.txt,其内容是: abCdEf, 执行下列程序之后,

    [单选题]现有一个文件file21.txt,其内容是: abCdEf, 执行下列程序之后,输出的结果是______。 package ch1; import java,io.*; public class ex21 { static String name = "ch1//file21.txt"; public static void main(String[] args) { try { readFile (); } catch(IOException ioe) { System.out.print

  • 查看答案
  • 以下程序企图把从终端输入的字符输出到名为abc.txt的文件中,直到从终端读入字

    [单选题]以下程序企图把从终端输入的字符输出到名为abc.txt的文件中,直到从终端读入字符#号时结束输入和输出操作,但程序有错。#include main(){ FILE *fout; char ch;fout=fopen('abc.txt','w');ch=fgetc(stdin);while(ch!='#'){ fputc(ch,fout);ch =fgetc(stdin);}fclose(fout);} 出错的原因是A.函数fopen调用形式有误B.输入文件没有关闭C.函数fgetc调

  • 查看答案
  • 以下程序试图把从终端输入的字符输出到名为abc.txt的文件中,直到从终端读入字

    [单选题]以下程序试图把从终端输入的字符输出到名为abc.txt的文件中,直到从终端读入字符#时结束输入和输出操作,但程序有错。 #include<stdio.h> main() { FILE *fout; char ch; fout=fopen('abc.txt','W'); ch=fgetc(stdin); while (ch!='#') { fputc (ch,fout); ch=fgetc(stdin); } fclose (fout); } 出错的原因是( )。A.函数fopen调用

  • 查看答案