[单选题]

下列程序,当单击窗体时s的值是( )

Private Sub Form_Click()

D.im s as boolean

a = 2: b = 3: c = 4: d = 5

s = a >b And 2 * a >c Or c<= d

Print s

E.nd Sub

A.TRUE

B.FALSE

C.-1

D.1

参考答案与解析:

相关试题

下列程序,当单击窗体时s的值是( )Private Sub Form_Click

[单选题]下列程序,当单击窗体时s的值是( )Private Sub Form_Click()D.im s As Integers = Not 2 * 511Print sE.nd SubA. TrueB. FalseC.1D.0

  • 查看答案
  • 下列程序,当单击窗体时s的值是( )Private Sub Form_Click

    [单选题]下列程序,当单击窗体时s的值是( )Private Sub Form_Click()s = 11 / 3 + 11 Mod 3Print sE.nd SubA.3B.4C.5D.6

  • 查看答案
  • 设有以下窗体单击事件过程: Private Sub Form_Click() a

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

  • 查看答案
  • 运行下列程序:Private Sub form_Click( )s = Inpu

    [单选题]运行下列程序:Private Sub form_Click( )s = InputBox("请输入一个字符A:")Select Case Asc(s)C.ase Is > 65n = String(3, UCase(s))C.ase Is = 65n = String(3, LCase(s))C.ase Elsen = sE.nd SelectPrint nE.nd Sub从键盘输入A,输出的结果是( )。A.aaaB.AAAC.65D.a

  • 查看答案
  • 若有以下窗体单击事件过程:Private Sub Form_Click()res

    [单选题]若有以下窗体单击事件过程:Private Sub Form_Click()result=1F.or i=1 To 6 step 3result=result*iNext iMsgBox resultE.nd Sub打开窗体运行后,单击窗体,则消息框的输出内容是A.1B.4C.15D.120

  • 查看答案
  • 设有如下窗体单击事件过程: 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 form_Click( )For i =

    [单选题]运行下列程序:Private Sub form_Click( )F.or i = 1 To 2x = 1F.or j = 1 To 3x = 5F.or k = 1 To 4x = x + 2Next kNext jNext iPrint xE.nd Sub单击窗体后,则输出结果是( )。A.5B.13C.25D.48

  • 查看答案
  • 运行下列程序:Private Sub Form_Click( )Dim a As

    [单选题]运行下列程序:Private Sub Form_Click( )D.im a As Integera = 1F.or i = 1 To 5C.all fun1(a)Next iPrint aE.nd SubPrivate Sub fun1(x)y = 2D.ox = x + yLoop Until x > 10E.nd Sub单击窗体后,则在窗体上显示的结果是( )。A.5B.1 2 3 4 5C.19D.7

  • 查看答案
  • 运行下列程序:Private Sub Form_Click( )For i =

    [单选题]运行下列程序:Private Sub Form_Click( )F.or i = 1 To 20If fun1(i) Thens = s + 1E.nd IfNext iPrint sE.nd SubPrivate Function fun1(y) As BooleanIf y Mod 2 <> 0 Thenfun1 = FalseE.lsefun1 = TrueE.nd IfE.nd Function单击窗体后,则在窗体上显示的结果是( )。A.110B.10C.0D.20

  • 查看答案
  • 下列程序,当单击窗体时s的值是( )Private Sub Form_Click