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)
举一反三
- 下面有关注释语句的格式,错误的是( )。 A: Rem注释内容 B: ′注释内容 C: a=3:b=2,′对a、b赋值 D: Private Sub Command1_MouseDown(button As Integer,shift As Integer,_Rem鼠标按下事件的命令调用过程X As Single,Y As Single)
- 下面有关注释语句的格式正确的是( )。 A: a=3:b=2 ‘对a、b赋值 B: Private Sub Command1_MouseDown(button AS Integer,shift As Integer, Rem鼠标按下事件的命令调用过程X As Single,Y As Single) C: ’注释内容 D: Rem注释内容
- 下面有关注释语句的格式,错误的是 A: Rem注释内容 B: ′注释内容 C: a=3:b=2,′对a、b赋值 D: Private Sub Command1_MouseDown(button As Integer,shift As Integer,_Rem鼠标按下事件的命令调用过程X As Single,Y As Singl
- 下面有关注释语句的格式,错误的是 A: Rem注释内容 B: '注释内容 C: a=3:b=2'对a、b赋值 D: Private Sub Command1_MouseDown(button As Integer,shift As Integer,_Rein鼠标按下事件的命令调用过程x As Single,Y As Singl
- 要求当鼠标在图片框P1中移动时,立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。 A: Private Sub P1_MouseMove(Button As Integer,Shift As Integer,XAs Single,Y As Single) Print X,Y End Sub B: Private Sub P1_MouseDown(Button As Integer,Shift As Integer,XAs Single,Y As Single) Picture.Print X,Y End Sub C: Private Sub P1_MouseMove(Button As Integer,Shift As Integer,XAs Single,Y As Single) P1.Print X,Y End sub D: Private Sub Form_MouseMove(Button As Integer Shift As Integer,XAs Single,Y As Single) P1.Print X,Y End Sub
内容
- 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 该程序的运行结果是( )。