在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下程序: Function Fun(x As Integer, y As Integer) As Integer Fun = IIf(x < y, x, y)

admin2018-07-11  34

问题 在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下程序:
Function Fun(x As Integer, y As Integer) As Integer
    Fun = IIf(x < y, x, y)
End Function
Private Sub Form_Load()
    Command1.Default = True
End Sub
Private Sub Command1_Click()
    Dim a As Integer, b As Integer
    a = 20
    b = 12
    Text1.Text = Str(Fun(a, b))
End Sub
程序运行后,按回车键,文本框中显示的内容为

选项 A、12
B、20
C、24
D、40

答案A

解析 Form_Load()过程中,Command1获得焦点。当按回车键时,触发Command1_Click()事件。该事件中给定a和b的值,并调用函数Fun。函数Fun返回整型数据。IIf(x < y, x, y)表示的意思是x < y成立时,返回x,否则返回y。函数调用时传过来的参数是x=20,y=12。因此IIf(x < y, x, y)返回的值是12。选A)。
转载请注明原文地址:https://jikaoti.com/ti/rTm0FFFM
0

最新回复(0)