[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,如图5所示,然后编写如下程序: Function Fun(x As Integer, B
17 查阅
[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为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,h)
End Sub
程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是 (11) 和 (12) 。
参考答案: