一道vf程序设计题,请输入数字,逆序输入。比如输入123 输出321 麻烦高手速帮我解决,在线等。
input to n 读入字符串存到N中
a=len(n) 取字符串的长度存到A中
k='' 创立一个空字符
for i = 1 to a
k=substr(n,i,1)+k
endfor 倒序循环
? k 输出结果
#include
int main(void)
{
int a,b,c,d,e;
printf("请输入一个三位数:");
scanf("%d",&a);
b = a/100;
c = (a-b*100)/10;
d = a-b*100-c*10;
e = d*100+c*10+b;
printf("逆序输出:%d", e);
return 0;
}
input "请输入一个数:" to x
y=alltrim(str(x))
s=""
for i=len(y) to 1 step -1
s=s+substr(y,i,1)
endfor
?val(s)
input “请输入一个数" to x
x1=int(x/100)
x2=int(mod(x,100)/10)
x3=mod(x,10)
?x1+x2*10+x3*100
一楼的太麻烦了,还用到了循环程序,二楼的压根就不是vf!
Void reverse sq-list&L
{
for(i=1,j=L.length;i<j;i++,j--)
elem[i]<—>elen[j];
}
VF表单操作题:设计一程序,求1到100以内奇数
单机计算按钮,先清除列表框中原来的内容,然后显示结果 以上是不是清空用户屏幕的意思??clear for k=1 to 100 if mod(k,2)<>0 ??k endif endf
vf 急 在线等
四.操作题 前3道题要在你自己的电脑上才能完成。4.查询学生的成绩结果中包含姓名、成绩、学号、课程号字段,命名为:cx。程序设计 1.编制一段程序计算S=1+2+3+4+5+……+N 其中N为输入的值 clear s=0 input "请输入N的值:" to n for i=1 to n s=s+i endfor ?"S=1+2+3+4...
求助:VF程序设计的问题
第一步:编写查找并显示指定学生档案数据的程序D\\XS\\DISPA1_P.PRG 分析:程序需要完成的主要操作如下。(1)在当前工作区打开XSDA.DBF (2)用户输入学号 (3)在当前表中查找该学号。(4)显示当前表的当前记录。(5)关闭XSDA.DBF,结束程序运行。使用Visual FoxPro的命令实现以上操作,编写程序语句...
问一个关于VF程序设计的问题,感谢!!!
clear for i=1 to 35 j=35-i if 4*i+2*j=94 ?"鸡有",j,"只"?"兔有",i,"只"endif endfor
10道编程题、、VF高手进啊、、急急急!!!高分!!!
1、clear text 一元二次方程求解 ax^2+bx+c=0 endtext input "请输入a的值:" to a input "请输入b的值:" to b input "请输入c的值:" to c m=b*b-4*a*c if m>=0 x1=(-b+sqrt(m))\/(2*a)x2=(-b-sqrt(m))\/(2*a)?"x1的值是:",x1 ?"x2的值是:",x2 els...
vf程序设计1到100之间的偶数之合
set talk off s=0 &&s计合,初值为0 for i=2 to 100 step 2 &&i从2变化到100,每次加2 s=s+i &&循环求和 endfor ?s &&显示结果 set talk on
VF,设计一个计算分段函数的程序,从键盘输入一个X,根据X计算函数的值...
input "x=" to x do case case x<0 y=2*x-1 case y<5 y=3*x+5 case y<8 y=x+2 case y<12 y=4*x-5 other y=7*x+5 endcase ?"Y=",y
求解VF例题,谢过~
7、数据库设计包括概念设计、_物理___设计和__逻辑___设计。8、在二维表中,元组的___属性__不能再分成更小的数据项。9、RIGHT(“12345.6789”,LEN(“货币”))的计算结果是___"6789"___。10、每个数据库表可以建立多个索引,但是___主___索引只能建立一个。11、在VF中,用LOCATE ALL ...
VF程序设计 public与private的问题
SET TALK OFF CLEAR PUBLIC A && 公有变量A STORE 3 TO A,B && 公有A,私有B均赋值3 DO CX1 && 调用过程后公有A、本层私有B并未改变,公有S改变为2 S=S+A+B && 公有S被赋值2+3+3 =8 ?S && 显示8 SET TALK ON RETUN PROECDURE CX1 PUBLIC S && 公...
Visual FoxPro程序设计
唉,发表了些意见,变到楼下了,呵呵!真没想到,还有这种人,呵呵!我可以把程序修改一下,对于"显示图形"的程序,你可以输入任何数,都可以按要求显示,不过现在不行,有人的行为让我很不齿,剽窃了我的程序!!就是三楼的(原先是四楼)如果需要,你把问题补充一下就行了或留个邮箱号,我直接把程序打包给你....
褒阮壮源: dime xy(5) clear for i=1 to 5 input "输入数字" to xy(i) next for j=5 to 1 step -1 ? xy(j) next
抚顺县18047093431: 设计一个vf 程序 :输入10个数字,将其反序输出~ 谢谢 - ?
褒阮壮源: a(11-i) ;请输入第"反转;输入的序列是:" for i=1 to 10 ?, endfor 倒序排列: clear Dimension a(10) for i=1 to 10 input "? "反序后:" for i=1 to 10 ?:": clear Dimension a(10) for i=1 to 10 input "请输入第" + str(i:" for i=1 to 10...
抚顺县18047093431: vf程序题:输入一个三位数,将其反向输出.如输入314,输出413 - ?
褒阮壮源: 我用VB6.0回答 简单一点做法 把输入用字串处理 Option Explicit Private Sub Command1_Click() Dim inString As String, outString As String Dim i As Long, length As Long inString = InputBox("请输入一数") length = Len(inString) For i = 1 To ...
抚顺县18047093431: vf程序,表单设计,输入一个三位数,逆序输出 - ?
褒阮壮源: x=alltrim(thisform.text1.value) if len(x)<>3 messagebox("不是三位数") return endif y=substr(x,3,1)+substr(x,2,1)+substr(x,1,1) thisform.text2.value=y
抚顺县18047093431: 利用VF编写一个五位数逆序显示的程序 - ?
褒阮壮源: ACCEPT "请输入一个五位数:" TO s v="" FOR i=LEN(s) TO 1 STEP -1 v=v+SUBSTR(s,i,1) ENDFOR?v
抚顺县18047093431: 11、输入一个三位数,将其反向输出.用VF?
褒阮壮源: 新建一个程序(文件菜单——新建——程序——新建文件),写代码: input "请输入一个3位数:" to a i=0 for i=1 to 3 ge=a%10 shi=int(a/10)%10 bai=int(a/100) next ?"这个3位数反向输出是",ge*100+shi*10+bai然后,直接点击感叹号,保存并运行,图:
抚顺县18047093431: vf高手帮忙写个关于输出自然数的逆序数的程序啊~~~急~~ - ?
褒阮壮源: clear accept "请输入一个数:" to x k=len(x) s="" for i=k to 1 step -1 s=s+substr(x,k,1) endfor?"倒序后为:",s
抚顺县18047093431: 输入一个三位数,然后逆序输出 - ?
褒阮壮源: // qwasa.cpp : Defines the entry point for the console application.//#include "stdafx.h"#include using namespace std;int _tmain(in...
抚顺县18047093431: vfp中如何编程一个数逆序排出 - ?
褒阮壮源: a=InputBox("请输入一个数") FOR i=LEN(a) TO 1 STEP -1?? SUBSTR(a,i,1) NEXT
抚顺县18047093431: 用VF做这道题: 输入10个数字,让它们按降序的顺序输出. 请把具体的程序写出来,谢谢.急! - ?
褒阮壮源: CLEAR DIME A(10) FOR I=1 TO 10 INPUT TO A(I) ENDFOR FOR I=1 TO 9 FOR J=I+1 TO 10 IF A(I) T=A(I) A(I)=A(J) A(J)=T ENDIF ENDFOR ENDFOR FOR I=1 TO 10 ??A(I) ENDFOR RETURN