在名称为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。请填空。

查看答案

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

您可能会需要：

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

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

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

第1题

设有如下程序： Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1 Dim Min As Integer，i As Integer arrl=Array(12，435，76，-24，78，54，866，43) Min=【】 For i=2 TO 8 If arr1(i)＜Min Then【】 Next i Print“最小值是：”；Min End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第2题

设有如下程序： Private Sub Form_Click( ) Dim a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是【】。程序进行后，单击窗体，输出结果为【】。

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第3题

以下语句的输出结果是【】。 Print Int(12346789*100+0.5)/100

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第4题

本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于—次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

Private Sub Command1_Click( ) Randomize n=CInt(Text1.Text) n1=0 n2=0 For i=1To【】 r=Int(Rnd*2) If r=【】Then n1=n1+1 Else n2=n2+1 End If Next TcxtText=n1 TextText=n2 End Sub