1.結構化程序設計的三種基本邏輯結構為順序、選擇和【1】。
2.冒泡排序算法在的情況下的元素交換次數(shù)為【2】。
3.軟件結構是以【3】為基礎而組成的一種控制層次結構。
4.在面向對象的設計中,用來請求對象執(zhí)行某一處理或回答某些信息的要求稱為【4】。
5.關系數(shù)據(jù)庫的關系演算語言是以【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.下面的程序代碼實現(xiàn)將一個一維數(shù)組中元素向右循環(huán)移動,移動次數(shù)由文本框Text1輸入。例如數(shù)組各元素的值依次為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.下面程序是用來打印九九乘法表的,請?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.把一個磁盤文件的內容讀到內存并在文本框中顯示出來,然后把該文本框中的內
容存入另一個磁盤文件,請?zhí)羁胀瓿沙绦颉?BR> 在窗體上建立一個文本框,在屬性窗口中把該文本框的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】重復(或循環(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.軟件結構是以【3】為基礎而組成的一種控制層次結構。
4.在面向對象的設計中,用來請求對象執(zhí)行某一處理或回答某些信息的要求稱為【4】。
5.關系數(shù)據(jù)庫的關系演算語言是以【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.下面的程序代碼實現(xiàn)將一個一維數(shù)組中元素向右循環(huán)移動,移動次數(shù)由文本框Text1輸入。例如數(shù)組各元素的值依次為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.下面程序是用來打印九九乘法表的,請?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.把一個磁盤文件的內容讀到內存并在文本框中顯示出來,然后把該文本框中的內
容存入另一個磁盤文件,請?zhí)羁胀瓿沙绦颉?BR> 在窗體上建立一個文本框,在屬性窗口中把該文本框的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】重復(或循環(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