[单选题]

当Command1_Click事件发生时,窗体上显示的内容是 ______。 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer If a = 0 Then x = x-1 Else If b <> 0 Then x = 7 Else x=x+8 End If If c <> 0 Then x = x-3 Else x = 4 End If Print x End Sub

A.7

B.8

C.4

D.3

参考答案与解析:

相关试题

执行以下command1的click事件,在窗体上显示的是()

[单选题]执行以下command1的click事件,在窗体上显示的是()A . abcB . bdfC . aceD . 出错

  • 查看答案
  • 假定有如下的窗体事件过程:Private Sub Command1_Click(

    [单选题]假定有如下的窗体事件过程: Private Sub Command1_Click() a$="Microsoft Visual Basic" b$=Riqht(a$, 5) c$=Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是______。A.Microsoft VisualB.MicrosoftC.BasicD.5

  • 查看答案
  • 在窗体上画一个名为Command1的命令按钮,其Command1_Click事件

    [单选题]在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下:Sub Command1_Click()D.im student As studtypeD.im record_no As Integerrecord_no=1With student.ino=12.strname="smith".strsex="男".smark=89E.nd With_______Put # 1,record_no,studentC.lose # 1E.nd Sub要求在c: /

  • 查看答案
  • 在窗体上画一个名为Command1的命令按钮,其Command1_Click事件

    [单选题]在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下。 Sub Command1_Click() Dim student As studtype Dim record_no As Integer record n=1 With student .ino=12 .strname="Smith" .strsex=“男” .smark=89 End With ______ Put # 1,record_no,student Close # 1 End Sub 要

  • 查看答案
  • 执行以下Command1的Click事件过程在窗体上显示Option Base

    [单选题]执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1 Click() Dim a a= Array("a", "b", "C", "d", "e", "f", "g") Print a(1); a(3); a(5) End SubA.ab;B.bdfC.aceD.出错

  • 查看答案
  • 执行以下Command1的Click事件过程在窗体上显示 Option Base

    [单选题]执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click( ) Dim a a=Array("a" ,"b","c","d","e","f","g") Print a(1);a(3);a(5) End SubA.abcB.bdfC.aceD.出错

  • 查看答案
  • 执行以下Command1的Click事件过程在窗体上显示Option Base

    [单选题]执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click() Dim a a=Array("a","b","c","d","e","f","g") Print a(1); a(3); a(5) End SubA.abcB.bdfC.aceD.出错

  • 查看答案
  • 执行以下Command1的Click事件过程在窗体上显示()Private Su

    [单选题]执行以下Command1的Click事件过程在窗体上显示()Private Sub Command1_Click()Dim aa = Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)Print a(1); a(3); a(5)End SubA . a;b;cB . b;d;fC . a;c;eD . 出错

  • 查看答案
  • 执行以下Command1的Click事件过程,在窗体上显示Option Base

    [单选题]执行以下Command1的Click事件过程,在窗体上显示 Option Base 0 Private Sub Command1_Click() Dim a a = Array("a", "b", "c", "d", "e", "f", "g") Print a(1); a(3); a(5) End SubA.abcB.bdfC.aceD.出错

  • 查看答案
  • Command1_Click()事件代码如下:Private Sub Comma

    [单选题]C.ommand1_Click()事件代码如下: Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer,Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后,X和Y的值分别为 ______。A.6, 8B.10, 10C.10

  • 查看答案