在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序Const n=5,m=4Dim a(m,n)Private Sub Command1_Click()K=1For i=1 To mFor j=1 To na(i,j)=kk=k+1Next jNext iPrivate Sub Command2_Click()Summ=0For i=1 To mFor j=1 To nIf i=1 Or i=m ThenSumm=summ+a(i,j)ElseIf j=I Or j=n ThenSumm=summ+a(i,j)End IfEnd IfNext jNext iPrint summEnd Sub过程Command1_Click()的作用是二维数组a 中存放1个 m行n列的矩阵；过程Command2_Click()的作用是(  )

试卷相关题目

• 1在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程Option Base 1Pribate Sub Command1_Click()Dim a(5.5) As IntegerFor i=1 To 5a(I,j)*510Next jNext iS=0For i=1 To 5S=s+a(i,i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是(  )

  A.15

  B.13

  C.11

  D.9

  开始考试点击查看答案
• 2在窗体上画1一个名称为Command1的命令按钮，并编写以下程序Private Sub Command1_Click()Print fun(“ABCDEFG”)End SubFunction fun(st As String) As Stringstlen=Len(st)temp=””For kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是(  )

  A.ABCDEFG

  B.AGBFCE

  C.GFEDCBA

  D.AGBFCED

  开始考试点击查看答案
• 3在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法算法1：Private Sub Command1_Click()CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As#1End Sub算法2：Private Sub Command1_Click()CommonDialog1.ShowOpenIfCommonDialog1.FileName<>””ThenOpen CommonDialog1.FileName For Input As#1End IfEnd Sub下面关于这两种算法的叙述中正确的是()

  A.显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会

  B.显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会

  C.两种算法的执行结果完全一样

  D.算法1允许输入的文件名中含有空格，而算法2不允许

  开始考试点击查看答案
• 4下面程序在调试时出现了死循环Private Sub Command1_Click()n=InputBox(“请输入一个整数”)DoIf n Mod 2=0 Thenn=n+1Elsen=n+2Else IfLoop Until n=1000End Sub下面关于死循环的叙述中正确的是(  )

  A.只有输入的n是偶数时才会出现死循环，否则不会

  B.只有输入的n是奇数时才会出现死循环，否则不会

  C.只有输入的n是大于1000的整数时才会出现死循环，否则不会

  D.输入任何整数都会出现死循环

  开始考试点击查看答案
• 5为计算1+3+5+……+99的值，某人编程如下k=1s=0While k<=99k=k+2 : s=s+kWendPrint s在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是(  )

  A.While …Wend循环语句错误，应改为For k=1 To 99 …Next k

  B.循环条件错误，应改为Whlie k<99

  C.循环前的赋值语句k=1错误，应改为k=0

  D.循环中两条赋值语句的顺序错误，应改为s=s+k : k=k+2

  开始考试点击查看答案