在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序:Function Fun(X As Integer,ByVal y As Integer)As Integerx=x+yIf X<0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1 Click()Dim a As Integer,b As Integera=-10:b=5Text1.Text=Fun(a,B)Text2.Text=Fun(a, B)End Sub程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是【 】和【 】。
在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,
然后编写如下程序:
Function Fun(X As Integer,ByVal y As Integer)As Integer
x=x+y
If X<0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1 Click()
Dim a As Integer,b As Integer
a=-10:b=5
Text1.Text=Fun(a,B)Text2.Text=Fun(a, B)End Sub
程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是【 】和【 】。
相关考题:
在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序:Function Fun(x As Integer,ByVal y As Integer)As Integerx=x+yIf x0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As Integer,b As Integera=-10:b=5Text1.Text=Fun(a,b)Text2.Text=Fun(a,b)End Sub程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是______和______。
( 19 )在窗体上画两个文本框(名称分别为 text1 和 text2 )和一个命令按钮(名称为 command1 ) , 然后编写如下事件过程:Private Sub Command1_Click()x = 0Do While x 50x = (x + 2) * (x + 3)n = n + 1Looptext1.Text = Str(n)text2.Text = Str(x)End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为A ) 1 和 0B ) 2 和 72C) 3 和 50D ) 4 和 168
在窗体上画一个名称为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.10B.20C.30D.40
在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为Text1),然后编写如下事件过程:Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase 1,3y=x*xCase IS>=10,IS<=-10y=xCase-10 To 10y=-xEnd SelectEnd Sub程序运行后,在文本框中输入3,然后单击命令按钮,则y的值变为______。
设有如下通用过程:在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如 下事件过程:End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是( )。A. 30B. 25C. 20D. 15
在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1和.Text2,然后编写如下程序: Private Sub Command1_Click() Dim x As String,y As String, C As String,d As String x = Text1.Text : y = TextText c = LCase(x):d = UCase(y) Print c; d End Sub 程序运行后,在文本框Texn、Text2中分别输入AbC和efG,结果是A.abcEFGB.abcefgC.ABCefgD.ABCEFG
( 8 )在窗体上画 1 个名称为 Command1 的命令按钮和 2 个名称分别为 Text1 、 Text2 的文本框,如图 5 所示,然后编写下列程序:Function Fun(x As Integer,ByVal y As Integer)As Integerx=x+yIf x0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1_Click( )Dim a As Integer,b As Integera=-10 : b=5Text1.Text=Fun(a, b)Text2.Text=Fun(a, b)End Sub程序运行后,单击命令按钮, Text1 和 Text2 文本框显示的内容分别是 【 9 】 和 【 10 】 。
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl),然后编写如下事件过程:程序运行后,在文本框中输入3,然后单击命令按钮,则Y的值变为__________。