• 2022-06-07
    下面有关注释语句的格式,错误的是( )。
    A: Rem注释内容
    B: '注释内容
    C: a=3:b=2'对a、b赋值
    D: Private Sub Cpmmandl_Mouse Down(button As Integer,Shin As Integer,Rem鼠标按下事件的命令调用过程X As Single,Y As Single)
  • D
    本题目来自[网课答案]本页地址:https://www.wkda.cn/ask/peazmayxyeotooo.html

    举一反三

    内容

    • 0

      执行下列程序后,鼠标单击窗体,输出结果为( )。 Private Sub Form_Click() Print "Click"; End Sub Private Sub Form_MouseDown(Button As Integer, Shift A: As Integer,X As Single,Y As Single) B: Print "Down" C: End Sub D: Private Sub Form_MouseUp(Button As Integer, Shift_As Integer,X As Single,Y As Single) E: Print "Up" F: End SubA) DownUpClick G: B) ClickDownUp H: C) DownClickUp I: D) UpDownClick

    • 1

      假定有如下事件过程: Private SubForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=1 Then PopupMenu Popform End If EndSub 则以下描述中错误的是 。

    • 2

      下列正确的Visual Basic注释语句是 A: Dim a(10) As Integer Rem这是一个VB程序 B: 这是一个VB程序 Private Sub Command1_Click()… C: a=1:b=2:_Rem这是一个VB程序:c=3 D: If Shift=6 And Button=2 Then Print"BBBB" Rem 这是一个VB程序 End If

    • 3

      窗体上有标签(Label1、Label2)和命令按钮(Command1),编写如下事件过程: Private x As Integer: Private Sub Command1_Click(): Dim x As Integer, y As Integer: x = 5: y = 3: proc x, y: Label1.Caption = x: Label2.Caption = y: End Sub: Private Sub proc(ByVal a As Integer, b As Integer): x = a + b: b = b * b: End Sub:运行后,单击按钮,Label1和Label2将分别显示

    • 4

      有如下函数过程: Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是( )。