二级二级VB2011年3月全国计算机等级考试二级VB语言程序设计

试卷预览

• 31设窗体上有一个名为Listl的列表框，并编写下面的事件过程：Private Sub Listl_Click()Dim ch As Stringch=Listl.List(Listl.ListIndex)List1.RemoveItem List 1.ListIndex    -List1.AddItem chEndSub程序运行时，单击一个列表项，则产生的结果是（    ）。

  A.该列表项被移到列表的最前面

  B.该列表项被删除

  C.该列表项被移到列表的最后面

  D.该列表项被删除后又在原位置插入

  开始考试练习点击查看答案
• 32窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a As Integer, b As Integera = 8b = 12Print fun(a, b); a; bEnd SubPrivate Function Fun(ByVal a As Integer, b As Integer) As Integera = a Mod 5b = b 5Fun = aEnd Function程序运行时，单击命令按钮，则输出结果是（    ）。

  A.3 3 2

  B.3 8 2

  C.8 8 12

  D.3 8 12

  开始考试练习点击查看答案
• 33为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：Private Sub Command1_Click()Open "File1.txt" For Output As #20Do While Not EOF(20)Line Input #20, ch$Print chLoopClose #20End Sub程序调试时，发现有错误，下面的修改方案中正确的是（    ）。

  A.在Open语句中的文件名前添加路径

  B.把程序中各处的“20”改为“1”

  C.把Print ch语句改为Print # 20，ch

  D.把Open语句中的Output改为Input

  开始考试练习点击查看答案