填空题

下列程序的功能是：将数据1，2，…，10写入顺序文件Base．txt中，请填空。　　Private Sub Form_Click() 　　　Dim i As Integer 　　　Open【】　As #1 　　　For i=1 To 10 　　　　　【】　　　　Next i 　　　Close #1 　　End Sub

【参考答案】

“Base．txt”For Output

<上一题目录下一题>

热门试题

填空题

请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。Private Sub Command1 Click()Dim s(6，6)For i=1 To 6For j=1 To 6If i=j Then【】 Else【】 End IfPrint 【】 Next jPrintNext iEnd Sub

填空题

执行下面的程序段，x的值为【】。 Private Sub Command1_Click()For i=1 To 9a=a + iNext ix=Val(i)MsgBox xEnd Sub

相关试题