填空题

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

答案：模块

你可能感兴趣的试题

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

答案：循环(或重复)

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

答案： 0

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

答案：谓词演算

用户可以用【6】语句定义自己的数据类型。

答案： Type

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

答案：模块

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

答案：消息

下面程序是用来打印九九乘法表的，请填空。
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(ij))
Else
str1＝str1 & Chf(13)
Exit For
End If
Next j
Next i
Print str1
End Sub

答案： [11] flag＝i
[12] j＜flag

在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text1. Text＝"VB Programming"
Text2. Text＝Text1. Text
Text1. Text＝"ABCD"
End Sub
程序运行后，单击命令按钮，两个文本框中显示的内容分别为【7】和【8】。

答案： [7] ABCD
[8] VB Programming

把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。
在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程：
Prlvate 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

答案： [AC] Line Input #A,aspect$
[AD] Whole $
[AE] T...

下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框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] LBound(x)+1
[10] x(k)＝x(k-1)