单项选择题

下面程序段，运行后的结果是
Private Sub Command1_Click()
Dim b%(1 To 4)，i%，t#
For i=1 TO 4
b(i)=i
Next i
t=Tof(b())
Print"t="；t，
End Sub
Function Tof(a()As Integer)
Dim t#，i%
t=1
For i=2 To UBound(

A．

<上一题目录下一题>

热门试题

填空题

面向对象的模型中，最基本的概念是对象和______。

单项选择题

设在窗体上有个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(Shift And Alt)>0 f2down%=(KeyCode=Key_F2) If altdown%And t2down% Then Text1 Text= BBBBB End If End Sub 上述程序运行后，如果按[Shift+F2]，则在文本框中显示得是

A．Alt+F2
B．BBBBB
C．随机出几个数
D．文本框平均内容无变化

相关试题