以下叙述中错误的是（    ）。

试卷相关题目

• 1以下关于菜单的叙述中，错误的是（    ）。

  A.当窗体为活动窗体时，用Ctrl+E键可以打开菜单编辑器

  B.把菜单项的Enabled属性设置为False，则可删除该菜单项

  C.弹出式菜单在菜单编辑器中设计

  D.程序运行时，利用控件数组可以实现菜单项的增加或减少

  开始考试点击查看答案
• 2设有以下程序：Private  Sub  Form_Click()x=50For i=1 To 4y=InputBox("请输入一个整数")y=Val(y)If y Mod 5 = 0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（    ）。

  A.100

  B.50

  C.120

  D.70

  开始考试点击查看答案
• 3在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Textl），并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load()ShowTextl.Text=""Textl.SetFocusEnd SubPrivate Sub Command1_Click()Textl.Text=LCase (SaveAll) +SaveAl1End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为（    ）。

  A.vbVB

  B.不显示任何信息

  C.VB

  D.出错

  开始考试点击查看答案
• 4设有如下通用过程：Public Function Fun (xStr As String) As StringDim tStr As String, strL As IntegertStr=""strL=Len (xStr)i=strL/2Do While i<=StrLtStr=tStr &amp; Mid (xStr,i+1,1)i=i+1LoopFun=tStr &amp; tStrEnd Function在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim S1 As StringS1="ABCDEF"Textl.Text=LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是（    ）。

  A.ABCDEF

  B.abcdef

  C.defdef

  D.defabc

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

  A.过程的参数可以是控件名称

  B.调用过程时使用的实参的个数应与过程形参的个数相同

  C.只有函数过程能够将过程中处理的信息返回到调用程序中

  D.窗体可以作为过程的参数

  开始考试点击查看答案
• 6设在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String * 10TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（    ）。

  A.Private Sub Command1_Click()Dim B AS BooksOpen "Person.txt" For Output As #1B．Name=InputBox ("输入姓名")B．TelNum=InputBox ("输入电话号码")Write #1,

  B.Name, B.TelNumClose #1End SubB.Private Sub Command1_Click()Dim B As BooksOpen "Person.txt" For Input As #1B．Name=InputBox ("输入姓名")B．TelNum=InputBox ("输入电话号码")Print #1, B.Name, B.TelNureClose #1End Sub

  C.Private Sub Command1_Click()Dim B AS BooksOpen "Person.txt" For Output As #1B．Name=InputBox ("输入姓名")B．TelNum=InputBox ("输入电话号码")Write #1, BClose #1End Sub

  D.Private Sub Command1_Click()Open "Person.txt" For Input As #1Name=InputBox ("输入姓名")TelNum=InputBox ("输入电话号码")Print #1, Name, TelNumClose #1End Sub

  开始考试点击查看答案