Dim n As Integer, x As Integer, y As Integer
n = Val(InputBox("请输入一个两位数"))
If n > 9 And n < 100 Then
x = n \ 10
y = n Mod 10
MsgBox "X+Y=" & (x + y) & vbCrLf & "X*Y=" & (x * y)
Else
MsgBox "输入错误！"
End If
End Sub
vb编程,将两位数分离位,个位,十位
Print "十位数："; a, "个位数："; b Print Print "个位和十位交换前后："y = x - 10 * a - b + 10 * b + a Print x, y End Sub
VB编程中怎样在一个窗口中显示函数x+y=z的x y z 都是可以输入的变量
2、在窗体模块加入以下代码(该源码已经过测试，你可将其复制过去用)：Dim xyz(2) As Long '存放x、y、z的值 Private Sub Text1_Change(Index As Integer)Dim str As String str = Trim(Text1(Index).Text)If IsNumeric(str) Then '如果输入的是数值保存输入的值 xyz(Index) = CLng(str)E...
VB表达式x+y=10表示将数值10赋给变量x+y 是否正确
If x + y = 10 Then ，意思是如果x+y=10，那么执行Then后面的语句
vb程序设计:输入X,Y,使X总大于Y,输出X的值。
Private Sub Form_Load()Dim x As Long, y As Long Dim a As Long x = InputBox("输入x值", "")y = InputBox("输入y值", "")If x < y Then x = y + 1 End If MsgBox x End Sub
...并将坐标进行计算 如:用鼠标获取X,Y的坐标 再计算X+Y=
MOUSEDOWN事件里面直接可以提取X,Y 从MOUSEDOWN事件栏可获取坐标值
VB程序中,x+y和"x+y"的区别
x+y是一个表达式，而"x+y"是一个字符串。欢迎访问我的论坛：）http:\/\/www.chinesebloger.com 期待您的支持：）
vb编程中2次方程求解
第二：先向<Y值方向取一个值，先设为－2,当然根据精度可以选更大跨度，比如－100；初始跨度一般选大先，也可以按输入的X、Z值来设定；这样可以加快渐进方式的靠近速度；这里我们按2的跨步先设定先下靠一步，然后计算出Y*(Y+1)=2,判断左右值，2＞－0.6,而且差值＝2.6,与第一步中的0.6...
1、使用Inputbox输入框输入两个数x、y,比较他们大小,使得x<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) Then MsgBox "你输入的不是整数"str = ""Else GetNum = CInt(str)End ...
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编程题 输入xyz三个数,按从小到大的次序显示
解题：先在窗体上画一个按钮，代码如下：Private Sub Command1_Click()Dim x!, y!, z!x = InputBox("input x")y = InputBox("input y")z = InputBox("input z")Print " 排序前："; x; " "; y; " "; z If x < y Then t = x: x = y: y = t If x < z Then ...
