VB 输入一个三位整数,并将其逆序输出。例如:输入123,输出321 求问过程错哪里了
作者&投稿:铎俊 (若有异议请与网页底部的电邮联系)
编程语言较多常用的有c,c++,java,c#,perl,Delphi等,我建议按Python->C++ 这个顺序学,
基本上学通这两种语言就够用了,最好在了解一下汇编和c就更好了。
python是一种脚本语言,简单易学,可跨平台运行(windows,linux,部分手机等),配合第三方库可以实现许多常用功能,例如建站,谷歌的搜索引擎就是用它开发的。
c++是经典的编程语言就不多说了。将python与c++结合起来编程威力强大。
但不知是否可以完全代替java等语言呢?有待检验。其他语言应该也有其各自优点和用途,只是编程语言很多,并且想真正学通一种语言很费时间,如果 将所有语言学会是不可能的,即使全部学会的话,真正应用起来大概只需一两种语言足以。
因此建议挑一两种常用且功能强大覆盖范围广的语言即可。
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
肥飞五子: 可以参考下面的代码: 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 "排序后的结果是:" ...