问答题写出下面这段函数实现的功能。 Private Sub Command1_Click（） Dim inData As String Text1.Text="" Open"./smtext1.txt"For InputAs#1 Do While Not EOF（1） Input#1，inData Text1.Text=Text1.TextinData Loop Close#1 End Sub
问答题
写出下面这段函数实现的功能。 Private Sub Command1_Click（） Dim inData As String Text1.Text="" Open"./smtext1.txt"For InputAs#1 Do While Not EOF（1） Input#1，inData Text1.Text=Text1.Text&inData Loop Close#1 End Sub
参考解析
解析：
暂无解析
相关考题：
在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是（ ）。A．Private Sub Command1_Click（）Text1.Left=100End SubB．Private Sub Command1_Click（）Text1.Left= Text1.Left-100End SubC．Private Sub Command1_Click（）Text1.Move.Text.Left+100End SubD．Private Sub Command1_Click（）Text1.Move.Text.LeftEnd Sub
有一过程如下:Sub Sub1(m As Integer,total As Long)Dim i As Integertotal=1For i=1 To mtotal=total*iNextEnd Sub调用它的事件过程如下:Private Sub Command1_Click()Dim tot As Long,a As Integera=Val(InputBox("请输入数据"))Call Sub1(a,tot)Print totEnd Sub则输入数据5,运行结果为【 】。
在窗体上有—个名称为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.Move Text1.Left+100 End SubD．Private Sub Command1_Click() Text1.Move Text1.Left End Sub
（ 27 ）下面程序执行时，在窗体上显示的是Private Sub Command1_Click()Dim a(10)For k = 1 To 10a(k) = 11 – kNext kPrint a(a(3)\a(7) Mod a(5))End SubA ） 3B ） 5C ） 7D ）9
（ 13 ）设窗体文件中有下面的事件过程：Private Sub Command1_Click （）Dim sa%=100Print aEnd Sub其中变量 a 和 s 的数据类型分别是A ）整型，整型B ）变体型，变体型C ）整型，变体型D ）变体型，整型
有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。A．Private Sub Form_Click() PopupMenu cut End SubB．Private Sub Command1_Click() PopupMenu edit End SubC．Private Sub Form_Click() PopupMenu edit End SubD．Private Sub Form_Click() PopupMenu cut End Sub
下面运行程序后,单击命令按钮,输出的结果是 【 】 。Private Sub Command1_Click()Dim a%(1 To 5),i%, s#For i=1 To 5a(i)=iNexts=Fun(a)Print "s="; s;End SubFunction Fun(a() As Integer)Dim t#, i%t=1For i=LBound(a) To UBound(a)t=t a(i)NextFun=tEnd Function
下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。A．33B．28C．35D．37
下列程序的输出结果是【 】Private Sub Command1_Click()Dim a(1 To 20)Dim iFor i=l To 20a(i)=iNext iFor Each i In a()a (i) =20Next i
下面程序的输出结果是【 】。Private Sub Commandl_Click( )Dim a(1 To 20)Dim iFori = 1 To 20a(i) = iNext iFor Each i In a( )a(i) = 20Next iPrint a(2)End Sub
Command1_Click()事件代码如下： Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X和Y的值分别为 ______。A．6, 8B．10, 10C．10, 8D．6, 10
下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。Option Base 1Private Sub Command1_Click()Dim arr1()Dim Min As Integer,i As Integerarr1＝Array(12,435,76,-24,78,54,866,43)Min＝______For i＝2 To 8If arr l(i)＜Min Then______Next iText1＝MinEnd Sub
在窗体中添加一个标签LblResult和一个命令按钮Command1，然后编写程序。程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是， ( )A．Private Sub Command1_Click() Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Name=Str$ (R) End SubB．Private Sub Command1_ClickO Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Caption= Str$ (R) End SubC．Private Sub Command1_Click() Dim I,R As Integer Do While I＜5 R=R+I I=I+1 Loop LblResult. Caption=Str$ (R) End SubD．Private Sub Command1_Click() Dim I,R As Integer Do R=R+I I=I+1 Loop While I＜5 LblResult. Caption=Str$ (R) End Sub
下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text=""Open "smtext1.txt"【 】As【 】Do While【 】Input 2，inDataText1.Text=Text1.Text inDataLoopClose 2End Sub
有如下一个Sub过程： Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为( )。A．12B．24C．36D．48
下列程序的输出结果是【 】。Private Sub Command1_Click()Dim a(1 To 20)Dim iFor i=1 To 20a(i)=iNext iFor Each i In a()a(i)=20Next iPrint a(2)End Sub
有如下函数过程。Function UNC(ByVal x As Integer，ByVal y As Integer)As IntegerDo While y＜＞0S=x/yx=yy=SLoopUNC=xEnd Function以下事件调用该函数，程序运行结果是【 】。Private Sub Command1_Click()Dim a As IntegerDim b As Integera=12b=2x=UNC(a，b)Print xEnd Sub
编程实现加法运算，在两个文本框中输入加数，用标签表示结果，单击按钮进行计算，完成下列计算过程。Private Sub Command1_Click()Dim AAs Integer,B As IntegerA= ____________B=Val(Text2.Text)________ =A+BEnd Sub
下列程序的输出结果是______。Private Sub Command1_Click()Dim arr(1 To 10)For i=l TO 10arr(i)=iNext iFor Each i In arr()art(i)=arr(i)*2+1Next iMsgBox arr(7)End Sub
下列程序的输出结果是( )。Private Sub Command1_Click()Dim arr(1 To 10)For i=1 To 10Next iFor Each i In arr()Next iEnd Sub
下面程序运行后，单击命令按钮，输出的结果是______。Private Sub Command1_Click()Dim a%(1 To 5)，i%，sFor i=1 To 5a(i) =iNexts=Fun(A)Print "s="；s；End SubFunction Fun(a() As Integer)Dim t，i%t=1For i=LBound(A)To UBound(A)t=t*a(i)NextFun=tEnd Function
有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。A、定义一个数据处理方法B、定义一个数据输入方法C、定义一个事件过程D、定义一个数据类型
写出下面这段函数实现的功能。 Private Sub Command1_Click（） Dim inData As String Text1.Text="" Open"./smtext1.txt"For InputAs#1 Do While Not EOF（1） Input#1，inData Text1.Text=Text1.TextinData Loop Close#1 End Sub
当VB执行下面语句后，A的值为（） Private Sub Command1_Click（） Dim a As Integer a=10 If a＞0Then a=a+1 If a＞1Then a=0 Print a End SubA、0B、1C、2D、3
单选题有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。A定义一个数据处理方法B定义一个数据输入方法C定义一个事件过程D定义一个数据类型
单选题下面程序执行时在窗体上显示的是（）。 Private Sub Command1_Click（） Dim a（10） For k=1 to 10 a（k）=11-k Next k Print a（a（3）/a（7）Mod a（5）） End SubA3B5C7D9