Private Sub Form. Click ()
a = 1
F.or i = 1 To 3
Select Case i
C.ase 1 , 3
a = a + 1
C.ase 2, 4
a = a + 2
E.nd Select
Next i
MsgBox a
E.nd Sub
打开窗体运行后,单击窗体,则消息框的输出的结果是
A. ) 3
B. ) 4
C. ) 5
D. ) 6
[单选题]设有如下窗体单击事件过程: Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1,3 a=a+l Case2,4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出结果是______。A.3B.4C.5D.6
[单选题]设有如下窗体单击事件过程: Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出结果是( )。A.3B.4C.5D.6
[单选题]设有如下窗体单击事件过程: Private Sub Form Click( ) a=1 For i=1 To 3 Select Case i Case 1,3 a=a+1 Case 2,4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出结果是__A.3B. 4C. 5D. 6
[单选题]设有如下过程: Private Sub Form. KeyDpwn(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form. KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的KeyPreview属性设置为True,程序运行后,如果按“A”键,则输出结果为( )。A. A AB. A BC
[单选题]有如下程序: Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后,单击窗体,输出结果为______。A. 25B.26C.27D.28
[单选题]对窗体编写如下事件过程: Private Sub Form. _ MouseDown(BuRon As Integer,Shift As 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 "BBBB
[单选题]有如下事件过程:Private Sub Form. Click()D.im n As Integerx=0n=InputBox(”请输入一个整数”)F.or i=1 To iF.or j=1 To ix=x+1Next jNext 1Print xE.nd sub程序运行后,单击窗体,如果在输入对话框中输入5,则在窗体上显示的内容是( )。A.13B.14C.15D.16
[试题]设有如下窗体单击事件过程:Private Sub Form Click( )x=1F.or i=1 To 3Select Case IC.ase 1,3x=x+3C.ase 2,4x=x-2E.nd SelectNext IMsgBox xE.nd Sub打开窗体运行后,单击窗体,则消息框的输出结果是______。
[单选题]设有如下窗体单击事件过程: Private Sub Fom_Click. a =1 For i –To3 Select Case i Case 1,3 a =a +1 Case2,4 a =a +2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出的结果是 A.3 B.4 C.5 D.6
[试题]设有以下窗体单击事件过程:Private Sub Form_Click()a=1F.or i=1 To 3E.nd SelectNext iE.nd Sub打开窗体运行后,单击窗体,则消息框的输出内容是( )。