填空题

下列程序的功能是：将数据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
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = iNextCall swap（【 】）For i = 1 To 10Print a(i);NextEnd SubSub swap(b() As Integer)n =【 】For i = 1 To n 2t = b(i)b(i) = b(n)b(n) = t【 】NextEnd Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
单项选择题
有如下事件过程：Private Sub Commaild1_Click( )Dim i As IntegerFor i =1 To 2DCNext iEnd SubSub DC( )Dim x As Integer，m As StringStatic y，nx=x + 1y=y + 1m=m& * ：n=n & # Print x，y，m，nEnd Sub程序运行后，输出的结果是( )。
A． 1 1 * # 　　 1 1 * #
B． 1 1 * #　　 1 2 * #
C．1 1 * #　　1 1 * ##
D． 1 1 * #　　 1 2 * ##
相关试题