某企业2002年6月28日自行建造的一条生产线投入使用,该生产线建造成本为370万元预计使用年限为5年

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写 如下事件过程： Private Sub Command1_Click() Text1.Text ="Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是

A．Visual

B．Basic

C．Program

D．出错

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text="Visual" Me.Text1="Basic" Text1="Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是()。

A．Visual

B．Basic

C．Program

D．出错

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n＝n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。

A．5

B．4

C．3

D．2

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n＝n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。

A．5

B．4

C．3

D．2

设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（）。

A.30

B.25

C.20

D.15

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 ______ 。

A．2

B．3

C．4

D．5

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim array1(10，10)As Integer Dim i，i AS Integer For i=1 TO 3 For j=2 TO 4 arrayl(i,i)=i+j Next j Next i Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()：

A．12

B．13

C．14

D．15

设有如下通用过程：在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（）。

A. 30

B. 25

C. 20

D. 15

在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为Text1)，然后编写如下事件过程：

Private Sub Command1_Click()

x＝Val(Text1.Text)

Select Case x

Case 1,3

y＝x*x

Case IS＞＝10,IS＜＝-10

y＝x

Case-10 To 10

y＝-x

End Select

End Sub

程序运行后，在文本框中输入3，然后单击命令按钮，则y的值变为______。

在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a(10,10)As Integer

Dim i,j As Integer

For i=2 To 4

For j=3 To 6

Next i

Text1.Text=a(2,3)+a(4,6)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是()。