题目内容（请给出正确答案）

[主观题]

（10 ）在窗体上画一个文本框，其名称为 Text1 ，在属性窗口中把该文本框的 Mult i Line 属性设

置为 True ，然后编写如下的事件过程：

Private Sub Form_Click （）

Open " d:\test\smtext1.Txt " For Input As #1

Do While Not 【 13 】

Line Input #1, aspect$

W hole$=whole$+aspect$+Chr$ （13 ） +Chr$ （10 ）

Loop

Text1.Text=whole$

【 14 】

Open " d:\test\smtext2.Txt " For Output As #1

Print #1, 【 15 】

Close #1

End Sub

运行程序，单击窗体，将把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt 。请填空。

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“（10 ）在窗体上画一个文本框，其名称为 Text1 …”相关的问题

第1题

在窗体上画一个文本框（其Name属性为Text1)，然后编写如下事件过程：Private Sub Form_Load（)TextTe

在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。

A．在文本框Text1中输出55

B．在文本框Text1中输出0

C．出错

D．在文本框Text1中输出不定值

点击查看答案

第2题

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

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1 Click() Dim arr1(10), arr2(10) For i = 1 To 10 arr1(i) = 3 * i arr2(i) = arr1(i) * 3 Next i Text1.Text = Str (arr2(i / 2 - 0.1)) End Sub程序运行后，单击命令按钮，在文本框中显示的是______。

A．36

B．45

C．54

D．63

点击查看答案

第3题

在窗体上画一个文本框（其Name属性为Text1)，然后编写如下事件过程：Private Sub Form_Load（) Text1

在窗体上画一个文本框(其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中输出55

B．在文本框Text1中输出0

C．出错

D．在文本框Text1中输出不定值

点击查看答案

第4题

在窗体上画一个文本框（其NAME属性为TExT1)，然后编写如下事件过程： PRIVATE SUB FORM_LOAD（) DIM

在窗体上画一个文本框(其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中输出55

B．在文本框TEXT1中输出0

C．出错

D．在文本框TEXT1中输出不定值

点击查看答案

第5题

在窗体上画一个文体框（其Name属性为Text1)，然后编写如下事件姓程；Private Sub Fom_Load（)Text1.T

在窗体上画一个文体框(其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中输出55

B．在文本框Tece1中输出0

C．出错

D．在文本框Text1中输出不定值

点击查看答案

第6题

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空

白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。

A．108

B．18

C．810

D．出错

点击查看答案

第7题

在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的Text属性设置为空

白，然后编写如下事件过程： Private Sub Commandl_Ciick() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。

A． 108

B．18

C．810

D．出错

点击查看答案

第8题

在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空

白，然后编写如下事件过程： Private Sub Commandl_click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是()。

A．108

B．18

C．810

D．出错

点击查看答案

第9题

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设

置为空白，然后编写如下事件过程：

Private Sub Command1_Click（）

a = InputBox（"Enter an integer"）

b = InputBox（"Enter an integer"）

Text1.Text = b + a

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（）。

A．108

B．18

C．810

D．出错

点击查看答案

第10题

在窗体上画一个文本框，然后编写如下程序：Option Base 1Private Sub Form_Click（)Dim Arr（10)As I

在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是

A．1

B．3

C．6

D．10

点击查看答案

第11题

（10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程： Private Sub Form_Click（) Te

（10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程： Private Sub Form_Click() Text1.Text="VB Programming" End Sub Private Sub Text1_Change() Picture1.Print"VB程序设计" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是。

点击查看答案