在窗體上畫(huà)一個(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
在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下程序:
Private Sub Command1_Click()
Dim I As Integer,j As Integer
Dim a(10,10)As Integer
For I=1 To 3
For j=1 To 3
a(I,j)=(I-1)*3+j
Print a(I,j);
Next j
Print
Next i
End Sub
程序運(yùn)行后,單擊命令按鈕,窗體上顯示的是()。(其中CR表示回車和換行)
A.1 2 3 CR 3 4 5 CR 5 6 7 CR
B.2 3 4 CR 4 5 6 CR 7 8 9 CR
C.1 4 7 CR 4 5 8 CR 9 10 11 CR
D.1 2 3 CR 4 5 6 CR 7 8 9 CR
在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下事件過(guò)程:
Private Sub Command1_Click()
Dim array1(10,10)As Integer
Dim I,j As Integer
For I=1 To 3
For j=2 To 4
array1(I,j)=I+j
Next j
Next I
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序運(yùn)行后,單擊命令按鈕,在文本框中顯示的值是()
A.12
B.13
C.14
D.15
在窗體上畫(huà)一個(gè)名稱為T(mén)ext1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下事件過(guò)程:
Private Sub Command1_Click()
Dim c As Integer,n As Integer
For c=0 To 50
c=c+3
n=n+1
Ifc>10Then Exit For
Next c
Text1.Text=Str(n)
End Sub
程序運(yùn)行后,單擊命令按鈕,在文本框中顯示的值是()
A.2
B.3
C.4
D.5
在窗體上畫(huà)兩個(gè)名稱分別為T(mén)ext1、Texte2的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫(xiě)如下事件過(guò)程:
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
DoWhilex<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序運(yùn)行后,單擊命令按鈕,在兩個(gè)文本框中顯示的值分別是()
A.15和1
B.27和3
C.195和3
D.600和4
最新試題
邏輯運(yùn)算符從高到低順序?yàn)椋ǎ?、()、()、Xor、Eqv、Imp。
在聲明一個(gè)變量后,VB會(huì)自動(dòng)將數(shù)值型的變量賦初值為(),將字符串或Variant數(shù)據(jù)類型的變量賦初值為(),將布爾型賦初值為(),將日期型的變量賦初值為00:00:00。
在VB中,錯(cuò)誤信息一般使用()對(duì)象獲得,它的常用()屬性存儲(chǔ)當(dāng)前錯(cuò)誤的編號(hào),()屬性存儲(chǔ)當(dāng)前錯(cuò)誤的描述。
當(dāng)重新分配動(dòng)態(tài)數(shù)組的內(nèi)容時(shí),數(shù)組中的內(nèi)容將被清除,如果在redim語(yǔ)句使用了(),則會(huì)保留數(shù)組中的內(nèi)容。
當(dāng)使用Array函數(shù)給數(shù)組賦初值時(shí),數(shù)組變量只能是()數(shù)據(jù)類型,只適用于一維數(shù)組。
()和()函數(shù)分別返回一個(gè)數(shù)組中指定維數(shù)的下標(biāo)下界和下標(biāo)上界值。
如果希望在過(guò)程結(jié)束之后還能保持過(guò)程中局部變量的值,則應(yīng)該使用()來(lái)聲明為靜態(tài)變量。
在VB中,可以使用()語(yǔ)句來(lái)調(diào)用過(guò)程。
()函數(shù)用于計(jì)算表達(dá)式的值并據(jù)此返回兩個(gè)值中的一個(gè)。
如果想要將對(duì)象引用賦給變量或?qū)傩?,則不能使用賦值語(yǔ)句,而必須使用()語(yǔ)句。