2014年计算机二级考试VB专家预测试卷及答案4

　　四、综合应用题

　　除了基本的操作外，本题涉及的知识点主要有循环和数组的使用两个方面。先在窗体上建立控件，再设置控件属性，然后研读提供的代码，正确分析并完成程序。文本框显示的内容通过Text属性设置;按钮的标题通过Caption属性设置，单击命令按钮触发Click事件;在本题中涉及文件的操作，读入文件并以顺序的方式打开，用“Input#”语句读取数据，另外需要注意的是对文件操作结束后，一定要关闭文件。

　　①文本框显示的内容通过Text属性设置，Muhiline属性决定文本框是否可多行显示。若需要多行显示，则必须将Multiline属性设置为True，同时将Scrollbars属性设置为2。

　　②建立界面并设置控件属性。按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。程序中用到的控件及属性设置见下表：

　　③打开工程资源管理器，在其空白处右键添加模块prog.bas(此文件已在考生文件夹里)，模块代码如下：

　　Option Explicit

　　Sub putdata(a()As Integer，n As Integer)

　　Dim sFile As String

　　sFile="\result.txt"

　　Open App.Path&sFile For Output As#1

　　For i=1 To n

　　Print#1，a(i);

　　Next i

　　Close#1

　　End Sub

　　④打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下：

　　’窗体代码

　　Option Explicit

　　Dim i(1 To 100)As Integer

　　Private Sub Cmd1 Click()

　　Dim j As Integer

　　Open App.Path&"\"&"in.txt"For Input As#1

　　For j=1 To 100

　　Input#1，i(j)

　　Text1.Text=Text1.Text&i(j)&Space(5)

　　Next i

　　Close#1

　　End Sub

　　Private Sub Crod2 Click()

　　Dim j As Integer

　　Dim k As Integer

　　Dim l As Integer

　　Dim temp As Integer

　　For k=1 To 99

　　For l=k+1 To 100

　　If i(k)>i(1)Then temp=i(k)：i(k)=i(1)：i(1)=temp

　　Next i

　　Next k

　　Text1.Text=""

　　For j=1 To 100

　　Text1.Text=Text1.Text &i(j)&Space(5)

　　Next j

　　End Sub

　　⑤调试并运行程序。

　　⑥按题目要求存盘。

　　相关推荐：

　　2014计算机等级《二级VB》上机预测题及答案汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通知

　　考试吧推荐：2014年3月计算机二级考前冲刺备考专题