2012年3月全国计算机等级考试二级Visual Basic笔试试卷【答案＋解析版】

设窗体上有text1文本框和Command1命令按钮，并有以下程序：

Private Sub Command1_Click()

   Temp$=””

   For k=1 to len(text1)

       Ch$=mid(text1,k,1)

       If not found(temp,ch)then

           Temp=temp&【13】

       End If

   Next k

   Text1=【14】

End Sub

Private function found(str as string,ch as string)as Boolean

   For k=1 to len(str)

       If ch=mid(str,k,1)then

           Found=【15】

           Exit function

   Next k

   Found=false

End function

运行时，在文本框中输入 若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空

窗体上有list1、list2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限。如图b所示。下面的程序可实现这一功能，请填空。

Private Sub Command1_Click()

   If list1.text=””or list2.text””then

       Msgbox”请选择交换的物品！”

   Else

       List1.additem list2.text

       List2.removeitem【11】

       【12】

       List1.removeitem list1.listindex

   End If

End Sub

设窗体上有一个名称为label1的标签，程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在label1标签中，单击鼠标右键则停止实时显示，并将标签中内容清除，下面的程序可实现这一功能，请填空。

Dim down as Boolean

Private Sub form_mousedown(button as integer,shIft as integer,X as single, Y as single)

   Select Case【8】

   Case 1

       Down=true

   Case2

       Down=false

   End select

End Sub

Private Sub form. mousemove(button as integer,shIft as integer,X as single, Y as single)

   If 【9】then

       【10】=”X-” & X & ” Y-” & Y

   Else

        Label1.caption=””

   End If

End Sub

常见的软件工程方法有结构化方法和面向对象方法，类、继承以及多态性等概念属于【5】。

在将E-R图转换到关系模式时，实体和联系都可以表示成【4】

下面的事件过程执行时，可以把TXET1文本框中的内容写到文件“file1.txt”中去。请填空。

Prvate Sub Command1_Click()

   Open “file1.txt”for【6】as#1

   Print【7】,text1.txt

   Close #1

End Sub

数据库管理系统提供的数据语言中，负责数据的增、删、改和咨询的是【3】

设循环队列的存储空间为Q(1：30)，初始状态为front=rear=30。现经过一系列入队与退队运算后，front=16,rear=15。则循环队列中有【2】个元素。

在长度为n的顺序存储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为【1】

设有打开文件的语句如下：

Open “test.dat” for random as #1

要求把变量a中的数据保存到该文件中，应该使用的语句是