计算机vb二级考试经典课件.pptVIP

22 若在某窗体模块中有如下事件过程（2007年4月考题） Private Sub Command1_Click(index as integer) ………… End Sub 则以下叙述中正确的是 A）此事件过程与不带参数的事件过程没有区别 B）有1个名称为command1的窗体，单击此窗体则执行此事件过程 C）有1个名称为command1的控件数组，数组中有多个不同类型控件 D）有1个名称为command1的控件数组，数组中有多个相同类型控件 D 23 在窗体上画1个名称为command1的命令按钮，然后编写如下事件过程（2007年4月考题） Option Base 1 Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = (i + j) * 5 \ 10 Next j Next i s = 0 For i = 1 To 5 s = s + a(i, i) Next i Print s End Sub 程序运行后，单击命令按钮，输出结果是 A）15 B）13 C）11 D）9 A 24 在窗体上画2个命令按钮，名称分别为Command1，Command2, 并编写如下程序（2007年4月考题） 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 End Sub 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 = 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行和最后一行元素的累加和 A 25、以下数组定义语句中,错误的是 (2008年4月考题) A)static a(10) as integer B) dim c(3, 0 to 4) C)dim d(-10) d) dim b(0 to 5, 1 to 3) as integer 26、 已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分，某人写程序如下： (2008年4月考题) C Option Base 1 Private Sub Command1-Click() Dim sum As lnteger Sum=0 For i=1 to 4 For j=1 to 3 Snm=sum+seore(i,j) Next j Print”第”i”个学生的总分是：“；sum Next i End Sub 运行此程序时发现，除第一个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是 A）把外层循环语句fori=1 to 4改为fori=1 to 3,内层循环语句forj=1 to 3改为forj=1 to 4 B）把sum=0移到for i=1 to 4和for j=1 to 3之间 C）把sum=sum+scorc(i,j)改为sum=sum+score(j,i) D）把sum=sum+score(i,j)改为sum=score(I,j) B Sum=0 二、填空题 1、在窗体上画一个命令按钮（其name属性为Command1），然后编写如下代码： Private sub command1_Click( ) Dim M(10) as integer For k=1 to 10 M(k)=12-k Next k X=6