题目内容（请给出正确答案）

[主观题]

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，

请填宁。 Private Sub form_ Click() Dim Ch As String Open "c:\a1. txt, for【】As 10 Open "d:\a2.txt" for Output As 20 do while【】 Line Input 10, Ch 【】 Loop Close 10 Close 20 End Sub

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件…”相关的问题

第1题

下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:\a1．txt文件中的所有小写字母。 Pri

vate Sub Form_Click() Dim Ch As String*1 Open"c:\a1．txt"For Input As 10 Do While【】 Ch=Input(1，10) If【】Then Print Ch； End If Loop 【】 End Sub

点击查看答案

第2题

下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub fo

rm_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:\a1. txt" for Input As 10 do while【】 Ch = Input(1, 10) if【】 then n=n+1 End if Loop【】 Close 10 End Sub

点击查看答案

第3题

在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框T

ext1和若干复选框，其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下： Private Sub Check1_Click() If______ Then Text1.FontUnderline=Tree ElseIf______Then Text1.FontUndefiine=False End If End Sub

点击查看答案

第4题

下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。

Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【】 Print sum,aver End Sub

点击查看答案

第5题

程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是Click。()

程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是Click。（)

A.正确

B.错误

点击查看答案

第6题

设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有

若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private sub Command1_click() Dim stu As student Open "C:\file, dat" For Random As 1 Len=Len(【】) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【】1, i, stu Next i Close【】 End Sub

点击查看答案

第7题

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For I=0 To 3 Print a(5 - I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是()。

A.7654

B.6543

C.5432

D.4321

点击查看答案

第8题

设有如下程序： Option Base 0 Private Sub_Click（) Dim a Dim I As Integer a=Array（1，2，3，4，5，6，7，8，9) For I=0 To 3 Print a（5–I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（)。

A.7654

B.6543

C.5432

D.4321

点击查看答案

第9题

阅读下面程序，当单击按钮Command之后。窗体上输出的是（)PrivateSubCommand1_Click（)DimiAsIntegerDimsAsIntegerx=0Fori=1To10s=s＋iNextiPrints,iEndSub

A.5511

B.s=55,i=11

C.555

D.s=11i=5

点击查看答案