VB 最大值和最小值的问题
编写一个函数过程，求三个数中最大值Max和最小值Min，程序运行时如下图所示，在三个文本框中输入三个数，单击按钮【比较】，调用函数过程，得出最大值和最小值并显示在下面的两...
编写一个函数过程，求三个数中最大值Max和最小值Min，程序运行时如下图所示，在三个文本框中输入三个数，单击按钮【比较】，调用函数过程，得出最大值和最小值并显示在下面的两个文本框中。
展开
1个回答
展开全部
Private Sub Command1_Click()
Dim n, a1, a2, a3 As Integer
a1 = Val(Text1.Text)
a2 = Val(Text2.Text)
a3 = Val(Text3.Text)
If a1 < a2 Then n = a1: a1 = a2: a2 = n
If a1 < a3 Then n = a1: a1 = a3: a3 = n
If a2 < a3 Then n = a2: a2 = a3: a3 = n
Text4.Text = a1
Text5.Text = a3
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
