在窗体上画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.
题目
在窗体上画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文本框显示的内容分别是______和______。
相似考题
参考答案和解析
-5 5
该题考查传值参数和传址参数的区别。Visual Basic通过关键字ByVal来实现对b进行传值，而对于a则是通过引用来传地址，因此a与Function过程里的x是同一地址。第一次调用Function过程时，过程返回值为-5，同时x=-5,即a=-5，因此第二次调用过程时，过程的返回值为5。
更多“在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然 ”相关问题
-
第1题：
在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
正确答案：【考点分析】本题考点有：标签的Name和Caption属性、文本框Name和Text属性、命令按钮的Name和Caption属性、“＆”和“+”运算符以及Print方法。
【解题思路】通过标签的Name和Caption属性设置标签的名称和标题，通过文本框Name和Text属性设置文本框的名称和文本，通过命令按钮的Name和Caption属性设置命令按钮的名称和标题，“＆”和“+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用Print方法。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置相应属性，程序中用到的控件及属性如表3．16所示。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Form1．Print Text1．Text＆"，现年"＆
Text2．Text＆"岁"
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。 -
第2题：
在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在（ ）处填入适当的内容，将程序补充完整。
正确答案：
True【解析】当向文本框中输入任何字符时．文本框中的内容发生变化，从而触发Change事件，事件处理程序将命令按钮激活即可。这通过设置Command1.Enabled的属性值为真来实现。 -
第3题：
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为：同学们，你们好。
略 -
第4题：
在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text 1、Text2,然后编写如下程序:PrivateSubCommand1_Click()a=Text1.textb=Text2.textC=Lcase( )D=Ucase( )PrintC;DEndSub程序运行后,在文本框Text 1、Text2中分别输入AbC和Efg,结果是( )A、abcEFG
B.abcefg
C.ABCefg
D.ABCEFG
正确答案：A
-
第5题：
（ 8 ）在窗体上画 1 个名称为 Command1 的命令按钮和 2 个名称分别为 Text1 、 Text2 的文本框，如图 5 所示，然后编写下列程序：
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 文本框显示的内容分别是 【 9 】 和 【 10 】 。
正确答案：
（ 8 ）【答案】 【 9 】 -5 【 10 】 5
【解析】该题考查传值参数和传址参数的区别。 Visual Basic 通过关键字 ByVal 来实现对 b 进行传值 ， 而对于 a 则是通过引用来传地址 ， 因此 a 与 Function 过程里的 x 是同一地址 。 第一次调用 Function 过程时 ，过程返回值为 -5 ，同时 x=-5, 即 a=-5 ，因此第二次调用过程时，过程的返回值为 5 。
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？