用VB,编一个程序,从键盘输入两个数,找出较大的一个数,并打印出来

现要求编写一个VB程序,输入两个正整数后比较大小输出较大数（代码）~

a = InputBox("1st number")b = InputBox("2nd number")If IsNumeric(a) And IsNumeric(b) Then If a > b Then Print a Else Print b End IfElse MsgBox "error"End If

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 Sub

private sub from_load()
dim a%,b%
a=msgbox("请输入第一个数：")
b=msgbox("请输入第二个数：")
if a>b then b=a
print "较大的数是：" & b
end sub

a = Val(InputBox("输入第一个数"))
b = Val(InputBox("输入第二个数"))
If a > b Then
MsgBox a
Else
MsgBox b
End If

Private Sub Command1_Click()
Dim a, b As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then
Print a
End If
End Sub

Sub Main()
Dim dbl第一个数 As Double
Dim dbl第二个数 As Double
Console.WriteLine("请输入第一个数：")
dbl第一个数 = Console.ReadLine()
Console.WriteLine("请输入第二个数：")
dbl第二个数 = Console.ReadLine()
Console.WriteLine("输入的两个数中最大的是：" & fun最大数(dbl第一个数, dbl第二个数))
Console.ReadLine()
End Sub
Private Function fun最大数(ByVal dbl第一个数 As Double, ByVal dbl第二个数 As Double) As String
If dbl第一个数 = dbl第二个数 Then
Return "两个数相等"
ElseIf dbl第一个数 > dbl第二个数 Then
Return dbl第一个数.ToString
Else
Return dbl第二个数.ToString
End If
End Function

好简单的程序啊...

---

黄冈市13312578733： 用VB,编一个程序,从键盘输入两个数,找出较大的一个数,并打印出来 - ？
公栋藿香： private sub from_load() dim a%,b% a=msgbox(＂请输入第一个数:＂) b=msgbox(＂请输入第二个数:＂) if a>b then b=a print ＂较大的数是:＂ & b end sub

黄冈市13312578733： VB考试题写程序:从键盘输入2个数,按照从小到大的顺序排列,写在单击窗体事件过程中, - ？
公栋藿香： 简单程序如下:(如果需要判断是否为数值啥的,再自己增加代码吧) Private Sub Form_Click() x = InputBox(＂请输入第一个数＂) y = InputBox(＂请输入第二个数＂) If x > y Then m = y & ＂ ＂ & x Else m = x & ＂ ＂ & y End If Print m End Sub

黄冈市13312578733： 用vb设计一个程序由用户输入两个数单击“求和”按扭可以将这两个数的和显示出来 - ？
公栋藿香： 添加一个按钮,复制以下代码运行即可:Private Sub Command1_Click() MsgBox ＂和:＂ & (Val(InputBox(＂请输入第一个数字:＂)) + Val(InputBox(＂请输入第二个数字:＂))) End Sub

黄冈市13312578733： 用VB编写一段代码,实现两串字符串交换连接,其中字符串由TEXTBOX控件输入 - ？
公栋藿香： .编写一个程序,将从键盘输入的两个字符串,将它们连接起来,要求利用指针abc def abcdef Press any key to continue #include

黄冈市13312578733： 用VB编写一个控制台,定义两个变量X,Y,从键盘上输入x,y,由程序计算值并输出结果 - ？
公栋藿香： 加两个编辑框就可以了. Private Sub Command1_Click()If Text2.Text = ＂+＂ ThenCommand1.Caption = ＂结果＂ & Str(Int(Text1.Text) + Int(Text1.Text))ElseIf Text2.Text = ＂-＂ ThenCommand1.Caption = ＂结果＂ & Str(Int(Text1.Text) - Int(...

黄冈市13312578733： vb编程设置题,从键盘上输入两个正整数,求最大公约数 - ？
公栋藿香： Private Sub Command1_Click() Dim a As Integer, b As Integer a = InputBox(＂a=＂) b = InputBox(＂b=＂) a1 = a: b1 = b Do r = a...

黄冈市13312578733： 急求用VB程序编程以下程序. 1.从键盘输入两个正整数M和N,求最大公因子. - ？
公栋藿香： 1 Private Sub Form_Click() Dim t As Single Dim i As Integer t = 12 i = 0 Do While t < 30 t = t + t * 0.01 i = i + 1 Loop Print i End Sub2 Private Sub Form_Click() Dim a, b, c, p As Single a = 0 b = 0 c = 0 Do While (a <> -1) And (b <> -1) And (c <> -1) a...

黄冈市13312578733： VB代码 从键盘上任意输入两个数,求其中的最大,最小数 - ？
公栋藿香： 两个数?Sub comp() i1 = InputBox(＂输入数1＂) i2 = InputBox(＂输入数2＂) If i1 > i2 ThenMsgBox (i1 & ＂为最大＂ & i2 & ＂为最小＂) ElseMsgBox (i2 & ＂为最大＂ & i1 & ＂为最小＂) End If End Sub

黄冈市13312578733： 用VB设计:求两个整数的最大公约数、最小公倍数.(两个整数从键盘输入).？
公栋藿香： private sub form_click() n=val(text1) m=val(text2) if n &lt;=0 or m&lt;=0 then print＂数据出错＂ end end if mn=m*n if m&lt;n then t =m:m=n:n=t do while(n&lt;&gt;0) r=m mod n m=n n=r loop print＂最大公约数=＂,m,chr(13)+chr(10) print＂最小公倍数=＂,mn/m end sub

黄冈市13312578733： VB从键盘任意输入两个正整数x,y,求出所有x与y之间偶数的和 - ？
公栋藿香： 你好!if x>y thenz=x x=y y=z end if if x> x=x+1 end if for i= x to y step 2 s=s+i next i print s 仅代表个人观点,不喜勿喷,谢谢.