Function xx(ByVal aa As String) As String
Dim longth As Integer
Dim i As Integer
longth = Len(aa)
For i = longth To 1 Step -1
xx = xx & Mid(aa, i, 1)
Next
End Function本回答被提问者和网友采纳
i,j,k:longint;
a:string;
begin
readln(a);
for i:=length(a) downto 1 do write(a[i]);
end.追问
厄，看不懂，汗，跟我们书上编三位数的程序差很多，
书上是X1=X\100
X2=(X-X1*100)\10
X3=X-X1*100-X2*10
DIM X AS LONGLE
X=INPUTBOX
要像这样编的
...程序要求如下:输入任意大于一位的整数,反向输出。如输入12345...
include <stdio.h> int main(){ int n;while(scanf("%d",&n)!=EOF){ while(n%10!=0){ printf("%d",n%10);n=n\/10;} printf("\\n");} return 0;}
用vb编程 分离一个五位数 例如12345 可以用取整、取余、或者10^n 这 ...
例如：13 Mod 5 = 3 利用以上2个运算符，可以得到一些特殊而有趣的结果：12345 \\ 10000 = 1 12345 \\ 1000 = 12 12345 \\ 100 = 123 12345 \\ 10 = 1234 12345 mod 10000 = 2345 12345 mod 1000 = 345 12345 mod 100 = 45 12345 mod 10 = 5 利用举例：Private Sub Command1_Clic...
vb有一个5位数的数字n,如何提取出各个位数
‘一 Private Sub Form_Load()Dim num As Long, str As String num = 12345 str = CStr(num) '将长整型转为字符串 MsgBox Mid(str, 1, 1) 'mid是从字符串里取出字符，第一个参数是从哪个字符串中取,第二个参数是取出的位置，第三个是取出的个数， 例如：(str,1,1) 是 1， (str,...
求编一个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的编程,输入任意的一个正整数 要把它逆序输出?
最简单的方法：MsgBox StrReverse(InputBox("请输入一个正整数："))符合你题意的方法：Dim s1 As String, s2 As String, i As Integer s1 = InputBox("请输入一个正整数：")For i = Len(s1) To 1 Step -1 s2 = s2 & Mid(s1, i, 1)Next MsgBox s2 ...
VB程序设计 从键盘输入一个正整数,输出各位数字的和。
Dim bValid As Boolean xIn = InputBox("从键盘输入一个正整数","输入",12345)xIn = Trim(xIn)bValid = True xTotal = 0 For i = 1 To Len(xIn)cIn = Mid(xIn,i,1)If cIn >= "0"And cIn <= "9"Then xTotal = xTotal + Val(Mid(xIn,i,1))Else bValid = False End If N...
编写程序输出以下结果 1 12 123 1234 12345
字符串相加结合循环 cadd="" VB(DIM CADD AS STRING) for i=1 to n for j=i to 1 cadd=cadd+str(j,1) endfor ??cadd，"……" endfor
...帮我把12345这几个数字按6个一组排列出来,例如123451这样按顺序排 ...
在A1:A5写上你要排列的5 个字符！鼠标右击Sheet1的标签，点【查看代码】，在代码窗口粘贴下面的代码：Sub ouyangff()t = 11 For i = 1 To 5 For j = 1 To 5 For k = 1 To 5 For l = 1 To 5 For m = 1 To 5 For n = 1 To 5 Cells(t, 1) = Cells(i, 1) & Cells...
求VB程序-求所输入数据及其变换形式是否为素数 邮箱1002040993@qq.com...
If Else Text2.Text = Text1.Text & "不是数值，请重新输入"Text1.Text = ""Text1.SetFocus End If End Sub Private Function isprime(ByVal n As Integer) As Boolean isprime = True For i = 2 To n - 1 If n Mod i = 0 Then isprime = False: Exit For Next End Function ...
VB中,如果登录界面的用户名称是jenny,密码是12345,点确定按钮就进入一个...
登陆界面为form1，加一个Text1，输入用户名，text2，输入密码，一个按钮，用来登陆，进入的主界面为form2，代码如下 Private sub command1_click()if text1.text="jenny" and text2.text="12345" then form2.show else msgbox ("用户名不存在或密码错误！")end if end sub ...
