UC知道VB 的这个编程不懂是什么意思
来源：百度知道 编辑：UC知道 时间：2024/06/22 01:57:27
Function Max(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer)
If A > B Then M = A Else M = B
If M > C Then Max = M Else Max = C '第1空
End Function
Private Sub Form_Click()
Dim A1#, A2#, A3#, A4#, A5#
A1 = InputBox("输入数1")
A2 = InputBox("输入数2")
A3 = InputBox("输入数3")
Print "三个数的最大值 ："; Max(A1, A2, A3) '第2空
A4 = InputBox("输入数4")
A5 = InputBox("输入数5")
Print "五个数的最大值 ：";
Max5 = Max(A, B, C) '第3空
Max5 = Max(Max(A1, A2, A3), A4, A5) '第4空
Print Max5
End Sub
题目是: 编写一个求3个数中最大值的Function过程，然后用这个过程分别求5个数、7个数的最大值。
If A > B Then M = A Else M = B
If M > C Then Max = M Else Max = C '第1空是不是下面有两个调用所以有两个IF呀
Print "三个数的最大值 ："; Max(A1, A2, A3) '第2空这句为什么可以真接说Max(A1, A2, A3)不用比较的,怎不是用一个来表示,怎用括号就可说最大了
Max5 = Max(A, B, C) '第3空
Max5 = Max(Max(A1, A2, A3), A4, A5)为
If A > B Then M = A Else M = B
If M > C Then Max = M Else Max = C '第1空
End Function
Private Sub Form_Click()
Dim A1#, A2#, A3#, A4#, A5#
A1 = InputBox("输入数1")
A2 = InputBox("输入数2")
A3 = InputBox("输入数3")
Print "三个数的最大值 ："; Max(A1, A2, A3) '第2空
A4 = InputBox("输入数4")
A5 = InputBox("输入数5")
Print "五个数的最大值 ：";
Max5 = Max(A, B, C) '第3空
Max5 = Max(Max(A1, A2, A3), A4, A5) '第4空
Print Max5
End Sub
题目是: 编写一个求3个数中最大值的Function过程，然后用这个过程分别求5个数、7个数的最大值。
If A > B Then M = A Else M = B
If M > C Then Max = M Else Max = C '第1空是不是下面有两个调用所以有两个IF呀
Print "三个数的最大值 ："; Max(A1, A2, A3) '第2空这句为什么可以真接说Max(A1, A2, A3)不用比较的,怎不是用一个来表示,怎用括号就可说最大了
Max5 = Max(A, B, C) '第3空
Max5 = Max(Max(A1, A2, A3), A4, A5)为
第1空因为有3个数 所以有两个IF 第一个IF比较AB,比的结果大的赋值给M,再用M和C比较,比较结果大的就赋值给MAX.
第2空显示A1A2A3中的最大数
第3空定义MAX5
第4空先比较A1A2A3,最大的数与A4A5比较,最后把第二次比较的结果赋值给MAX5
题目:Max(A1, A2, A3)是3位数比较, Max(Max(A1, A2, A3), A4, A5)是5位比较,Max(Max(Max(A1, A2, A3), A4, A5),A6,A7)是7位数比较
下面已经回答了，路过