2014年3月计算机二级考试VF临考预测试卷及答案7

　　四、综合应用题

　　根据题意，将两个Text控件和两个Command控件添加到窗体上，Text的名称分别为Text1和Text2、Text属性都为空，其中Text1的MultiLine属性为True、ScrollBar属性为2，Command的名称分别为Com mand1和Command2、Caption属性分别为“读入数据”和“计算保存”。双击Command1命令按钮进入代码窗口，编写如下代码：

　　Dim a(50)As Long’全局变量

　　Prival e Sub Command1_Click()

　　Text1.Text=""

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

　　’打开“in.txt”文件

　　Dim i As Integer

　　Dim temp As Integer

　　For i=1 To 50

　　Iuput#1，temp

　　a(i)=temp ’按顺序读入到数组中

　　Next i

　　For i=1 To 50

　　Text1.Text=Text1.Text+CStr(a(i))4-vbCrLf’将数组中的数放入Text中显示

　　Next i

　　Close#1

　　End Sub

　　Private Sub Command2 Click()

　　Dim i As Integer

　　Dim j As Integer

　　Dim k As Integer

　　Dim temp As Integer

　　For i=1 T0 50’升序序排列

　　temp=a(i)

　　For i=1 To i

　　If a(j)>temp Then

　　’读取的数据比原位置的数据大则偏移

　　For k=To j+1 Step-1

　　a(k)=a(k-1) ’数据向后偏移一个

　　Next k

　　a(j)=te rnp

　　Exit For

　　End If

　　Next j

　　Next i

　　Dim total1 As Long

　　Dim total2 As Long

　　total1=0

　　total2=0

　　For i=1 T0 25

　　total1=total1+a(i) ’计算前25个数据的和

　　Next i

　　For i=26 To 50

　　total2=total2+a(i) ’计算后25个数据的和

　　Next i

　　Text2.Text=total1-total2

　　Writedata(total1-total2)

　　End Sub

　　单击 按钮运行程序，并按要求保存。

　　相关推荐：

　　2014年全国计算机二级考试VF上机冲刺试卷汇总

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

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