[单选题](30)窗体上有两个文本框Text1、Text2以及一个命令按钮Commandl,编写下列程序: Dim y As Integer Private Sub Commandl_Click() Dim x As Integerx=2 Text1.Text=p2(pl(x),y) Text2.Text=p2(x) End Sub Private Function p2(x As Integer,y As Integer) x=x+y:y=x+y pl=x+y End Function Private
[单选题]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序:D.im y As IntegerPrivate Sub Command1_Click()D.im x As Integerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)E.nd SubPrivate Function p1(x As Integer)As Integerx=x+y:y=x+yp1=x+yE.nd FunctionPrivate Function p2(x
[单选题]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1,编写下列程序: Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integer x=2 Text1.Text=p2(p1(x), y) Text2.Text=pi(x)End SubPrivate Function p1(x As Integer) As Integer x=x+y:y=x+y p1=x+yEnd FunctionPrivate Function p
[单选题]窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1,设文本框Text1中内容为 12,文本框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick() Text3.Text = Str$(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End SubA.12B.34C.46D.1234
[单选题]窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序D.im y As IntegerPrivate Sub Command1_Click()D.im x As Integerx=2Text1.Text=Fun2(Funl(x),y)Text2.Text=Funl(x)E.nd SubPrivate Function Funl(x As Integer) As Integerx=x+y ∶y=x+yF.unl=x+yE.nd FunctionPrivate Fun
[单选题]窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:D.im y As IntegerPrivate Sub Command1_Click()D.im x As Integerx=2Text1.Text=Fun2(Fun1(x),y)Text2.Text=Fun1(x)E.nd SubPrivate Function Fun1(x As Integer) As Integerx=x+y:y=x+yF.un1=x+yE.nd FunctionPrivate Fun
[单选题]窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。设有如下的类型声明: Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。A.Open"c:/Test29.dat"ForRan
[试题]在窗体中有两个文本框分别为 text1 和 text2 ,一个命令按钮 command1, 编写如下两个事件过程:Private sub command1_click()A.=text1.value+text2.valueMsgbox aE.nd subPrivate sub form_load()Text1.value= ””Text2.value= ””E.nd sub程序运行时,在文本框 text1 中 78 ,在文本框 text2 中输入 87 ,单击命令按钮,消息框中输出的结果为____
[单选题]在窗体上画两个文本框Text1和Text2,一个命令按钮Command1,请阅读下列程序段: Private Sub Command1_Click() x=0 Do Until x>=50 X=(x+4)﹡(x+3) N=n+1 Loop Text1.Text=Str(n) Text2.Text=str(x) End Sub运行程序后,单击命令按钮,在两个文本框中显示的值分别为A. 1和0 B. 2和240 C. 3和50 D. 4和168
[单选题]在窗体上画两个文本框Text1和Text2,一个命令按钮Command1,请阅读以下程序段: Private Sub Command1_Click() x=0 Do Until x>=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后,单击命令按钮,在两个文本框中显示的值分别为( )。A.1和0B.2和240C.3和50D.4和168