单选

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:

DimY As Integer

Private Sub Command1 Click(  )

Dim X As Integer

x=2

Text1.Text=p2(p1(X),Y)

Text2.Text=p1(x)

End Sub

Private Function p1(X As Integer)As Integer

x+x+v: y=x+y

p1=x+y

End Function

Private Function p2(X As Integer,Y As Integer)As Integer

p2=2*x+y

End Function

当单击1次和单击2次命令按钮后,文本框Text1和Text2内的值分别为(  )。

  • A.2 4    2 4
  • B.2 4    4 8
  • C.4 4    8 8
  • D.10 10    58 58
参考答案
您可能感兴趣的试题

现有如下一段程序:

Option Base 1

Privalc Sub Command1 Click(  )

 Dim a

  • a=Array(3,5,7,9‘)    x=1
  • For i=4,10 j Step-1    s=s+a(i)*X    x=x*10    Next i    Print s
  • End Sub    执行程序,单击Command1命令按钮键,执行上述事件过程,输出结果是(  )。
  • A.9753
  • B.3579
  • C.35
  • D.79

下列可以打开随机文件的语句是(  )。

  • A.Open"file 1.dat"For Input As#1
  • B.Open"file1.dat"For Append As#1
  • C.Open"file1.dat"For Output As#1
  • D.Open"file1.dat"For Randow As#1 Len=20

下列关于线性链表的叙述中,正确的是(  )。

  • A.各数据结点的存储空间可以不连续,但它们的存储顺序与逻辑顺序必须一致
  • B.各数据结点的存储顺序与逻辑顺序可以不一致,但它们的存储空间必须连续
  • C.进行插入与删除时,不需要移动表中的元素
  • D.以上三种说法都不对
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服