A.menu1.Enabled=True B.Munu1.Enabled=False C.Menu1.Visible=True D.Menu1.Visible=False
在窗體上畫一個(gè)命令按鈕,名稱為Command1。程序運(yùn)行后,如果單擊命令按鈕,則顯示一個(gè)輸入對(duì)話框,在該對(duì)話框中輸入一個(gè)整數(shù),并用這個(gè)整數(shù)作為實(shí)參調(diào)用函數(shù)過(guò)程F1。對(duì)下面程序說(shuō)法正確的是() Private Sub Command1_Click() x=InputBox("請(qǐng)輸入整數(shù)")a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
A.在F1中判斷所輸入的整數(shù)是否是奇數(shù),如果是奇數(shù),過(guò)程F1返回1,否則返回0 B.在F1中判斷所輸入的整數(shù)是否是奇數(shù),如果是奇數(shù),過(guò)程F1返回0,否則返回1 C.在F1中判斷所輸入的整數(shù)是否是偶數(shù),如果是偶數(shù),過(guò)程F1返回1,否則返回0 D.在F1中判斷所輸入的整數(shù)是否是偶數(shù),如果是偶數(shù),過(guò)程F1返回0,否則返回1
設(shè)有如下程序: Private Sub Command1_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For I=0 To 3 Print a(5-I); Next I End Sub 程序運(yùn)行后,單擊窗體,則在窗體上顯示的是()
A.4321 B.5432 C.6543 D.7654