BR> 过程Command1_Click()的作用是二维数组a 中存放1个 m行n列的矩阵；过程Command2_Click()的作用是(A)
A) 计算矩阵外围一圈元素的累加和
B) 计算矩阵除外一圈以外的所有元素的累加和
C) 计算矩阵第1列和最后一列元素的累加和
D) 计算矩阵第1行和最后一行元素的累加和二、填空题（每空2分，共30分）
请将每一个空的正确答案写在答题纸上[1]~[15]序号的横线上，答在试卷上，答在试卷上不得分，
注意：以命令关键字填空的必须写完整
（1） 在深度为7的满二叉树中，度为2的结点个数为___63_____。
（2） 软件测试分为白箱（盒）测试和黑箱（盒）测试，等价类划分法属于__黑箱（或黑盒） 测试。
（3） 在数据库系统中，实现各种数据管理功能的核心软件称为 数据库管理系统(DBMS)_____。
（4） 软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于 开发_____阶段。
（5）在结构化分析使用的数据流图（DFD）中，利用 数据字典 对其中的图形元素进行确切解释。
（6）1+ + + +…….n 最大的n。请填空
Private Sub Command1__Click()
Dim s ,m,n AS Integer
m=Val(InputBox(“请输入一个大于100的整数”))
n= 0
s=0
Do While s N=n+1
S=s+n*n
Loop
Print “满足不等式的最大n是 n-1
End Sub
(7)下面程序的功能是把文件file11.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 #2
n=LOF( 1 )
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
If InStr(outchar,temp)= 0 Then
outchar=outchar & temp
End If
Next k
print #2, outchar
close #2
close #1
End Sub
(8)在窗体上先画1个名为Text1的文本框和平个名为Label1的标签,再画1个名为OP1的有4个单选按钮数组,其Index属性按季度顺序为0∽3(见图1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击1个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击“第3季度”单选按钮产生的结果。请填空。
Dim sales(12) As Long
Private Sub Form__Load()
open “sales.txt” For Input AS #1
For k=1 To 12
Input #1,sales(k)
Next k
Close #1
End Sub
Private Sub Op1_Click (Index, AS Integer)
Dim sum AS Long ,k AS Ingeger,month AS Ingeger
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页
责任编辑：小草
