VB 输入一个三位整数，并将其逆序输出。例如：输入123，输出321 求问过程错哪里了

新手应该学习什么编程语言？~

编程语言较多常用的有c,c++,java,c#,perl,Delphi等，我建议按Python->C++ 这个顺序学，
基本上学通这两种语言就够用了，最好在了解一下汇编和c就更好了。
python是一种脚本语言，简单易学，可跨平台运行（windows，linux，部分手机等），配合第三方库可以实现许多常用功能，例如建站，谷歌的搜索引擎就是用它开发的。
c++是经典的编程语言就不多说了。将python与c++结合起来编程威力强大。
但不知是否可以完全代替java等语言呢？有待检验。其他语言应该也有其各自优点和用途，只是编程语言很多，并且想真正学通一种语言很费时间，如果 将所有语言学会是不可能的，即使全部学会的话，真正应用起来大概只需一两种语言足以。
因此建议挑一两种常用且功能强大覆盖范围广的语言即可。

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

---

朝阳区17664321102： 求编一个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基本函数 CBool 函数: ...

朝阳区17664321102： 求vb高手解答1、 输入一个3位正整数,并之逆序输出.例如,输入345,则输出543,完善下列程序. Private Sub Form - Click()Dim a%, b%, c%, m%M=val... - ？
肥飞五子：[答案] 1.a = m \100 b= (m mod 100) \10 c & b & a2. X=X + 10 Form1.Left = X3.Unload Form1 Form2.Show4.For i = 1 to 9 If s = i^3 + j^3 + k^3 then Next i

朝阳区17664321102： VB 随机输入一个3位数正整数,然后逆序输出,产生的随机数与逆序数同时显示利用Mod跟“/”来编码 - ？
肥飞五子：[答案] 规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.Private Sub Command1_Click()Dim a As Integer,b As Integer,c As IntegerDim i As Integer,j As Stringi = 100 + Int(Rnd * 900)a = Int(i / 100)b = i Mo...

朝阳区17664321102： vb中,要将一个三位数的顺序颠倒一下,应该怎么做 - ？
肥飞五子： StrReverse是提取字符并反向输出,别说3位数就是30位也可以.Private Sub Command1_Click()a = Text1.Text a = StrReverse(a) Print a End Sub

朝阳区17664321102： 用vb编程:输入一个三位数,然后按逆序输出 如123 - >321 - ？
肥飞五子： a=StrReverse(123) 'a=＂321＂ 注意结果是字符串,要得到数,再转换一下 a=Val(StrReverse(123))

朝阳区17664321102： VB设计一个窗体,输入一个三位整数,将它反向输出.例如输入123,输出着为321,程序代码怎么写 - ？
肥飞五子： 最简单的方案,试验通过. 代码: Dim a, b As String Private Sub Command1_Click() a = Text1.Text b = StrReverse(a) '反向字符串 Text2.Text = b End Sub

朝阳区17664321102： vb语言逆序数的代码三位数 - ？
肥飞五子： Private Function NiXuShu(ByVal l As String) As Long Dim i As Integer, j As Integer, c As Long Dim n() As Integer ReDim n(Len(l)) For i = 1 To Len(l) n(i) = Val(Mid(l, i, 1)) For j = 1 To i - 1 If n(i) c = c + 1 End If Next j Next i NiXuShu = c End Function 这个子函数就是求逆序数的,不止是三位654123的逆序数是5+4+3+0+0+0=12 望采纳.....

朝阳区17664321102： [VB]输入一个合法的3位正整数,测试其数值合法性后,逆序输出并显示,例如,输入＂734＂,输出是＂437＂,如图1所示 - ？
肥飞五子： (1)if keycode=13 then if isnumeric(text1.text)=true then if val(text1.text)<100 or val(text1.text)>999 then msgbox ＂你输入的整数不合法 100-999＂ exit sub else msgbox ＂输入合法＂ end if end if (2) Private Sub Command1_Click() Dim a As Integer, ...

朝阳区17664321102： vb编程实现:随机产生一个3位正整数,逆序输出. - ？
肥飞五子： Private Sub Form_Load()Dim i As IntegerDim temp As IntegerDim result As StringRandomizeFor i = 1 To 3temp = Rnd * 10If temp = 10 Then temp = 1result = result & Trim(Str(temp))NextPrint ＂随机数:＂ & resultPrint ＂反转后:＂ & StrReverse(result) End Sub

朝阳区17664321102： VB题:随机产生一个3位正整数,然后逆序输出,如734,输出437.不要像之前百度上回答一样的,那些都不对的提示:利用运算符“Mod”和“/”将一个3... - ？
肥飞五子：[答案] Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer d = Int(Rnd * 899) + 100 Print ＂随机产生的数是:＂ & d a = d \ 100 b = (d / 10) Mod 10 c = d Mod 10 e = a + b * 10 + c * 100 Print ＂排序后的结果是:＂ ...