VB 单键按钮时,用inputbox分别输入两个数x和y,比较它们的大小, 使得x大于y并分别打印输出。

如题所述

第1个回答  2009-09-25
Private Sub Command1_Click()
a = InputBox("输入第一个数!")
x = InputBox("输入第二个数!")
If a <= x Then
y = a
Else
y = x
x = a
End If
Print x & "|" & y
End Sub本回答被提问者采纳
第2个回答  2009-09-25
什么意思?比较大小,使x大于y?在Button的Click事件中添加:dim x as long dim y as long x=val(inputbox(具体参数自己看下,忘了)) y=inputbox if y>=x then x=y+1 print x print y ;自己添加回车,在手机上上的,不能打回车符号。

1、使用Inputbox输入框输入两个数x、y,比较他们大小,使得x<y。
Sub Judge()Dim x, y As Integer x = GetNum("X")y = GetNum("Y")If x < y Then MsgBox "X < Y"Else MsgBox "X >= Y"End If End Sub Function GetNum(s) As Integer Dim str As String Do While str = ""str = InputBox("", "请输入数" + s)If Not IsNumeric(str)...

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 输入两个数大数存于X小数存于Y
Private Sub Command1_Click()Dim X As Integer, Y As Integer, A, B A = Val(InputBox("输入一个数字:"))B = Val(InputBox("输入一个数字:"))If A > B Then X = A: Y = B Else X = B: Y = A End If Print "x=" & X & " Y=" & YEnd 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中怎样在inputbox函数中输入一组数并分别处理
'示例代码如下: Private Sub Form_Click() Dim a() As Integer Do x = Val(InputBox("请输入整数:")) If x <> -1 Then b = b + 1 ReDim Preserve a(b) a(b) = x If x > 0 Then z = z + 1 If x < 0 Then f = f + 1 Print a(b); " "; End If Loop Until...

用VB编写输入两个数,抽取两个数之间的整数
txtNumA和txtNumB分别是输入第一个数字(开始的那个数字)和第二个数字(结束的那个数字)的文本框 lblShow是输出提示文本,这个是一个lable控件 txtShow是输出满足条件的数,注意要将MultiLine属性设置成True(将文本框弄成多行文本框,默认是单行文本框),还有ScrollBars属性,设置成Vertical(下拉框选择...

利用inputbox输入三个数(x、y、z),使它们从大到小显示
Ok: boolean;begin tm := InputBox('等待输入', '请输入三个数值:', 'x=1000y=200z=30');xv := AnsiPos('x=', tm) + 2;yv := AnsiPos('y=', tm) + 2;zv := AnsiPos('z=', tm) + 2;Value3[0] := StrToIntDef(copy(tm, xv, yv - 2 - xv), 0);Value3[1] :...

vb编程题,输入3个数,然后输出其中的最大数
Dim x, y, z As Integer Private Property Max As Object Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load x = InputBox("键入第一个数")y = InputBox("键入第二个数")z = InputBox("键入第三个数")Max = x If Max < y...

VB 输入十个数,输出最大数和最小值。用InputBox
max < x Then max = x End If If min > x Then min = x End If Next MsgBox s & vbCrLf & "最大值为:" & max & " 最小值为:" & min End Sub 如果不给max,min赋值第一个输入的整数 结果是不正确的。因为这2个变量初始值为0,如果输入的10个数都是负数,结果就不正确了 ...

VB 输入一个两位整数,将其个位的数和十位的数分别输出
Dim x as Integer, g as Integer, s as Integerx =Val(InputBox("请输入一个数:", "提示窗口"))g = x mod 10s = x \\ 10MsgBox "个位=“ & g & "十位=" & s

相似回答