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
编写一段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编程 。 利用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编程实现输出两个数中最大的数
a = Val(InputBox("输入第1个数"))b = Val(InputBox("输入第2个数"))MsgBox "最大的数是:" & IIf(a > b, a, b)End Sub
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编程中,怎样编写输入两个数m和n,求大于m的n个素数的代码??
Dim n As Integer, sum As Integer, j As Integer TextBox1.Text = "" TextBox1.Text = TextBox1.Text & "所求的素数为：" & vbCrLf For i = 2 To 300 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j > i - 1 Then n =...
VB问题:编写两个数中较大数的函数过程!急求代码
Private Sub Command1_Click()Dim a, b a = Val(InputBox("a="))b = Val(InputBox("b="))Print a, b Call bj(a, b)End Sub Sub bj(a, b)If a > b Then Print "a>b"ElseIf a < b Then Print "a
用VB求最大值
在使用VB（Visual Basic）编程语言时，求取两个数值中的最大值是一个常见的任务。我们可以使用简单的条件语句（if语句）来实现这一目标。首先，我们需要获取两个数值。这里，我们假设用户通过文本框（Text控件）输入这两个数值。文本框名称分别为text1和text2。接着，我们编写代码以比较这两个数值。具体...
vb编写求两数中较大的数的Function过程 。利用该函数求3个数中的最大...
FunctionPrivate Sub Form_Click() '点击窗体运行Dim x1 As Long, x2 As Long, x3 As Longx1 = Val(InputBox("请输入第1个数"))x2 = Val(InputBox("请输入第2个数"))x3 = Val(InputBox("请输入第3个数"))MsgBox "这三个数的最大数是" & Max(Max(x1, x2), x3)End Sub ...
vb设计 输入两个正整数m和n,求他们的最大公约数和最小公倍数
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 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 = ...
