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

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，请填宁。Private Sub form_ Click（) Dim Ch As String Open "c:a1. txt, for 【8】 As 10 Open "d:a2.txt" for Output As 20 do while 【9】 Line Input 10, Ch 【10】 欲把当前目录下的file1.txt复制为file2.txt，正确的命令是（）。 欲把当前目录下的file1.txt复制为file2.txt，正确的命令是（） 欲把当前目录下的file1.txt复制为file2.txt，正确的命令是 欲把当前目录下的file1.txt复制为file2.txt，正确的命令是（） 下面程序的功能是把文件file1.txt中重复的字符去掉后（即若有多个字符相同，则只保留1个)写入文件file2.txt。请填空。 Private Sub Commana1_Click（)Dim inchar As String,temp As String,outchar As Stringoutchar=""Open "file1.txt" For Input As 1Open "file2. 欲把当前目录下的 file1.txt 复制为 file2.txt，正确的命令是（）。 下面程序的功能是把文件file11.txt中重复字符去掉后（即若有多个字符相同，则只保留一个)写入文件file2.txt。请填空。 Private Sub Command1_Click（) Dim inchar AS String, temp AS String, outchar AS String Outchar="" Open "file1.txt" For Input AS 1 Open " 电力调度数字证书系统采用分级部署，国调是1级CA,省调是2级CA，地调是3级CA（） char ca，cb; ca=getchar(); ca=ca-32; cb=getchar(); cb=cb+1; putchar(ca); putchar(cb); 问,若输入的是r4,输出显示的是（） 报出车门驱动电机电路电线中断（1CA4、1CA5、1CA6、1CA7）原因大致分析为？（） 在客户风险分类中，对于CA1和CA2级客户企业应该（） 下面程序的功能是把文件file1.txt中重复字符去掉后（即若干多个字符相同，则只保留一个)写入文件file2.txt。请填空。 Private Sub Command1_Click（) Dim inchar As String, temp As String, outchar As String outchar="" Open"filel.txt" For Input As1 Open"file 下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请将程序补充完整。 Private Sub Form_Click（) Dim i As Integer Open "Num.txt"For Output As1 For i=1 To 8 （11) Next Close1 End Sub ρ＝0.1g·L－1Ca（OH）2溶液的PH值是2.57。已知Ca（OH）2的摩尔质量是74.10g·mol-1。]（） 下列程序的功能是：将数据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 下列程序的功能是：将数据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 下列程序的功能是：将数据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 【13】 Next Close 1 End Sub 下列程序的功能是：将数据1,2…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click（) Dim i As Integer Open "Base. txt" For Output As 1 For i=1 To 10 【15】 Next Close 1 End Sub 下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。 Private Sub Form_Click（) Dim i As IntegerOpen "Num.txt" For Output As1For i=1 To 8 【8】 NextClose 1 End Sub