在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序运行结果是( )。Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor k=1 To 5t=t*kNext kText1.Text=tEnd SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序运行结果是( )。
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For k=1 To 5
t=t*k
Next k
Text1.Text=t
End Sub
A．在文本框中显示120
B．文本框中仍为空
C．在文本框中显示1
D．出错
相关考题：
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 9Sum=Sum=iNext iText1.Text=SumEnd Sub上述程序的运行结果是A．在文本框Text1中输出45B．在文本框Text1中输出0C． 出错D． 在文本框Text1中输出不定值
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。A．27B．28C．29D．30
在窗体上画一个文本框(其中Name属性为Text1)，然后编写如下事件过程： Private Sub Form_ Load() Text1.Text=“” Text1.SetFocus For i=1 To 10 Sum=Sam+ i Next i Text1.Text=Sam End Sub上述程序的运行结果是______ 。A．在文本框Text1中输出55B．在文本框Text1中输出0C．出错D．在文本框Text1中输出不定值
在窗体上添加一个文本框Textl，然后编写下列Load事件过程，则程序运行结果是 。 Private Sub Form_LoadO Textl.Text=〞〞 Textl.SetFocus Fork=1 To 5 T=t﹡k Next k Textl.Text=t End SubA.在文本框中显示120 B.文本框中仍为空 C．在文本框中显示1 D.出错
在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text = Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为A．abcdefgB．不显示任何信息C．ABCDEFGD．出错
在窗体上添加文本框Text1，然后编写下列程序： Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是A．23BCDB．ABCC．!@#ABCD．123abc
在窗体上添加一个文本框，其名称为text1，然后编写如下的Load事件过程，则该程序的运行结果是______。Private Sub form_ load Text1. Text = " " t = 1 for k = 10 To 6 Step -2 t= t* k Next k Text1. Text = tEnd SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示480D．出错
设有如右图所示的窗体和下列程序：Private Sub Command1_Click() Text1.Text="Visual Basic" End Sub Private Sub Text1_LostFocus() If Text1.Text＜＞"BASIC" Then Text1.Text=" " Text1.SetFocus End If End Sub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是( )。A．文本框中无内容，焦点在文本框中B．文本框中为"Basic"，焦点在文本框中C．文本框中为"Basic"，焦点在按钮上D．文本框中为"Visual Basic"，焦点在按钮上
在窗体上添加—个文本框，名为Text1，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load( ) Text1.Text=”” Text1.Setfocus t=1 For k=10 To 6 Step-2 t=t*k Next k Text1.Text=t End SubA．在文本框中显示120B．文本框仍为空C．在文本框中显示480D．出错
在窗体上画一个文本框(其NAME属性为TExT1)，然后编写如下事件过程： PRIVATE SUB FORM_LOAD( ) DIM SUM TEXT1="" FOR I=1 TO 10 SUM=SUM+I NEXT I TEXT1=SUM END SUB上述程序的运行结果是( )。A．在文本框TEXT1中输出55B．在文本框TEXT1中输出0C．出错D．在文本框TEXT1中输出不定值
在窗体上面显示一个名称为Text1的文本框和一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() Text1.Text="Visual" ME．Text1="Basic" Text1="Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是______。A．VisualB．BasicC．ProgramD．出错
在窗体上添加一个文本框Text 1，然后编写如下的Load事件过程，则程序运行结果为( )。 Private Sub Form_Load0 Text1. Text="" Text1. SetFocus For k = 1 To 5 t=t*k Next k Text1.Text = tEnd SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
在窗体上添加一个文本框，名为Textl，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load() Text1.Text=" " Text1.Setfocus t=1 For k=10 To 6 Step -2 t=t(k Next k Text1.Text =t End SubA．在文本框中显示120B．文本框仍为空C．在文本框中显示480D．出错
在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String，n As Integer str=UCase(Chr(KeyAscii)) n=Len(str)。 Text1．Text=String(n，str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（ ）。A.A.pp B.pP C.ｐｐ D.PpB.
在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：Private Sub Text1 KeyPress(KeyAscii As Integer)Dim str As String,n As Integerstr=UCase(Chr(KeyAscii))n=Len(str)Text1.Text=String(n,str)End Sub程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。A．ppB．pPC．PPD．Pp
在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。A．ppB．pPC．PPD．Pp
在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是______ 。 private sub form_ load text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end subA． 在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 ______。A．在文本框Text1中输出55B．在文本框Text1中输出0C．出错D．在文本框Text1中输出不定值
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是A． VisualB．BasicC．ProgramD．出错
在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是( )。 Private Sub Form_Load Text1.Text=" " Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load0 Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1 Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是( )。A．BeijingChinaB．ChinaC．BeijingD．BeijingC
在窗体上画一个文体框(其Name属性为Text1)，然后编写如下事件姓程； Private Sub Fom_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Stun=Stun +i Next i Text1.Text=Sum End Sub 上述程序的运行结果是______。A．在文本框Text1中输出55B．在文本框Tece1中输出0C．出错D．在文本框Text1中输出不定值
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text，8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是 ______。A．BeijingChinaB．ChimaC．BeijingD．BeijingC
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。A．在文本框Text1中输出55B．在文本框Text1中输出0C．出错D．在文本框Text1中输出不定值
在窗体上添加一个文本框Text1，然后编写如下的Load事件过程，则程序运行结果为( )。 Private sub Form_Load() Text1.Text="" Text1.SetFocus For k=1 To 5 t=t*k Next k Text1.Text=t End SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。A．abodefgB．不显示任何信息C．ABCDEFGD．出错