发布时间 : 星期二 文章VB二级试题更新完毕开始阅读ae858e2acfc789eb172dc880
End If End If End Sub
D) Private Sub Text1__KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then ?回车符的ACSII码是13 a=Val(Text1)
If a>=0 And a<=100 Then Text2.SetFocus Else
Text1. SetFocus ; MsgBox(“分数错”) End If End If End Sub
(35)在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序 Const n=5,m=4 Dim a(m,n)
Private Sub Command1_Click() K=1 For i=1 To m For j=1 To n a(i,j)=k k=k+1 Next j Next i
Private Sub Command2_Click() Summ=0 For i=1 To m For j=1 To n
If i=1 Or i=m Then Summ=summ+a(i,j) Else
If j=I 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) 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
sum=0
month=Index* 3 For k=1 To 3 month=month+1 sum=sum+sales(month) Next k
Label1.Caption=Opl(Index). Caption & “销售总额：”