1
22
333
4444
55555
我写的代码是
for i=1 to 5
for j=1 to i
@i,j-i+10 say str(i)
next
next
return
但是它显示出来的就是
1
2
3
4
5
请问是怎么回事,谢谢!
VF中关于数字打印的问题??编小程序
输出位置问题 改为:clear for i=1 to 5 for j=1 to i i,-j+10 say str(i)next next 说明:@i,-j+10 say str(i)
如何用vf编钱数转换程序
FUNCTION rmbupper()lParameters mmje &&输入变量:数字型,小于9万亿,大于-9万亿 Private dx,aa,i dx=Iif(mmje<0,'负','')aa=Round(Abs(mmje)*100,0)For i=Len(Alltrim(Str(aa,15)))-1 To 0 Step -1 dx=dx+Subs('零壹贰叁肆伍陆柒捌玖',Int(Round(aa\/10^i,10))*2+1,2)...
vf 编个小程序,我想在上边三个框中输入数值,点击运算后,在料长框中显 ...
“运算”按钮 Click 中写入 thisform.text4.Value = 2*(thisform.text2.value-thisform.text3.value) + 3.1415926535*(thisform.text1.value+thisform.text3.value)
vf小程序编写
clear input "请输入会员积分:" to jf do case case jf>=90 ?"一级会员"case jf>=75 and jf<=89 ?"二级会员"case jf>=60 and jf<=74 ?"三级会员"case kf<60 ?"非会员"endcase
用VF做个小程序
text1.value);order by 姓名 into cursor temp &&将输入的合同号在表中寻找结果存入到临时表中,并以姓名升序排序 sele temp &&选择临时表 Copy To C:\\Documents and Settings\\All Users\\桌面\\结果信息.xls Type Xl5 &&导出到桌面上,以excel文档保存起来 呵呵,不懂再来,欢迎再线留言....
跪求大虾给通过vf表单编个小程序
没看明白
求教:关于VF的一个小程序
已录取学生的记录表看作LC表.那么你可以用一句SQL命令查询:sele * from xs wher 学号 not in;(sele 学号 from LC)或者 sele * from xs wher not exists;(sele * from lc wher 学号=xs.wb.学号)屏幕则会显示出未录取学生的记录,查询窗口与浏览表窗口是一样的....
求VF编写小程序a,b,c执行交换a最大b其次c最小
新建一个程序(文件菜单——新建——程序——新建文件),写代码: input "请输入a的值 : " to a input "请输入b的值 : " to b input "请输入c的值 : " to c if b>a t=a a=b b=t endif if c>a t=a a=c c=t endif if c>b t=c c=b b=t endi ? "交换后a,b,c...
用VF6.0编辑小程序,生成EXE可执行文件,怎能让它脱离项目管理器独立运行...
项目的代码-程序里编两个程序,1、第一个命名为main,内容如下:_screen.caption="成绩统计程序注册码生成器"这里换成你想要在第一个表单上显示的标题 _screen.icon=""on shutdown do quit do form main 这里的main是你要最先运行的表单的名称 read events 2、第二个命名为quit,内容如下:clear...
vf抽奖小程序
以1到100个座位号来编吧 按钮command1的caption首先设为"开始"文本框text1 再画一个时间控制器timer1 设置属性:interval值为2 enable值为.f.双击timer1,并在time事件中输入如下代码:thisform.text1.value=int(rand()*100) &&产生100内的随机值 thisform.text1.refresh &&刷新文本框 command1的...