Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入", "a=")
b = InputBox("输入", "b=")
c = InputBox("输入", "c=")
a = Max
If b > a Then b = Max
If c > a Then c = Max
Print Max
End Sub
先设定某个值为最大,然后和其它的两个比较一下,就得出结果了。
代码如下:
'假设三个数分别是x,y,zVB题“判断三个数中最大的数”其中的问题
strtemp = strtemp & "三个数中最大的数:"'这时,strtemp的内容就是 “1,2,3三个数中最大的数:”If a > b And a > c Then strtemp = strtemp & a End If '如果条件 a大于b 并且 a大于c那么 strtemp的内容是 ' 1,2,3三个数中最大的数:1 If b > a And b > c Then st...
用vb编程:输入三个数,求出最大的数
这个思路就是永远让a的值保持在三个数中最大的 最后输出x就可以了 三个数的比较有点特殊 所以冒泡和遍历看起来差别不大 如果是n个数的话 推荐遍历法比较简便 逻辑也更清晰
编写VB程序,求三个数中最大值MAX。要求:用文本框输入整数,用标签显示结 ...
if max<a then max =a if max
vb编程题,输入3个数,然后输出其中的最大数
MsgBox("输入的三个数分别是" & x & "、" & y & "、" & z & "中最大的数为:" & Max)End Sub End Class
求编一个 vb程序 任意输入三个数,找出其中的最大值。
Dim Max%, i%, t$, a t = InputBox("请输入三个数,中间用空格隔开")a = Split(t, " ")For i = 0 To UBound(a)If a(i) > Max Then Max = a(i)Next MsgBox t & " 中最大值是:" & vbCrLf & Max
VB:定义并调用函数,求任意三个整数中的最大值
请输入一个数字!", "提示")Print a(i)Next i Print "最大数是" & largenum(a)End Sub Function largenum(a() As Double) As Double Dim i As Integer, max As Double max = a(1)For i = 1 To 3 If max < a(i) Then max = a(i)Next i largenum = max End Function ...
在VB编程中求最大和最小数
在VB编程中,求解最大和最小数的问题可以通过多种算法解决,其中冒泡排序法是其中一种。下面,我们就通过冒泡排序法来实现这个问题。首先,我们需要一个数组来存储这些数。例如,我们有五个数:X[1] = 2, X[2] = 5, X[3] = 1, X[4] = 4, X[5] = 3。我们将这些数赋给数组。然后,...
vb程序设计,求三个数的最大值和最小值,代码怎么打,尽量简单点不要太...
Val(InputBox("输入第2个数:"))z = Val(InputBox("输入第3个数:"))If x < y Then t = x x = y y = t End If If x < z Then t = x x = z z = t End If If y < z Then t = y y = z z = t End If Print "最大值:";x Print "最小值:";z ...
VB代码 求三个数中的最大数和最小数
for j= i+1 to 3 if a(i)》a(j) then temp=a(i)a(i)=a(j)a(j)=temp end if next j next i 这个代码是选择出最小数字的。比较方法还有很多,比如,直接排序法,冒泡排序法,等等。看你需要什么了,上面的方法是比较排序法,是最基础的,你因该能看的明白~祝你VB学习一路顺风!
VB 编写一个程序求3个数的最大和最小值
Picture1.Print "最大值是" & MaxABC & "," & MaxABC & "=" & Max End Sub Private Sub Command2_Click()Call MaxAndMin Picture1.Cls Picture1.Print "最小值是" & MinABC & "," & MinABC & "=" & Min End Sub Private Sub MaxAndMin()'定义3个变量存放3个text的值,并计算...