首页 > 计算机应用技术> 网页设计与制作

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

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

[主观题]

在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为

True，然后编写如下的事件过程： Private Sub Form_Click() Open“d：\test\smText1.txt"For lnput As1 Do While Not【】 Line lnput1，aspect＄ whole＄=wholes+aspect＄+Chr＄(13)+Chr＄(10) Loop Text1.Text=whole＄ Close1 Open“d：\test\smtexttxt"For Output As 1 Print 1，【】 Close1 End Sub 上述程序的功能是，把磁盘文件，mText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtexttxt。请填空。

答案

查看答案

发布时间：2022-12-04

更多“在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为”相关的问题

第1题

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

ivate Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。

A.15

B.14

C.13

D.12

点击查看答案

第2题

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

ivate Sub Command1_Click() Dim array1(10，10) As Integer Dim I，j As Integer For I=1 To 3 For j=2 To 4 array(I，J)=I+j Next j Next I Text1，Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。

A.15

B.14

C.13

D.12

点击查看答案

第3题

在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能

将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test .dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open "c:\test.dat"For【】As 1 For i=1 to Len(Text1.text) print1，mid(Text1.Text，i，1) Next Close i End Sub

点击查看答案

第4题

设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) N

ext End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。

A.25

B.24

C.15

D.10

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事

件过程： Private Sub Command1_Click() n= Text1.Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是()。

A.40

B.30

C.20

D.10

点击查看答案

第6题

在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_KeyPress

点击查看答案

第7题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click（) Di

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。

点击查看答案

第8题

假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和Form2，启动窗体为Form1。

假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。 Private Sub Command1_Click() 【】Form1 Form2.【】 End Sub

点击查看答案

第9题

在窗体上有一个文本框控件，名称为TxtTime;一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间，程序为： Private Sub Timer1____() TxtTime.text=Time End Sub 在横线上应填入的内容是()。

A.Visible

B.Timer

C.Interval

D.Enabled

点击查看答案

第10题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)x=-5 If x＞0 Then y=x∧2 Else y=x End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（)。

A.-5

B.25