dim a,b
a=val(inputbox("a="))
b=val(inputbox("b="))
print a,b
c=a:a=b:b=c
end sub本回答被网友采纳
a=inputbox("请输入第一个数：")
b=inputbox("请输入第二个数：")
t=a
a=b
b=t
print a
print b本回答被网友采纳
VB inputbox 如何实现一个inputbox 输入框输入两个参数
private sub command1_click()a=inputbox("请按格式输入：参数1，参数2")b=split(a,",")print b(0),b(1)end sub
VB 将ab两个变量的值互换
Private Sub Form_Click()'请求用户给a和b输入值 Dim a As String, b As String a = InputBox("输入a的值", "输入信息")b = InputBox("输入b的值", "输入信息")'交换a和b的值 Dim c As String c = a a = b b = c '在窗体上输出变量交换前后的值 Print "交换后a的值为:" ...
...要求把各位和十位上的数字交换位置 这个程序如何编写?
Dim a As String re:a = InputBox("请输入一个两位数")If Len(Trim(a)) <> 2 Then MsgBox "请输入一个两位数", vbCritical GoTo re End If MsgBox "你输入的是:" & a & vbCrLf & "交换后是:" & Right(a, 1) & Left(a, 1)End End Sub ...
VB程序,我要用两个inputbox获取两个数a,b,然后再把这两个数定义到数组x...
Dim x(), a, ba = Val(InputBox("请输入a"))b = Val(InputBox("请输入b"))If a <= b Then ReDim x(a To b)Else MsgBox "a 不能大于 b ！" Exit SubEnd If'其他代码略……
利用输入函数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
使用vb求最大公约数的两种方法是什么?
VB用两种方法计算两个最大公约数，用inputbox输入两个数 第一种相减法 两整数a和b：① 若a>b，则a=a-b ② 若a<b，则b=b-a ③ 若a=b，则a（或b）即为两数的最大公约数，结束 ④ 若a≠b，则再回去执行① 第二种穷举法 ① i= a b中的小数 ② 若a，b能同时被i整除，则i即为...
VB用INPUTBOXL输整数
a = InputBox("输入a的值", "")b = InputBox("输入b的值", "")c = InputBox("输入c的值", "")If a < b Then z = a: b = a: b = z '先把这个较小值给z，把a的值给b，然后把较小值z传递给b，保证a最后存储大的数，b存储较小数 If a < c Then z = a: c = a...
怎么用VB求任意两个数的最小公倍数?
求两个数的最小公倍数，设有两个数 a，b (a>b)那么 最小公倍数就在a 到 a*b之间 可以采用 for 语句使 变量i 从 a变化到 a*b 一旦出现结果（符合条件 i 能被 a 整除 且 i能被b整除 ）就停止循环（exit for）下面是代码 Dim a&, b&, i&, result& a = Val(InputBox("输入...
VB 做 键盘输入两个数,求两个数的最大公约数和最小公倍
a = Val(InputBox("请输入第一个数", "第一个数", "1"))b = Val(InputBox("请输入第二个数", "第二个数", "1"))Min = 1 Do While 1 If (Min Mod a = 0 And Min Mod b = 0) Then Exit Do Min = Min + 1 Loop Max = IIf(a > b, b, a)Do While Max > 0 I...
输入两个数(由用户输入),VB编程实现输出两个数中最大的数
Private Sub Command1_Click()a = Val(InputBox("输入第1个数"))b = Val(InputBox("输入第2个数"))MsgBox "最大的数是:" & IIf(a > b, a, b)End Sub
