[单选题]

( 32 )设有如下窗体单击事件过程:

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

[单选题]设有如下窗体单击事件过程: 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

    [单选题]设有如下窗体单击事件过程: 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 FormClick( )a=1

    [单选题]设有如下窗体单击事件过程: 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(KeyCod

    [单选题]设有如下过程: 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 1Private Sub Form. Cli

    [单选题]有如下程序: 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. _ MouseDow

    [单选题]对窗体编写如下事件过程: 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()Dim n

    [单选题]有如下事件过程: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 FormClick( )x=1

    [试题]设有如下窗体单击事件过程: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 =

    [单选题]设有如下窗体单击事件过程: 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

    [试题]设有以下窗体单击事件过程:Private Sub Form_Click()a=1F.or i=1 To 3E.nd SelectNext iE.nd Sub打开窗体运行后,单击窗体,则消息框的输出内容是( )。

  • 查看答案
  • ( 32 )设有如下窗体单击事件过程:Private Sub Form. Cli