（ 13 ）设在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。要求单击 Command 1

按钮时可把光标移到文本框中。下面正确的事件过程是

A． ） Private Sub Command1_Click()

Text1.GotFocus

E．nd Sub

B． ） Private Sub

C．ommand1.GotFocus

E．ndSub

C． ） Private Sub Command1_Click()

Text1.SetFocus

E．nd Sub

D． ） Private Sub

C．ommand1.SetFocus

E．nd Sub

[试题]（ 7 ） 在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框 。 程序运行后 ， Command 1为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。Private Sub Form_Load()C．ommand1.Enabled = FalseE．nd SubPrivate Sub Text1_ ( 7 ) ()C．ommand1.Enabled = TrueE．nd Sub

[试题]在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。Private Sub Form_Load（）C．ommand1 Enabled=FalseE．nd SubPrivate Sub Text1_ ________ （）C．ommand1 Enabled=TrueE．nd Sub

[单选题]设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Commandl Click() StatiC b As Variant b=Array(1，3，5，7，9) ... End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是A．For i=0 To 5-1/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp NextB．For i=0 To 5 tmp=b(i

[单选题]设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Command1_Click() Static b As Variant b=Array(1,3,5,7,9) End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是( )。A．For i=0 To 5-1/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp NextB．For i=0 To 5 tmp=b(i

[单选题]设在窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Command1_Click( ) Static b As Variant b=Array(1，3，5，7，9) …… End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功能，省略号处的程序段应该是A．Fori=0 T0 5-1/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp NextB．Fori=0 To 5 tmp=b(i)

[单选题]在窗体上有—个名称为Text1的文本框和一个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮—次，文本框向右移动—定的距离。下面能够正确实现上述功能的程序是 ______。A．Private Sub Command1_Click() Text1.Left=100 End SubB．Private Sub Command1_Click() Text1.Left=Text1.Left-100 End SubC．Private Sub Command1_Click() Text1.M

[单选题]在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：Private x As Integer Private Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = z End Sub运行程序后，

[单选题]窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下

[单选题]在窗体中添加一个名称为Command1的命令按钮、一个名称为Label1的标签，编写如下代码： Option Base 1 Private Sub Command1_Click( ) a=Array(23，34，25，46，35) ┊ End Sub 过程的功能是求数组a中是奇数的元素的个数，并把结果显示在标签中。为实现此功能，省略号处的程序段应该是A．For i=0 T0 4 If a(i)Mod 2＜>0 Then b=b+1 End lf Next i Label1.Caption=

[单选题]在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序： Private Sub Commandl Click() Dim a(5)， b(5) For j = 1 To 4 a(j) = 3 ( j b(j) = a(j) ( 3 Next j Text1.Text = b(j/2) End Sub 程序运行后，单击命令按钮，在文本框中显示A．25B．18C．36D．35