2015年4月计算机等级二级VB笔试练习习题（5）
发布时间：2009/11/22 10:11:10 来源：城市学习网 编辑：城市总裁吧
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.下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Textl输入。例如数组各元素的值依次为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，Examda提示:然后编写如下的事件过程：
Private Sub Form_Click()
Open癉：＼ 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＜Flag
10.【13】Line Input # 1,aspect＄
【14】Whole＄
【15】Text1.text
