您所在位置：主题：等考二级VB笔试考前练习（三）
xtpwwk
[专家分：0] 发布于 2009-06-29 12:37:00
http://www.educity.cn 作者：pc 来源：希赛教育
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＜Flag
10.【13】Line Input # 1,aspect＄ 【14】Whole＄ 【15】Text1.text
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＜Flag
10.【13】Line Input # 1,aspect＄ 【14】Whole＄ 【15】Text1.text