loadingOption Base 1
Private Sub Command1_Click（） Dim a（10） As Integer For i=1 To 10 a（i）=i Next
Call swap （ 【11】 ） For i=1 To 10 Print a（i）; Next End Sub
Sub swap（b（） As Integer） n=Ubound（b） For i=1 To n / 2 t=b（i）
b（i）=b（n） b（n）=t 【12】 Next End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，??。请填空。
（10）在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form_Click（）
Open \d:\\test\\smtext1.Txt\ For Input As #1 Do While Not 【13】 Line Input #1, aspect$
Whole$=whole$+aspect$+Chr$（13）+Chr$（10） Loop
Text1.Text=whole$ 【14】
Open \d:\\test\\smtext2.Txt\ For Output As #1 Print #1, 【15】 Close #1 End Sub 运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
2010年3月全国计算机等级考试 二级VB 笔试试卷答案
选择题
1-5 ADBAC 6-10 BADBA
11 (D) 12(B) 13(C) 14(A) 15(D) 16 (C) 17(B) 18(A) 19(B) 20(A) 21 (A) 22(D) 23(A) 24(D) 25(C) 26 (C) 27(A) 28(C) 29(C) 30(B) 31 (C) 32(B) 33(A) 34(B) 35(D)
填空题
（1）A,B,C,D,E,F,5,4,3,2,1 （2）15
（3）EDBGHFCA （4）程序 （5）课号 (6)【6】2 (7) [7] 500
(8) [8] Not label1.visible (9) [9] Timer1.Enabled=Ture (10) [10] 28 (11) [11] a()或a (12) [12] n=n-1 (13) [13] EOF(1) (14) [14] Close#1
(15) [15] Text1.Text或text1
dfyz来自http://www.eastedu.com.cn/