niusouti.com
下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。Private Sub Form_Click（）Dim i As IntegerOpen "Num.txt"For Output As #1For i=1 To 8【15】Next iClose #1End Sub
题目
下列程序的功能是：将数据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
【15】
Next i
Close #1
End Sub
相似考题
更多“下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。Private Sub Form_Click（）Dim i As IntegerOpen "Num.txt"For Output As #1For i=1 To 8【15】Next iClose #1End Sub”相关问题
-
第1题：
阅读程序：
Function fac(ByVal n As Integer)As Integer
Dim temp As Integer
temp=1
For i％=1 To n
temp=temp*i％
Next i％
fac=temp
End Function
Private Sub Form_Click()
Dim nsum As Integer
nsum=1
For i％=2 To 4
nsum=nsum+fac(i％)
Next i％
print nsum
End Sub
程序运行后，单击窗体，输出结果是
A．35
B．31
C．33
D．37
正确答案：C
解析：本题中fac函数的功能为求n的阶乘，单击事件中i的值分别取2，3，4，并对它们的阶乘求和为2+6+24=32，再加上nsum的值1，得33。因此本题答案为C)。 -
第2题：
下列程序的作用是：打开顺序文件C:\stuDatA.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。
Private Sub Form_Click()
【 】
Do While Not EOF(1)
Input 1，StrNo，StuName，StuEng
Print StuNo；Tab(10)；StuName；Tab(20)；StuEng
Loop
Close 1
End Sub
正确答案：Open“C:\StuDatA.txt”For Input As #1
Open“C:\StuDatA.txt”For Input As #1 -
第3题：
（8）下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。Private Sub numCount() Dim num As Integer s$="software And hardware" Num=Len(s$) For i=1 unm b$=。 If b$="a"Then x=x+1 Next i Print"x="；xEnd Sub
正确答案：Mid(s$,i,1)
【解析】分析题目和程序段可知，空白处的作用是取出字符串s中的第i个字符，这里可以使用Mid函数来取出第i个字符，然后对比该字符是否是字符a，如果是，则变量x加1，如果不是则跳过if后面的语句继续循环，最后输出x。 -
第4题：
（34）下列程序的功能是：将数据1,2,…,8写入顺序文件Num.txt中，请选择正确的程序段。 Private Sub For_Click() Dim i As Integer Open "Num.txt"For Output As #1 For i=1 To 8 Next i Close #1 End SubA.Print #1,i B.input #1,I C.Print #1 D.input #1
正确答案：A
【解析】顺序文件的写操作使用“Print#”语句或者“Write#”语句，而“Input#”语句用于从一个顺序文件中读取数据。使用“Print#语句”向一个顺序文件写数据的格式是：Print#文件号，表达式表。各个表达式之间用逗号或分号隔开，如果省略表达式，则向顺序文件中写入一个空行。 -
第5题：
下列程序 Option Base 1 Const upl = 10 Private Sub Form_click() Dim a(upl) As Integer k = －1 For i = 1 To upl a(i) = i * k k = －1 * k Next i For i = 1 To 10 Print a(i); Next End Sub 运行时输出的结果是 () 。A. 1 3 5 7 9 10
B. -1 -3 -5 -7 -9
C. -1 2 -3 4 -5 6 -7 8 -9 10
D. 1 -2 3 -4 5 -6 7 -8 9 -10
参考答案：C
-
第6题：
在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click()
Open"c：\test.dat"For Output As 1
For I=1 to Len(Text1.text)
______
Next I
Close 1
End Sub
正确答案：Print #1Mid(text1.textI1)
Print #1,Mid(text1.text,I,1) -
第7题：
阅读程序： Option Base 1 Dim art()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为
A．21
B．13
C．8
D．25
正确答案：B
解析：每次使用ReDim语句都会使原来数组中的值丢失，也可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3,2)始终都未赋值，arr(3,4)=4+9=13，故最后为13。 -
第8题：
以下程序需要实现的功能是：在C盘根目录下建立一个名为Students.txt的顺序文件。单击命令按钮后，输入4个学生的个人信息，包括name、sex和age，将这些信息写入文件中。请填空。
Private Sub Form_Click()
Open【 】For Output As 1
For i=1 To 4
name=InputBox("姓名")
age=InputBox("年龄")
sex=InputBox("性别")
Write【 】
Next i
Close 1
End Sub
正确答案：C:\Students.txt #1nameagesex
C:\Students.txt , #1，name，age，sex 解析：Open语句的格式为：Open文件名[For文件模式][Access存取方式][锁定]As[#]文件号[Len=记录长度)。因此第一个空填文件的路径与文件名。使用Write将数据写入文件内，其格式为Write#1，A，B,...，即把变量A、B等的值写入文件号为1的文件内。 -
第9题：
向顺序文件Temp.txt中写入1,2,3这3个数。在程序中加入以下语句的那项可以使程序功能完整。
Private Sub Command1_Click
Open"c:\Temp.txt",Output As #1
For i=0 To 3
Next
Close #1
End Sub
A．Print #1,Temp.txt
B．Get #1,i
C．Print #1,i
D．Unit #1,i
正确答案：C
解析：向顺序文件中写入数据时用Print语句。 -
第10题：
下列程序的功能是：将数据1，1，…，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
A．print#1,i
B．input#1,I
C．print#1
D．input#1
正确答案：A
解析：顺序文件的写操作使用“Print#”语句或者“Write#”语句，而“Input#”语句是用于从一个顺序文件中读取数据。使用“Print#语句”向一个顺序文件写数据的格式是：Print#文件号，表达式表。各个表达式之间用逗号或分号隔开，如果省略表达式，则向顺序文件中写入一个空行。 -
第11题：
下列程序的功能是：将数据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
A．print#1,i
B．input #1,I
C．print#1
D．input#1
正确答案：A
解析：顺序序文件的写操作使用“Print#”语句或者“Write#”语句，而“Input#”语句用于从一个顺序文件中读取数据。使用“Print#语句”向一个顺序文件写数据的格式是：Print#文件号，表达式表。各个表达式之间用逗号或分号隔开，如果省略表达式，则向顺序文件中写入一个空行。 -
第12题：
执行下列程序后输出如下所示矩阵，填空将程序补充完整。
1 0 0 2
0 3 4 0
0 5 6 0
7 0 0 8
Private SubCommand1_Click()
Dim a(4，4)
For i=1 To 4
For i=1 To 4
If【 】Then
【 】
a(i，j)=k
Else
a(i，j)=0
End If
Print a(i，j)；
Next i
Print
Next i
End Sub
正确答案：i=j Or j＝4-i+1 k=k+1
i=j Or j＝4-i+1 ,k=k+1 解析：通过观察可以发现，只有在主对角线和副对角线上才有数值，而且是渐增的，故当条件成立时，k的值加1。主对角线行列下标的关系为：i＝j，副对角线行列下标的关系为：i+j＝5。 -
第13题：
下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub
A．36
B．25
C．1
D．出错信息
正确答案：D
-
第14题：
下列程序的功能是：将数据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 SubA.print#1,i B.input#1,i C.print#1 D.input#1
正确答案：A
【解析】顺序文件的写操作使用“Print#”语句或者“Write#”语句，而“Input#”语句是用于从一个顺序文件中读取数据。使用“Print#语句”向一个顺序文件写数据的格式是：Print#文件号，表达式表。各个表达式之间用逗号或分号隔开，如果省略表达式，则向顺序文件中写入一个空行。 -
第15题：
（11）设有下列程序查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer,i As Integer Arr1=Array(12,435,76,-24,78,54,866,43) Min=arr1(1) For i=2 To 8 If arr1(1)<Min Then Next i Print"最小值："；Min End Sud
正确答案：Min=arr1(i)
【解析】题目要求输出数组中的最小值，分析程序可知，本程序求数组最小值的算法是：假设最小的值是第一个数组元素，并把它存在Min变量中，然后从数组的第二个元素开始逐个与Min变量对比，如果有比Min更小的数，则赋值给Min，这样对比到数组最后一个元素时，就能找到最小的元素，且它存储在Min变量中，因此最后只要输出Min变量值即可。 -
第16题：
向顺序文件Temp.txt中写入1，2，3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。
Private Sub Command1_Click()
Open "c:\Temp.txt"，Output As#1
For i=0 To 3
Next
Close #1
End Sub
A．Print #1，Temp.txt
B．Get #1，i
C．Print #1，i
D．Unit #1，i
正确答案：C
解析：向顺序文件中写入数据时用Print语句。 -
第17题：
下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的datA.txt文件中。请填空。
Private Sub Command1_Click()
Dim a As Integer
Open【 】For Output As 100
Randomize
For i =1 To 10
a=100+Int(899*RnD) 【 】
Next i
Close 100
End Sub
正确答案：d:\datalll.txt Write #100a
d:\datalll.txt , Write #100,a 解析：首先打开顺序文件。第一个空填文件的路径与文件名。使用Write将数据写入文件内，格式为“Write #100，a”，即把变量a的值写入文件号为100的文件内。 -
第18题：
下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim arr1()
Dim Min As Integer,i As Integer
arr1＝Array(12,435,76,-24,78,54,866,43)
Min＝______
For i＝2 To 8
If arr l(i)＜Min Then______
Next i
Text1＝Min
End Sub
正确答案：arr1(1) Min＝arr1(i)
arr1(1) Min＝arr1(i) 解析：本题考查VBA中程序设计的知识。对于这个问题，需要把数组元素依次与最小值比较，如果比当前的最小值还小，则让这个数组元素成为新的最小值，然后继续比较，直至数组元素都比较一遍为止。由于比较的循环从2开始，显然是预先设置最小值为数组的第一个元素即arr1(1)；在比较循环内部如果符合If语句的条件，则让这个数组元素成为新的最小值，即Min＝arr1(i) -
第19题：
请阅读程序： Sub subP(b（ ）As Integer) For i=1 To4 b(i)=2*i Next i End Sub Private Sub Commandl Click（ ） Dim a(1 To 4)As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a（ ） For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是（ ）。
A.2 4 6 8
B.5 6 7 8
C.10 12 14 16
D.出错
正确答案：A
A。【解析】本题考查数组为参数在函数间的传递。本题中，当用户点击控件Command1时，控件的CommandlClick事件过程被触发，在此过程中首先定义了一个包含4个元素的数组a，并赋值。然后以数组a为参数传递给过程subP，在过程subP中执行for循环，分别给a中的4个元素赋值为2、4、6、8。函数执行结束返回过程Command1_Click，利用for循环打印输出a数组中的值，所以选A。 -
第20题：
执行下列程序段时，分别在输入框中输入2、4、6，则执行结果是______。 Dim A(4) As Integer Dim B(4) As Integer For i = 0 To 2 A(i + 1) = Val (InputBox (“请输入数据”)) B(3 - i) = A(i + 1) Next i Print B(i)
A．2
B．4
C．6
D．8
正确答案：A
-
第21题：
向顺序文件Temp.txt中写入1，2，3这3个数。在程序中加入以下语句的那项可以使程序功能完整。 Private Sub Command1_Click() Open"c:\Temp.txt"，Output As #1 For i=0 To 3 ______ Next Close #1 End Sub
A．Print #1，Temp.txt
B．Get #1，i
C．Print #1，i
D．Unit #1，i
正确答案：C
解析：向顺序文件中写入数据用Print语句。注意： 读随机文件的语句格式是：
Get #文件号，[记录号]，变量；写随机文件的语句格式是：
Put #文件号，[记录号]，变量注意：随机文件的读写操作 -
第22题：
下列程序的功能是：将数据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
A．print #1,i
B．input #1,i
C．print #1
D．input #1
正确答案：A
解析：顺序文件的写操作使用“Print#”语句或者“Write#”语句，而“Input#”语句是用于从一个顺序文件中读取数据。使用“Print#语句”向一个顺序文件写数据的格式是：Print#文件号，表达式表。各个表达式之间用逗号或分号隔开，如果省略表达式，则向顺序文件中写入一个空行。 -
第23题：
请阅读程序． 0ption Base 1 Private Sub Fo,m Click（ ） Dim Arr(4，4)As Integer For i=1 To 4 For j=1 To 4 Arr(i，j)=(i=1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j，i)； Next j Print Next i End Sub 程序运行后，单。旨窗体，则输出结果是（ ）。
A.5 7 6 8
B.6 8 7 9
C.7 9 8 10
D.8 10 8 11
正确答案：C
C。【解析】本题利用嵌套for循环给数组Arr赋值。结果是Arr(3，3)=7，Arr(3，4)=8，Arr(4，3)=9，Arr(4，4)=10，其他与后面程序无关。然后再次利用嵌套循环输出，输出顺序为Arr(3，3)，Arr(4，3)，print，Arr(3，4)，Arr(4，4)，所以结果为C。