题目内容

下列程序实现的功能是：当在窗体上单击时，把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

查看答案

搜索结果不匹配？点我反馈

更多问题

数据库设计分为以下6个设计阶段：需求解析阶段、【】、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。

以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。 Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i＜= k And Flag = 0 if【】 = 0 then Flag = 1 Else i= i+ 1 End if Loop if【】then MsgBox “这是一个素数!”，vbOKOnly，“提示” Else MsgBox “这不是一个素数!”，vbOKOnly，“提示” End if End Sub

假设参照物的成本比率用U来表示，其交易价格为Po，重置成本为Ro，这有()

A. U=×100%
B. U=×100%
C. U=×100%
D. U=×100%

以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。 Private Sub form. Click() Dim s(5, 5)As Integer for N =1 To 5 for M = 1 To 5 if【】Or【】then S(N, M)=1 Else S(N. M)= 0 End if Next M Next N for N =1 To 5 for【】 Picture1. Print Tab(M *3); s(N, M); Next M Print Next N End Sub