(29) 有如下事件過程:
Function UNC (ByVal x As Integer, ByVal y As Integer) As Integer
Do While y <> 0
sic=x / y
x=y
y=sic
Loop
UNC=x
End Function
以下是該函數(shù)的調(diào)用過程,該程序的運行結(jié)果是
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=12
b=2
x=UNC (a, b)
Print x
End Sub
A) 0
B) 6
C) 2
D) 80
【命題目的】考查考生對函數(shù)的定義和調(diào)用的運用。
【解題要點】本題考查函數(shù)調(diào)用和輸出格式的語句。調(diào)用UNC的過程如下:
x=12,y=2時,sic=6,x=2,y=6;
x=2,y=6時,sic=0,x=6,y=0;
y=0,所以跳出循環(huán),輸出x=6并結(jié)束程序。
【考點鏈接】過程的定義和調(diào)用。
相關(guān)推薦:
在VB中利用遠程數(shù)據(jù)庫的訪問之應(yīng)用舉例 VB中利用遠程數(shù)據(jù)庫的訪問之數(shù)據(jù)處理案例