在窗体上绘制一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串： Microsoft Sub Command1_Click() 然后编写如下事件过程： Private Sub Command1_Click() Open "d：/temp/outf.txt" For Output As #1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text，i，1) If c＞="A" And c＜="Z" Then Print #1，LCase(C) End If Next i Close End Sub 程序运行后，单击命令按钮，文件outf.txt中的内容是

A．MVBP

B．mvbp

C．M V B P

D．m v b p

[试题]在窗体上添加一个名称为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程序运行后，单击命令按钮，在文本框中显示的值是( )。

[单选题]在窗体中添加一个名称为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的文本框，然后编写如下程序： Private Sub Command1_Click( ) Dim x,y,z As Integer x=5 y=7 z=0 Texttext = " " Call P1 (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 Sub 程序运行后

[单选题]在窗体画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Val(Text1. Text) For i=2 To n For j=2 To Sqr(i) If i Hod j=0 Then Exit For Next j If j＞Sqr(i)Then Print i Next i End Sub 该事件过程的功能是______。A．输出n以内的奇数B．输出n以内的偶数C．输出n以内的素数D．

[单选题]在窗体上有—个名称为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

[单选题]窗体上有一个名称为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 对以上程序，下

[单选题]在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n = Val(Text1.Text) If n/2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByV

[单选题]在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click（）n = Val（Text1.Text） If n/2 = n/2 Then f = f1（n）Else f = f2（n）End IfPrint f; nE．nd SubPublic Function f1（ByRef x）x=x*xf1=x+xE．nd FunctionPublic Function f2（

[单选题]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）D．im array1（10, 10） As IntegerD．im i As Integer, j As IntegerF．or i = 1 To 3F．or j = 2 To 4array1（i, j） = i + jNext jNext iText1.Text = array1（2, 3） + array1（3, 4）E．nd Sub程

[单选题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后输写如下程序:Private Sub Command1_Click()D．im x,y,z As Integerx=5y=7z=0Text1.Text=""C．all Fun1(x,y,z)Text1.Text=Str(z)E．nd SubSub Fun1(ByVal a As Integer, ByVal b As Integer, c As Integer)c=a+bE．nd Sub程序运行后,如果单击命令