求编一个VB程序？输入一个三位整数，然后将它反向输出？
a=inputbox("请输入一个数")
for i=1 to len(a)
b=mid(a,i,1)+b
next i
print b
这个不管是几位数都可以判断
最简单的方案，试验通过。
代码：
Dim a, b As String
Private Sub Command1_Click()
a = Text1.Text
b = StrReverse(a) '反向字符串
Text2.Text = b
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
扩展资料：
VB基本函数
CBool 函数： 返回已被转换为 Boolean 子类型的变体的表达式。
CByte 函数： 返回已被转换为字节子类型的变体的表达式。
CCur 函数 ：返回已被转换为货币子类型的变体的表达式。
CDate 函数： 返回已被转换为日期子类型的变体的表达式。
CDbl 函数： 返回已被转换为双精度子类型的变体的表达式。
参考资料来源：百度百科-Visual Basic
第一点：5分直接的个答案分够了，想学点知识就不够
第二点：输入一个三位整数，然后将它反向输出？有三个方法
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
楼上的算法虽然没错，不过没有考虑到如果个位是0的情况，所以应该将3个数都转为字符然后再输出，当然，我不知道楼主是否是想要的这样的结果
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
msgbox strreverse(inputbox("请输入三位整数"))
private sub command1_click()
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
VB编程:输入一合法的3位正整数,先后逆序输出并显示。如:输入“128...
1) If IsNumeric(s) = True Then s = StrReverse(s) MsgBox s '或者 ActiveSheet.Cells(1, 1)= s Else MsgBox "Is not Numeric" End IfEnd Sub
1. 输入一个三位整数,将数字位置重新排列,组成一个尽可大的三位数。求...
n = InputBox("请输入一个三位数")a = n Mod 10 b = Int(n \/ 10) Mod 10 c = Int(n \/ 100)If b < c Then d = b b = c c = d End If If a < b Then d = a a = b b = d End If If b < c Then d = b b = c c = d End If e = a * 100 + b...
vb题目:输入一个三位正整数,输出其个,十,百位数字。。
Private Sub cmdOK_Click()labResult.Caption = "个位数据为:" + Left(txtNumbers.Text, 1) + "十位数据为:" + Mid(txtNumbers.Text, 2, 1) + "百位数据为:" + Right(txtNumbers.Text, 1)End Sub
[VB]输入一个合法的3位正整数,测试其数值合法性后,逆序输出并显示,例 ...
strN2 = strN2 + Mid$(strN1, i, 1)Next txtNum2 = strN2 在实现“逆序”程序中，我是把输入内容按字符串进行处理的，原因主要是 (1)、不知道输入数字长度的大小，(2)、如果数字最后一位是0的话，也能明确看到结果。3、如果你确定输入是三位数字的话，直接转换：txtNum2 = (txtNum1 ...
vb任意输入3个整数,按照由小到大排序输出。
Private Sub Command1_Click()Dim a As Single, b As Single, c As Single,t as single a = val(Text1.Text)b = Teval(xt2.Text)c = val(Text3.Text)If a > b Then t=b:b=a:a=t If a > c Then t=c:c=a:a=t If b > c Then t=c:c=b:b=t Text1.Text = ...
VB 输入一个三位整数,并将其逆序输出。例如:输入123,输出321 求问过程...
Private Sub Form_Load()Dim x As Integer, s As String, d As String Randomize x = Int(9000 * Rnd + 1000)s = CStr(x)d = Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)Show Print "产生的数:"; x, "倒数："; d End Sub ...
输入一个三位数,分别求出百,十,个位数各为多少?vb语言程序设计
private sub command1_click()a=val(inputbox("输入一个三位数"))if a>=100 and a<=999 then print "百位数: "; a\\100 print "十位数: "; a\\10 mod 10 print "个位数: "; a mod 10 else print a; "不是三位数！"end if end sub ...
编写VB程序,从键盘上输入三个整数,输出绝对值最小的数
Private Sub Command1_Click()a = Abs(InputBox("请输入第一个整数", "输入数据"))b = Abs(InputBox("请输入第二个整数", "输入数据"))c = Abs(InputBox("请输入第三个整数", "输入数据"))Min = a If b < Min Then Min = b End If If c < Min Then Min = c End If Prin...
编程,输入一个三位整数,将其分解出百位,十位,各位,并求出各位之和以及...
int argc,char**argv){ int input=0;printf("请输入三位的整数（100~999）,如果输入0则退出程序：\\n\\n");while(1){ if(scanf("%d",&input)==1){ if(input==0){ break;}else { GetResult(input);} }else{ printf("无效的输入，跳过返回...\\n");} } return 0;} 运行结果：...