填空题

下列程序的功能是：将数据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

【参考答案】

Print #1，i

<上一题目录下一题>

热门试题

填空题

在窗体上有一个命令按钮，然后编写如下程序：Function Trans(ByVal num As Long) As LongDim k As Longk=lDo While numk=k * (num Mod 10)num=num 10LoopTrans=kPrint TransEnd FunctionPrivate Sub Commandl_Click( )Dim m As LongDim s As Longm=InputBox( 请输入一个数 )s=Trans(m)End Sub程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为【】，在输入对话框中输入“987”输出【】，在输入对话框中输入“879”，输出结果为【】。

单项选择题

在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:Option Base 1Private Sub Command1_Click()Dim as = 0a = Array(1,2,3,4)；j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是（）。

A．4321
B．1234
C．34
D．12

相关试题