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

　　四、综合应用题

　　本题重点考查二重For循环和二维数组的使用。根据题意，将两个文本框控件和两个标签控件添加到窗体中，文本框的名称分别为Text1和Text2、Text属性都为空，Text1的MultiLine属性为True、ScrollBar

　　属性为2、标签的Caption属性分别为“矩阵如下：”和“矩阵的右上半部：”。设置完成后，双击Form进入代码编写窗口，在其DblClick事件中补充如下代码：

　　Private Sub Form_DblClick()

　　Dim str As String

　　Dim tmp As String

　　Dim i As Integer

　　Dimj As Integer

　　Dim Arr(5，5)As Integer’定义二维数组

　　str=""

　　Open"App.Path&\in5.txt"For Input As#1’打开文件准备读取

　　For i=1 To 5 ’第一层For循环代表数组的行读取

　　For j=1 To 5

　　’第二层For循环代表数组的列读取

　　Input#1，Arr(i，j)

　　’将读取到的数放入数组中

　　str=str+CStr(Arr(i，j))+""

　　’将数组写入字符串中

　　Next j

　　str=str+vbCrLf

　　’每读完一行则添加换行字符串

　　Next i

　　Close#1’关闭文件

　　tmp=""

　　For i=1 To 5

　　’For循环读取数组对角线的右上部分

　　For j=1 To 5

　　If j<=i Then ’当该数是矩阵的左下部分时

　　tmp=tmp+""+"" ’加入空格

　　Else’当该数是矩阵的右上部分时

　　tmp=tmp+CStr(Arr(i，j))+""

　　’将读取到的数据写入字符串

　　End If

　　Next j

　　tmp=tmp+vbCrLf

　　Next i

　　Text1.Text =str’在Text1中显示数组

　　Text2.Text=trap ’在Text2中显示数组右上部分

　　End Sub

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

　　相关推荐：

　　2014年计算机等级考试时间调整通知

　　2014年全国计算机二级VB上机考试试题汇总

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

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