a = InputBox("请输入数字a")
b = InputBox("请输入数字b")
If a > b Then
Print "最大数字为" & a & (Chr(13) & Chr(10)) & "最小数字为" & b
Else
Print "最大数字为" & b & (Chr(13) & Chr(10)) & "最小数字为" & a
End If
End Sub本回答被提问者采纳
Dim a As Integer
Dim b As Integer
a = InputBox("", "")
b = InputBox("", "")
If Val(a) > Val(b) Then
Print "最大值：" & a
Print "最小值：" & b
Else
Print "最大值：" & b
Print "最小值：" & a
End If
End Sub
VB编程 。 利用inputbox函数输入两个整数,在窗体上输出它们中的最大...
Private Sub Command1_Click()a = InputBox("请输入数字a")b = InputBox("请输入数字b")If a > b Then Print "最大数字为" & a & (Chr(13) & Chr(10)) & "最小数字为" & b Else Print "最大数字为" & b & (Chr(13) & Chr(10)) & "最小数字为" & a End If End...
VB代码 从键盘上任意输入两个数,求其中的最大,最小数
两个数？Sub comp()i1 = InputBox("输入数1")i2 = InputBox("输入数2")If i1 > i2 Then MsgBox (i1 & "为最大" & i2 & "为最小")Else MsgBox (i2 & "为最大" & i1 & "为最小")End If End Sub
VB 做 键盘输入两个数,求两个数的最大公约数和最小公倍
Private Sub Command1_Click()Dim a As Long, b As Long, i As Long, j As Long, Max As Long, Min As Long a = Val(InputBox("请输入第一个数", "第一个数", "1"))b = Val(InputBox("请输入第二个数", "第二个数", "1"))Min = 1 Do While 1 If (Min Mod a = ...
如何使用vb求两个数的最大公约数和最小公倍数
m = InputBox("输入第一个自然数")n = InputBox("输入第二个自然数")If m < n Then t = m: m = n: n = t r = m Mod n Do While (r <> 0)m = n n = r r = m Mod n Loop End if MsgBox ("最大公约数为" & n)最小公倍数 Dim a%, b%, m a = InputBox(...
输入两个数(由用户输入),VB编程实现输出两个数中最大的数
Private Sub Command1_Click()a = Val(InputBox("输入第1个数"))b = Val(InputBox("输入第2个数"))MsgBox "最大的数是:" & IIf(a > b, a, b)End Sub
vb中用inputbox求两个数的最大值
Private Sub Form_Load()a = InputBox("")b = InputBox("")If a >= b Then MsgBox "最大值为a" & aElse MsgBox "最大值为b" & bEnd IfEnd Sub
vb设计 输入两个正整数m和n,求他们的最大公约数和最小公倍数
Private Sub Command1_Click()dim m,n,r ,min as integer m=text1.text n=text2.text do r=m mod n m=n n=r loop until r=0 text3.text=m min=val(text1.text)*val(text2.text)\/m text4.text=min end if (m是指第一个数，n是指第二个数,r是个参数,min是指最小公倍数...
编写一段vb程序 要求:输入两个任意数后输出较大数
Private Sub Command1_Click()Dim n As Single, m As Single n = InputBox("数据1", "输入", "100")m = InputBox("数据2", "输入", "100")Me.Cls Print "数据1="; n; "数据2="; m If n > m Then Print "较大数据为："; n Else Print "较大数据为："; m End If End...
用VB求解两个正整数M和N的最大公约数和最小公倍数
"请输入m的值:")) n = Val(InputBox("请输入n的值:")) Do If m < n Then temp = m: m = n: n = temp r = m Mod n If r <> 0 Then m = n n = r End If Loop Until (r = 0) Print n 最小公倍数算法： m乘以n再除以最大公约数 ...
利用输入函数InputBox()输入2个数字,转换成整数。比较大小,并用输出...
vb dim a,b as integer a=inputbox("请输入第一个数")b=inputbox("请输入第二个数")if a>b then msgbox(a)elseif b>a msgbox(b)else msgbox("两数相等")end if
