VB编程—如何输入数字并将其倒序输出结果？？？ 输入一个三位数，将其倒序输出？使用vb编程
\u5982\u4f55\u4f7f\u7528vb\u7f16\u7a0b\u8f93\u5165\u4e00\u4e2a\u4e09\u4f4d\u6570\uff0c\u5c06\u5176\u5012\u5e8f\u8f93\u51fa\uff1f\u4ee3\u7801\u5982\u4e0b\uff1a
#include
main()
{
int n,a,b,c;
scanf("%d",&n);
a=n/100;
b=(n/10)%10;
c=n%10;
printf("\n\u5012\u5e8f\u8f93\u51fa\u7ed3\u679c\uff1a%d%d%d",c,b,a);
getch();
}
Visual \uff0cBasic\u662f\u4e00\u79cd\u7531\u5fae\u8f6f\u516c\u53f8\u5f00\u53d1\u7684\u5305\u542b\u534f\u52a9\u5f00\u53d1\u73af\u5883\u7684\u4e8b\u4ef6\u9a71\u52a8\u7f16\u7a0b\u8bed\u8a00\u3002
\u4ece\u4efb\u4f55\u6807\u51c6\u6765\u8bf4\uff0cVB\u90fd\u662f\u4e16\u754c\u4e0a\u4f7f\u7528\u4eba\u6570\u6700\u591a\u7684\u8bed\u8a00\u2014\u2014\u4e0d\u4ec5\u662f\u76db\u8d5eVB\u7684\u5f00\u53d1\u8005\u8fd8\u662f\u62b1\u6028VB\u7684\u5f00\u53d1\u8005\u7684\u6570\u91cf\u3002\u5b83\u6e90\u81ea\u4e8eBASIC\u7f16\u7a0b\u8bed\u8a00\u3002
VB\u62e5\u6709\u56fe\u5f62\u7528\u6237\u754c\u9762\uff08GUI\uff09\u548c\u5feb\u901f\u5e94\u7528\u7a0b\u5e8f\u5f00\u53d1\uff08RAD\uff09\u7cfb\u7edf\uff0c\u53ef\u4ee5\u8f7b\u6613\u7684\u4f7f\u7528DAO\u3001RDO\u3001ADO\u8fde\u63a5\u6570\u636e\u5e93\uff0c\u6216\u8005\u8f7b\u677e\u7684\u521b\u5efaActiveX\u63a7\u4ef6\u3002
\u7a0b\u5e8f\u5458\u53ef\u4ee5\u8f7b\u677e\u7684\u4f7f\u7528VB\u63d0\u4f9b\u7684\u7ec4\u4ef6\u5feb\u901f\u5efa\u7acb\u4e00\u4e2a\u5e94\u7528\u7a0b\u5e8f\u3002
\u4ee3\u7801\u5982\u4e0b\uff1a
#include
main()
{
int n,a,b,c;
scanf("%d",&n);
a=n/100;
b=(n/10)%10;
c=n%10;
printf("\n\u5012\u5e8f\u8f93\u51fa\u7ed3\u679c\uff1a%d%d%d",c,b,a);
getch();
}
Visual \uff0cBasic\u662f\u4e00\u79cd\u7531\u5fae\u8f6f\u516c\u53f8\u5f00\u53d1\u7684\u5305\u542b\u534f\u52a9\u5f00\u53d1\u73af\u5883\u7684\u4e8b\u4ef6\u9a71\u52a8\u7f16\u7a0b\u8bed\u8a00\u3002
\u4ece\u4efb\u4f55\u6807\u51c6\u6765\u8bf4\uff0cVB\u90fd\u662f\u4e16\u754c\u4e0a\u4f7f\u7528\u4eba\u6570\u6700\u591a\u7684\u8bed\u8a00\u2014\u2014\u4e0d\u4ec5\u662f\u76db\u8d5eVB\u7684\u5f00\u53d1\u8005\u8fd8\u662f\u62b1\u6028VB\u7684\u5f00\u53d1\u8005\u7684\u6570\u91cf\u3002\u5b83\u6e90\u81ea\u4e8eBASIC\u7f16\u7a0b\u8bed\u8a00\u3002
VB\u62e5\u6709\u56fe\u5f62\u7528\u6237\u754c\u9762\uff08GUI\uff09\u548c\u5feb\u901f\u5e94\u7528\u7a0b\u5e8f\u5f00\u53d1\uff08RAD\uff09\u7cfb\u7edf\uff0c\u53ef\u4ee5\u8f7b\u6613\u7684\u4f7f\u7528DAO\u3001RDO\u3001ADO\u8fde\u63a5\u6570\u636e\u5e93\uff0c\u6216\u8005\u8f7b\u677e\u7684\u521b\u5efaActiveX\u63a7\u4ef6\u3002
\u7a0b\u5e8f\u5458\u53ef\u4ee5\u8f7b\u677e\u7684\u4f7f\u7528VB\u63d0\u4f9b\u7684\u7ec4\u4ef6\u5feb\u901f\u5efa\u7acb\u4e00\u4e2a\u5e94\u7528\u7a0b\u5e8f\u3002
2、然后用n循环
注：循环体内用left(字串，x)得到该字符串的第x个字母。x反着循环，按这顺序依次加进一个新的字符串变量即可。
如果用方法那么就用楼上的
如果想自己写
那么你就把输入的数字拆分，用数组存放，然后倒序输出这个数组就可以了
用StrReverse函数
msgbox StrReverse("123456")
绛旓細1銆佺敤len(瀛椾覆)寰楀埌杈撳叆瀛楃涓茬殑闀垮害n 2銆佺劧鍚庣敤n寰幆 娉細寰幆浣撳唴鐢╨eft(瀛椾覆锛寈)寰楀埌璇ュ瓧绗︿覆鐨勭x涓瓧姣嶃倄鍙嶇潃寰幆锛屾寜杩欓『搴忎緷娆″姞杩涗竴涓柊鐨勫瓧绗︿覆鍙橀噺鍗冲彲銆
绛旓細鐢⊿trReverse鍑芥暟锛屽彲浠ヨ繘琛岀炕杞搷浣 Private Sub Command1_Click()Dim s As String s = InputBox("璇杈撳叆瑕佸掔疆鐨鏁板瓧", "娴嬭瘯")If s <> "" Then s = StrReverse(s)MsgBox s End If End Sub 缈昏浆鍚庯紝浣犲彲浠ヨ浆鎹㈢被鍨嬫垚鏁板鍨嬬殑锛岀敤浜庤繍绠...銆
绛旓細Private Sub Command1_Click()x = CLng(InputBox("璇杈撳叆涓涓暣鏁帮細"))y = 0 X1 = x While X1 > 0 y = y * 10 + X1 Mod 10 '灏唜1涓殑鏈綅鏁板瓧娣诲姞鍒皔鏈綅 X1 = X1 \ 10 '灏哫1鐨勬湯浣嶅幓闄 Wend MsgBox x & " 鏁板瓧鍊掕浆鍚庢槸 " & y End Sub ...
绛旓細Private Sub Command1_Click()Dim a(5)For i = 1 To 5 a(i) = InputBox("杈撳叆绗" & i & "涓鏁板瓧锛")Next For i = 5 To 1 Step -1 Print a(i)Next End Sub
绛旓細鐩存帴鐢⊿trReverse鍑芥暟鍗冲彲杩斿洖鍊掑彊,姣斿:StrReverse("1abc23")="32cba1"濡傛灉涓瀹氳鐢ㄥ惊鐜殑璇,灏辩敤浠ヤ笅鏂规硶 Dim Str1 As String, Str2 As String, I As Long 'Str1涓哄緟杞崲瀛楃涓 For I = Len(Str1) To 1 Step -1 Str2 = Str2 + Mid(Str1, I, 1)Next '鎶奡tr1鍊掑彊鎺掑垪骞朵繚瀛樺湪...
绛旓細Private Sub Command1_Click()Dim a(1 To 10) As Integer Dim i As Integer For i = 1 To 10 n = InputBox("璇杈撳叆绗" & i & "涓鏁板瓧锛", "鎻愮ず锛")a(i) = n Next i Print "杈撳叆鐨勬暟瀛椾负锛"For i = 1 To 9 Print a(i);Next i Print Print "杈撳嚭鐨勬暟瀛椾负锛"For i =...
绛旓細鈥欏湪鏁扮粍鎸囧畾绱㈠紩鍊肩殑浣嶇疆鎻掑叆鏁版嵁 arr.clear锛堬級 '娓呴櫎鎵鏈夋暟缁勫厓绱 arr.indexof锛堬級 鈥欒繑鍥炴暟缁勪腑绗竴涓鍚堟寚瀹氬璞＄殑绱㈠紩鍊硷紝鏈壘鍒拌繑鍥炶礋鍊 arr.binaryserach锛堬級 鈥欏湪鏁扮粍涓鎵炬寚瀹氬璞★紝鎵惧埌杩斿洖璇ュ璞＄殑绱㈠紩锛屽惁鍒欒繑鍥炶礋鍊硷紱姝ゆ柟娉曚娇鐢ㄥ墠锛屽繀椤诲厛灏嗘暟缁勪綔鍗囧簭鎺掑垪锛庝互涓VB2005鐗堟湰閫傜敤 ...
绛旓細for i = 0 to 4 temp = A( 10 - i ) 'A( 10 - i ) 璧嬬粰涓棿鍙橀噺 temp A( 10 - i ) = A( 1 + i ) 'A( 10 - i ) 绛変簬 A( 1 + i )A( 1 + i ) = temp ' A( 1 + i ) 绛変簬涓棿鍙橀噺 temp next
绛旓細Private Sub Command1_Click()Dim a(10) As Integer Dim str As String Dim temp As Integer str = ""For i = 1 To 10 a(i) = InputBox("璇杈撳叆绗" & i & "涓鏁板瓧")str = str & a(i) & " "Next i str = str & vbCrLf For i = 1 To 5 temp = a(i)a(i) = a(...
绛旓細鍦═ext鎺т欢 Text1 鐨勬秷鎭搷搴斿嚱鏁癟ext1_Change()閲屽啓涓 1)a =Text1 2)a =Text1.text 3)a= int(Text1.text)4)a= CInt(Text1.text)5)a= CLng(Text1.text)6)a= CSng(Text1.text)7)a= CDbl(Text1.text)浠婚変竴涓氨鍙互浜
