1.結(jié)構(gòu)化程序設(shè)計(jì)的三種基本邏輯結(jié)構(gòu)為順序、選擇和【1】。
2.冒泡排序算法在的情況下的元素交換次數(shù)為【2】。
3.軟件結(jié)構(gòu)是以【3】為基礎(chǔ)而組成的一種控制層次結(jié)構(gòu)。
4.在面向?qū)ο蟮脑O(shè)計(jì)中，用來(lái)請(qǐng)求對(duì)象執(zhí)行某一處理或回答某些信息的要求稱(chēng)為【4】。
5.關(guān)系數(shù)據(jù)庫(kù)的關(guān)系演算語(yǔ)言是以【5】為基礎(chǔ)的DML語(yǔ)言。
6.要使工具欄控件的某按鈕呈按鈕菜單的樣式，可以在其屬性頁(yè)中設(shè)置其【6】選項(xiàng)為5-tbrDropDown。
7.在窗體上畫(huà)兩個(gè)文本框和一個(gè)命令按鈕，然后在代碼窗口中編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Text1.Text="VB Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序運(yùn)行后，單擊命令按鈕，兩個(gè)文本框中顯示的內(nèi)容分別為【7】和【8】。
8.下面的程序代碼實(shí)現(xiàn)將一個(gè)一維數(shù)組中元素向右循環(huán)移動(dòng)，移動(dòng)次數(shù)由文本框Text1輸入。例如數(shù)組各元素的值依次為0，1，2，3，4，5，6，7，8，9，10；移動(dòng)三次后，各元素的值依次為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.下面程序是用來(lái)打印九九乘法表的，請(qǐng)?zhí)羁铡?BR> 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.把一個(gè)磁盤(pán)文件的內(nèi)容讀到內(nèi)存并在文本框中顯示出來(lái)，然后把該文本框中的內(nèi)
容存入另一個(gè)磁盤(pán)文件，請(qǐng)?zhí)羁胀瓿沙绦颉?BR> 在窗體上建立一個(gè)文本框，在屬性窗口中把該文本框的MultiLine屬性設(shè)置為T(mén)rue，然后編
寫(xiě)如下的事件過(guò)程：
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】重復(fù)(或循環(huán))
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
2.冒泡排序算法在的情況下的元素交換次數(shù)為【2】。
3.軟件結(jié)構(gòu)是以【3】為基礎(chǔ)而組成的一種控制層次結(jié)構(gòu)。
4.在面向?qū)ο蟮脑O(shè)計(jì)中，用來(lái)請(qǐng)求對(duì)象執(zhí)行某一處理或回答某些信息的要求稱(chēng)為【4】。
5.關(guān)系數(shù)據(jù)庫(kù)的關(guān)系演算語(yǔ)言是以【5】為基礎(chǔ)的DML語(yǔ)言。
6.要使工具欄控件的某按鈕呈按鈕菜單的樣式，可以在其屬性頁(yè)中設(shè)置其【6】選項(xiàng)為5-tbrDropDown。
7.在窗體上畫(huà)兩個(gè)文本框和一個(gè)命令按鈕，然后在代碼窗口中編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Text1.Text="VB Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序運(yùn)行后，單擊命令按鈕，兩個(gè)文本框中顯示的內(nèi)容分別為【7】和【8】。
8.下面的程序代碼實(shí)現(xiàn)將一個(gè)一維數(shù)組中元素向右循環(huán)移動(dòng)，移動(dòng)次數(shù)由文本框Text1輸入。例如數(shù)組各元素的值依次為0，1，2，3，4，5，6，7，8，9，10；移動(dòng)三次后，各元素的值依次為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.下面程序是用來(lái)打印九九乘法表的，請(qǐng)?zhí)羁铡?BR> 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.把一個(gè)磁盤(pán)文件的內(nèi)容讀到內(nèi)存并在文本框中顯示出來(lái)，然后把該文本框中的內(nèi)
容存入另一個(gè)磁盤(pán)文件，請(qǐng)?zhí)羁胀瓿沙绦颉?BR> 在窗體上建立一個(gè)文本框，在屬性窗口中把該文本框的MultiLine屬性設(shè)置為T(mén)rue，然后編
寫(xiě)如下的事件過(guò)程：
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】重復(fù)(或循環(huán))
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