2009年上半年等级考试二级VB笔试精选试题(2)

　　1.结构化程序设计的三种基本逻辑结构为顺序、选择和【1】。

　　2.冒泡排序算法在最好的情况下的元素交换次数为【2】。

　　3.软件结构是以【3】为基础而组成的一种控制层次结构。

　　4.在面向对象的设计中，用来请求对象执行某一处理或回答某些信息的要求称为【4】。

　　5.关系数据库的关系演算语言是以【5】为基础的DML语言。

　　6.要使工具栏控件的某按钮呈按钮菜单的样式，可以在其属性页中设置其【6】选项为5-tbrDropDown。

　　7.在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：

　　Private Sub Command1_Click()

　　Text1.Text="VB Programming"

　　Text2.Text=Text1.Text

　　Text1.Text="ABCD"

　　End Sub

　　程序运行后，单击命令按钮，两个文本框中显示的内容分别为【7】和【8】。

　　8.下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10;移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。

　　Private Sub MoveRight(x()As Integer)

　　Dim i As Integer

　　Dim j As Integer

　　Dim k As Integer

　　i=UBound(x)

　　j=x(i)

　　For k=i To【9】Step-1

　　【10】

　　Next k

　　x(LBound(x))=j

　　End Sub

　　Private Sub Command1_Click()

　　Dim a(10) As Integer

　　Dim i As Integer

　　Dim j As Integer

　　Dim k As Integer

　　For i=0 To 10

　　a(i)=i

　　Next i

　　j=Val(Text1.Text)

　　k=0

　　Do

　　k=k+1

　　Call MoveRight(a)

　　Loop Until k=j

　　For i=0 To 10

　　Print a(i);

　　Next i

　　End Sub

　　9.下面程序是用来打印九九乘法表的，请填空。

　　Private Sub Form_Click()

　　Dim flag As Integer,i As Integer,j As Integer,Str1 $

　　Str1=“”

　　For i=1 To 9

　　【11】

　　For j=1 To 9

　　If 【12】Then

　　str1=str1+Str$(j)+“*”+Str$(i)+“=”+Str$(Val(i*j))

　　Else

　　str1=str1 & Chr(13)

　　Exit For

　　End If

　　Next j

　　Next i

　　Print str1

　　End Sub

　　10.把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。

　　在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

　　Private Sub Form_Click()

　　Open“D：\ test1.txt”For Input As # 1

　　Text1.FontSize=14

　　Text1.FontName=“幼圆”

　　Do While Not EOF(1)

　　【13】

　　whole$=whole$+aspect$+Chr$(13)+Chr$(10)

　　Loop

　　Text1.Text=【14】

　　Close

　　Open“D：\ test2.txt”For Output As # 1

　　Print # 1,【15】

　　Close

　　End Sub

　　答案：

　　1.【1】重复(或循环)

　　2.【2】0

　　3.【3】模块

　　4.【4】消息

　　5.【5】谓词演算

　　6.【6】样式

　　7.【7】ABCD 【8】VB Programming

　　8.【9】LBound(x)+1 【10】x(k)=x(k-1)

　　9.【11】Flag=i 【12】j

　　10.【13】Line Input # 1,aspect$ 【14】Whole$ 【15】Text1.text