對(duì)窗體編寫如下事件過(guò)程:
Private Sub Form_MouseDown(Button As Integer,Shif tAs Integer,X As Single Y As Single)
If Button=2 Then
Print "AAAAA"
End If
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print "BBBBB"
End Sub
程序運(yùn)行后,如果單擊鼠標(biāo)右鍵,則輸出結(jié)果為()
A.AAAAA
B.BBBBB
C.AAAAA CR BBBBB(其中CR表示回車和換行)
D.BBBBB CR AAAAA
您可能感興趣的試卷
你可能感興趣的試題
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
在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下程序:
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
在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過(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
在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過(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
在窗體上畫兩個(gè)名稱分別為Text1、Texte2的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過(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
表達(dá)式:5+10 mod 10\9/3+2^2 的結(jié)果為()
A.6
B.7
C.8
D.10
在Do......Loop語(yǔ)句中有兩種形式:
形式1:
Do{While|Until}<條件>
語(yǔ)句塊
[Exit Do
語(yǔ)句塊]
Loop形式2:
Do
語(yǔ)句塊[Exit Do
語(yǔ)句塊]
Loop{While|Until}<條件>
形式1和形式2的區(qū)別在于()
A.形式1為先執(zhí)行后判斷,至少執(zhí)行一次形式2為先判斷后執(zhí)行,可能一次也不執(zhí)行
B.形式1為先判斷后執(zhí)行,可能一次也不執(zhí)行形式2為先執(zhí)行后判斷,至少執(zhí)行一次
C.形式1為先判斷后執(zhí)行,至少執(zhí)行一次形式2為先執(zhí)行后判斷,至少執(zhí)行一次
D.以上說(shuō)法都不正確
最新試題
在VB中,任何非0值均可視為True,但是一般使用()來(lái)表示True,使用()來(lái)表示False。
在VB中,數(shù)組的維數(shù)最為()數(shù)組維數(shù)增加將使內(nèi)存急劇增加。
在聲明一個(gè)變量后,VB會(huì)自動(dòng)將數(shù)值型的變量賦初值為(),將字符串或Variant數(shù)據(jù)類型的變量賦初值為(),將布爾型賦初值為(),將日期型的變量賦初值為00:00:00。
邏輯運(yùn)算符從高到低順序?yàn)椋ǎ?、()、()、Xor、Eqv、Imp。
數(shù)組默認(rèn)下標(biāo)政界為(),假如希望下標(biāo)從1開始,則應(yīng)通過(guò)()語(yǔ)句來(lái)設(shè)置。
注釋語(yǔ)句是為方便閱讀而對(duì)程序進(jìn)行的說(shuō)明,VB提供了兩種注釋語(yǔ)句,當(dāng)使用()時(shí),單獨(dú)占一行,使用()時(shí),可以放在其他語(yǔ)句的行尾。
在VB中,使用()激活錯(cuò)誤捕獲功能,并將錯(cuò)誤處理程序指定為從行號(hào)位置開始的程序段。
如果想要將對(duì)象引用賦給變量或?qū)傩裕瑒t不能使用賦值語(yǔ)句,而必須使用()語(yǔ)句。
當(dāng)聲明過(guò)程時(shí),如參數(shù)前有()關(guān)鍵字表示參數(shù)是可選的,()關(guān)鍵字表示該參數(shù)是按值傳遞,()關(guān)鍵字表示該參數(shù)按地址傳遞,()關(guān)鍵字表示可提供任意數(shù)目的參數(shù)。
如果希望在過(guò)程結(jié)束之后還能保持過(guò)程中局部變量的值,則應(yīng)該使用()來(lái)聲明為靜態(tài)變量。