若在某窗体模块中有如下事件过程(  )Private Sub Command1_Click(Index AS Integer)……End Sub则以下叙述中正确的是

试卷相关题目

• 1工程中有2个窗体,名称分别为Form1.Form2,Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是(  )

  A.Private Sub Command1_Click( )Form2.ShowEnd Sub

  B.Private Sub Command1_Click( )Form2.VisibleEnd Sub

  C.Private Sub Command1_Click( )Load Form2End Sub

  D.Private Sub Command1_Click( )Form2.LoadEnd Sub

  开始考试点击查看答案
• 2设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是(  )

  A.Combo1.RemoveItem Combo1.Text

  B.Combo1.RemoveItem4

  C.Combo1.RemoveItem Combo1.ListCount

  D.Combo1.RemoveItem5

  开始考试点击查看答案
• 3若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是(  )

  A.8个”$”

  B.1个”$”

  C.8个”*”

  D.无任何内容

  开始考试点击查看答案
• 41个二维数组可以存放1个矩形.在程序开始有语句Option Base 0,则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是(  )

  A.Dim a(-2 To 0,2) AS Integer

  B.Dim a(3,2) AS Ingeger

  C.Dim a(4,3)AS Ingeger

  D.Dim a(-1 To -4,-1 To -3)AS Ingeger

  开始考试点击查看答案
• 5设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是(  )

  A.窗体的Click事件过程的过程名是Myform_Click

  B.命令按钮的Click事件过程名是C1_Click

  C.命令按钮的Click事件过程的过程名是Command1_Click

  D.上述三种过程名称都是错误的

  开始考试点击查看答案
• 6以下循环语句中在任何情况下都至少执行一次循环体的是(  )

  A.Do While <条件>循环体Loop

  B.While <条件>循环体Wend

  C.Do循环体Loop Until <条件>

  D.Do Until <条件>循环体Loop

  开始考试点击查看答案
• 7在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是(  )

  A.Cd1.Action=2

  B.Cd1.Action=1

  C.Cd1.ShowSave=Ture

  D.Cd1.ShowSave=0

  开始考试点击查看答案
• 8下面关于菜单的叙述中错误的是(  )

  A.各级菜单中的所有菜单项的名称必须唯一

  B.同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同

  C.弹出式菜单用Popupmenu方法弹出

  D.弹出式菜单也用菜单编辑器编辑

  开始考试点击查看答案
• 9已知有下面的过程(  )Private Sub proc1(a As Integer,b As String,Optional x As Boolean)……End Sub正确调用此过程的语句是

  A.Call procl(5)

  B.Call proc1 5,”abc”,False

  C.proc1(12,”abc”,True)

  D.proc1 5, “abc”

  开始考试点击查看答案
• 10在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是(  )

  A.Private Sub Command1_Click()Text1.Left=100End Sub

  B.Private Sub Command1_Click()Text1.Left= Text1.Left-100End Sub

  C.Private Sub Command1_Click()Text1.Move.Text.Left+100End Sub

  D.Private Sub Command1_Click()Text1.Mov

  E.Text.LeftEnd Sub

  开始考试点击查看答案