设工程中有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，程序需要修改。下面修改方案中正确的是（　　）。

试卷相关题目

• 1下列叙述中正确的是（　）。

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

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

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

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

  开始考试点击查看答案
• 2假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为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

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

  A.Caption

  B.Alignment

  C.BackStyle

  D.AuwSize

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

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

  B.函数过程一定有参数

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

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

  开始考试点击查看答案
• 5设有如下程序：Private Sub Form Click（　　）Dim s As Long，f As LongDim n As Integer，i As Integerf=1n=4For i=1 To nf=f*is=s+fNext iPrint sEnd Sub程序运行后，单击窗体，输出结果是（　　）。

  A.32

  B.33

  C.34

  D.35

  开始考试点击查看答案
• 6在窗体上画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（　　）的作用是（　　）。

  A.计算矩阵外围一圈元素的累加和

  B.计算矩阵除外围一圈以外的所有元素的累加和

  C.计算矩阵第1列和最后一列元素的累加和

  D.计算矩阵第1行和最后一行元素的累加和

  开始考试点击查看答案
• 7窗体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、、、

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

  A.工程资源管理器窗口

  B.属性窗口

  C.工具箱窗口

  D.代码窗口

  开始考试点击查看答案
• 9有如下过程代码：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

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

  A.队列

  B.栈

  C.双向链表

  D.二叉树

  开始考试点击查看答案