求编一个VB程序？输入一个三位整数，然后将它反向输出？
输入一个三位整数，然后将它反向输出？
我在学VB，这个程序的思维是怎么的？具体工式如下：
X1=X-\100.
X2=(X-X1*100)\10.
X3=X-X1*100-X2*10.
能不能举个列解释下？
可以参考下面的代码：
private sub command1_click()
x=inputbox("输入一个三位数")
X1=X\100 'x1=三位数 的百位
X2=(X-X1*100)\10 '十位
X3=X-X1*100-X2*10 '个位
msgbox X3&X2&X1
end sub
扩展资料：
VB基本函数
CBool 函数： 返回已被转换为 Boolean 子类型的变体的表达式。
CByte 函数： 返回已被转换为字节子类型的变体的表达式。
CCur 函数 ：返回已被转换为货币子类型的变体的表达式。
CDate 函数： 返回已被转换为日期子类型的变体的表达式。
CDbl 函数： 返回已被转换为双精度子类型的变体的表达式。
参考资料来源：百度百科-Visual Basic
第二点：输入一个三位整数，然后将它反向输出？有三个方法
a)最简单的就是使用StrReverse函数
Private Sub CommandButton1_Click()
x = InputBox("Please input x:")
MsgBox StrReverse(x)
End Sub
b)还可以使用字符截取函数rignt, left, mid
Private Sub CommandButton2_Click()
x = InputBox("Please input x:")
MsgBox Right(x, 1) & Mid(x, 2, 1) & Left(x, 1)
End Sub
c)然后就是你那个思路
Private Sub CommandButton3_Click()
Dim a As Integer, b As Integer, c As Integer
x = InputBox("Please input x:")
c = x Mod 10
b = (x - c) / 10 Mod 10
a = (x - 10 * b - c) / 100
MsgBox c & b & a
End Sub本回答被提问者采纳
private sub command1_click()
x=inputbox("输入一个三位数")
X1=X\100 'x1=三位数 的百位
X2=(X-X1*100)\10 '十位
X3=X-X1*100-X2*10 '个位
msgbox X3&X2&X1
end sub
x=inputbox("输入一个三位数")
X1=X\100.'x1=三位数 的百位
X2=(X-X1*100)\10.'十位
X3=X-X1*100-X2*10.‘个位
print x3*100+x2*10+x1
end sub
求编一个VB程序?输入一个三位整数,然后将它反向输出?
private sub command1_click()x=inputbox("输入一个三位数")X1=X\\100 'x1=三位数 的百位 X2=(X-X1*100)\\10 '十位 X3=X-X1*100-X2*10 '个位 msgbox X3&X2&X1 end sub
输入一个三位数整数,将它反向输出。例如输入127,输出应为721
a%10得到个位数；（a\/10）%10得到十位数；a\/100得到百位数。回答完毕，谢谢。
vb中,要将一个三位数的顺序颠倒一下,应该怎么做
x="123"x=right(x,1) & mid(x,2,1) & left(x,1)此时x即是"321"了。
vb反向输出?
number = Val(InputBox("请输入一个非负整数"))If (number < 0) Then Debug.Print number; "不是非负整数，请输入非负整数"Exit Sub End If Debug.Print number; "的逆序数为:";Do digit = number Mod 10 '（1）number = number \\ 10 '（2）Debug.Print Format(digit, "#");Loop...
...十位数和个位数及反向输出这个数,求代码 vb
private sub command1_click()randomize a=int(rnd*900)+100 '产生100~999之间的随机数 print "随机数："; a print "百位数："; a\\100 print "十位数："; a\\10 mod 10 print "个位数："; a mod 10 print "反向输出："; StrReverse(a)end sub ...
设计一个窗体,输入一个三位整数,将其反向输出.例如输入246,输出642.
在窗体上放一个文本框,名为text1,再放一个按钮,名为command1 最后在代码里写入:Private Sub Command1_Click()Dim str, str1 str = Form1.Text1.Text str1 = StrReverse(str)Print str1 End Sub
用VB编写一个函数,输入一串字符,然后将其颠倒显示,如何编写?
同意StrReverse StrReverse函数 描述 返回一个字符串，其中一个指定子字符串的字符顺序是反向的。语法 StrReverse(string1)参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。如果string1为Null，则产生一个错误。
输入一组数据,使其反向输出,用VB如何编程,很急
把一组数据放在一个数组里,就可以了 dim a(10) as single '输入数据 for i=0 to 10 a(i)=val(inputbox("输入数据:"))next '输出 for i=10 to 0 step -1 print a(i),next print
VB编程里,输入一段字符,反方向显示它。如输入123,显示321
StrReverse(str)楼主，StrReverse函数是返回指定字符串的反向字符串，参数str的值并不一定非要是123才行 可能楼上写法有些错误，参数要为字符串型，返回值也是字符串型，比如：StrReverse("abc")="cba"StrReverse("123")="321"StrReverse("")=""StrReverse(null) 当参数为null报错 ...
求VB反相输出代码
2，在窗体里放置一个按钮，按钮name属性设置为command1。然后再窗体中添加下列代码：Public strDone As String '存储转换后的字符串 Public iStrLen As Integer '存储字符串的长度 Public strInput As String '存储输入的字符串 Private Sub Command1_Click()strInput = InputBox("输入你想进行反向的...
