填空题

下列程序实现的功能是：当在窗体上单击时，把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】 Loop Close #10 Close #20 End Sub

【参考答案】

Input Not EOF(10) Print #20
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名称为command 1的命令按钮，然后编写如下程序：Option Base 1Private Sub Colilinand1 Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = iNextcall Swap(a)For i = 1 To 10Print a(i);NextEnd SubSub Swap(b() As Integer)n = 【6】 For i = 1 To n 2t = b(i)b(i) = b(n)b(n) = t【7】 NextEnd Sub上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
填空题
在窗体上面画一个命令按钮，然后编写如下程序：Function M(x As Integer, y As Integer) As IntegerM = IIf(x＞y, x, y)End FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 2b = 5Print M(a, b)End Sub程序运行后，单击命令按钮，输出结果为 【5】 。
相关试题