Ifj=l Orj=n Then a(1,D) End If End If Next i Print summ End Sub 过程 Command 1 Click()的作用是在二维数组a中存放1个m行n列的矩阵;过程 Command2 Click()的作用是()。 A)计算矩阵外围一圈元素的累加和 B)计算矩阵除外围一圈以外的所有元素的累加和 C)计算矩阵第1列和最后一列元素的累加和 D)计算矩阵第1行和最后一行元素的累加和 二、填空题(每空2分,共30分) (1)在深度为7的满二叉树中,度为2的结点个数为【1】。 (2)软件测试分为白箱(盒)测试和黑箱(盒)测试。等价类划分法属于【2】测试 (3)在数据库系统中,实现各种数据管理功能的核心软件称为【3】 (4)软件生命周期可分为多个阶段,一般分为定义阶段、开发阶段和维护阶段。编码和测 试属于【4】阶段。 (5)在结构化分析使用的数据流图(DFD中,利用【5】对其中的图形元素进行确切解释。 (6)下列程序的功能是从键盘输入1个大于100的整数m,计算并输出满足不等式 1+2+32+42+.+n2<m的最大的n。请填空 Private Sub Commandl Click() im s, m, n As Integer m=Val( InputBox("请输入一个大于100的整数") 【6】 Do While s<m s=s+n率n Print"满足不等式的最大n是";【7】 End Sub (7)下列程序的功能是把文件 filel. txt中重复字符去掉后(即若有多个字符相同,则只保留 1个)写入文件fle2tt。请填空 Private Sub Commandl Click( D outchar=“ Open"file2txt" For Output As【8】 n=LOF(【9】) nchar=InputS(n, 1) 二级 Visual basic语言程序设计试卷第9页(共11页)二级 Visual Basic 语言程序设计试卷 第 9 页（共 11 页） If j = 1 Or j = n Then summ = summ + a(i, j) End If End If Next j Next i Print summ End Sub 过程 Command1_Click( )的作用是在二维数组 a 中存放 1 个 m 行 n 列的矩阵；过程 Command2_Click( )的作用是（ ）。 A）计算矩阵外围一圈元素的累加和 B）计算矩阵除外围一圈以外的所有元素的累加和 C）计算矩阵第 1 列和最后一列元素的累加和 D）计算矩阵第 1 行和最后一行元素的累加和 二、填空题（每空 2 分，共 30 分） （1）在深度为 7 的满二叉树中，度为 2 的结点个数为 【1】 。 （2）软件测试分为白箱（盒）测试和黑箱（盒）测试。等价类划分法属于 【2】 测试。 （3）在数据库系统中，实现各种数据管理功能的核心软件称为 【3】 。 （4）软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测 试属于 【4】 阶段。 （5）在结构化分析使用的数据流图(DFD)中，利用 【5】 对其中的图形元素进行确切解释。 （6）下列程序的功能是从键盘输入 1 个大于 100 的整数 m，计算并输出满足不等式 1+22 +32 +42 +…+n2 <m 的最大的 n。请填空。 Private Sub Command1_Click( ) Dim s,m,n As Integer m=Val(InputBox("请输入一个大于 100 的整数")) n= 【6】 s=0 Do While s<m n=n+1 s=s+n*n Loop Print "满足不等式的最大 n 是"; 【7】 End Sub （7）下列程序的功能是把文件 filel.txt 中重复字符去掉后（即若有多个字符相同，则只保留 1 个）写入文件 file2.txt。请填空。 Private Sub Command1_Click( ) Dim inchar As String, temp As String, outchar As String outchar=“ “ Open "file1.txt" For Input As #1 Open "file2.txt" For Output As 【8】 n=LOF( 【9】 ) inchar=Input$(n,1)