在窗体上画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 iEnd SubPrivate 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=1 Or j=n Thensumm=summ+a(i，j)End IfEnd IfNext jNext iPrint summEnd Sub过程Command1_Click（　　）的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2 Click（　　）的作用是（　　）。

试卷相关题目

• 1设工程中有2个窗体：Form1、Form2、Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输人口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此．某人在Form1窗体文件中编写如下程序：Private Sub Text 1 KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf Text1．Text="Teacher"ThenForm2．input．Visible=TrueElseForm2．input．Visible FalseEnd IfEnd IfForml．HideForm2．ShowEnd Sub菜单结构<table border="0" cellspacing="0" cellpadding="0" _dj="MsoNormalTable"><tbody><tr><td valign="top" width="80">标题 </td><td valign="top" width="61">名称 </td><td valign="top" width="60">级别 </td></tr><tr><td valign="top" width="80">成绩管理 </td><td valign="top" width="61">mark </td><td valign="top" width="60">1 </td></tr><tr><td valign="top" width="80">成绩查询 </td><td valign="top" width="61">query </td><td valign="top" width="60">2 </td></tr><tr><td valign="top" width="80">成绩录入 </td><td valign="top" width="61">mput </td><td valign="top" width="60">3 </td></tr></tbody></table>程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是（　　）。

  A.把Form1中Text1文本框及相关程序放到Form2窗体中

  B.把Form1．Hide、Form2．Show两行移动2个End If之间

  C.把If KeyAscii=13 Then改为If KeyAseii="Teacher"Then

  D.把2个Form2 input．Visible中的“Form2．”删去

  开始考试点击查看答案
• 2下列叙述中正确的是（　）。

  A.栈是“先进先出”的线性表

  B.队列是“先进后出”的线性表

  C.循环队列是非线性结构

  D.有序线性表既可以采用顺序存储结构，也可以采用链式存储结构

  开始考试点击查看答案
• 3假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为al，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是（　　）。

  A.Private Sub Form_MouseDown(Button As Integer，_Shift As Integer，X As Single，Y As Single)If Button=1 And Blltton=2ThenPopupMenu a1End IfEnd Sub

  B.Private Stlb Form_MouseDown(Button As Integer，_Shift As Integer，X As Single，Y As Single)PopupMenu a1End Sub

  C.Private Sub Form—MouseDown(Button As Integer，_Shift As Integer，X As Single，Y As Single)If Button=1 ThenPopupMenu a1End IfEnd Sub

  D.Private Sub Form MouseDown(Button As Integer，_Shift As Integer，X As Single，Y As Single)If Buttcn=2 ThenPopupMenu a1End IfEnd Sub

  开始考试点击查看答案
• 4为了使标签具有“透明”的显示效果，需要设置的属性是（　　）。

  A.Caption

  B.Alignment

  C.BackStyle

  D.AuwSize

  开始考试点击查看答案
• 5以下关于函数过程的叙述中错误的是（　）。

  A.函数过程一定有返回值

  B.函数过程一定有参数

  C.函数过程可以在窗体模块和标准模块中定义

  D.函数过程参数的类型与返回值的类型无关

  开始考试点击查看答案
• 6窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（　　）。

  A.Private Sub Form1 Click（　　）End Sub、、、

  B.Private Sub Form Cliok（　　）End Sub、、、

  C.Private Sub Command1 click（　　）End Sub、、、

  D.Private Sub Command Click（　　）End Sub、、、

  开始考试点击查看答案
• 7在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是（　　）。

  A.工程资源管理器窗口

  B.属性窗口

  C.工具箱窗口

  D.代码窗口

  开始考试点击查看答案
• 8有如下过程代码：Sub var_dim（　　）static numa As IntegerDim numb As Integernuma=numa+2．numb=numb+1print numa；mubEnd Sub连续3次调剧var_dim过程，第3次调用时的输出是（　　）。

  A.2 1

  B.2 3

  C.6 1

  D.6 3

  开始考试点击查看答案
• 9按照“后进先出”原则组织数据的数据结构是（　　）。

  A.队列

  B.栈

  C.双向链表

  D.二叉树

  开始考试点击查看答案
• 10以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是（　　）。

  A.KeyAscii参数是所按键的ASCII码

  B.KeyAscii参数的数据类型为字符串

  C.KeyAscli参数可以省略

  D.KeyAscii参数是所按键上标注的字符

  开始考试点击查看答案