A．12
B．0
C．5
D．7
[主观题]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：Private Sub Command1_Click()D．im x As Integer,y As Integer,z As IntegerC．all f(x,y,z)E．nd SubSub f(a As Integer,b As Integer,c As Integer)c=b*aE．nd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
[单选题]在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事例代码： Private Sub Command1_Click( ) Str1="981765" Str2="65" n=InStr(Str1,Str2) Me.Text1=n End Sub 窗体打开运行后，单击命令按钮，在文本框中显示______。A．4B．5C．6D．7
[单选题]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2.17 n=Len(Str$(m)＋Space(5)) Me!Text1=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示______。A．5B．8C．9D．10
[单选题]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，则执行如下事件过程后，文本框中的输出为______。private Sub Command1_ click() for i = 1 To 4 for j = 1 To 3 x = 3 for K = 1 To 2 x=x+3 Next K Next j Next i Text1.Text= Str(x)End SubA．3B．6C．9D．12
[单选题]在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序； ( ) Private Sub Commandl_Click() Dim x，y，z As Integer x=5：y＝7：z=O Text1．Text="" Call Pl(x，y，z) TextText＝Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End SubA．0B．
[单选题]在窗体上添加一个命令按钮，名为Command1，一个文本框，名为text1，则执行如下事件过程后，文本框中的输出为 For i=1 To 3 For j=1 To 3 For k=1 To 2 x=x+3 Next k,j,i Text1.Text=str(x)A．21B．42C．54D．72
[单选题]在窗体中添加一个命令按钮，名称为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
[试题]在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()D．im a(10,10)As IntegerD．im i,j As IntegerF．or i=2 To 4F．or j=3 To 6Next iText1.Text=a(2,3)+a(4,6)E．nd Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。
[单选题]在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击
[单选题]在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = TextText c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果