vfp表单文本框中最大值、最小值及来源问题
在表单中设置10个文本框,NAME为TEXT1-10;四个标签。现在随机输入10个数值,要求按下确定键后在第一个标签中显示最大值来自于第几个文本框(只显示一个数),第二个...
在表单中设置10个文本框,NAME为TEXT1-10;四个标签。现在随机输入10个数值,要求按下确定键后在第一个标签中显示最大值来自于第几个文本框(只显示一个数),第二个标签中显示最大值的数值;第三个标签中显示最小值来自于第几个文本框,第四个标签显示最小值的数值。尽可能的使用循环语句。
请根据题目来写命令,不要上网抄一段解释或者文章给我,第一个打对的答案给50分(追加)!谢谢各位了。
如果能给出第一个和第三个标签的命令给30分。 展开
请根据题目来写命令,不要上网抄一段解释或者文章给我,第一个打对的答案给50分(追加)!谢谢各位了。
如果能给出第一个和第三个标签的命令给30分。 展开
1个回答
展开全部
* 给分太少写了吧?
* 这些标签不用单个写的,一次性就出来了
* 把这些到Command1(确定)按钮Click
* 请确保你的Label宽度够用
* 这个只显示整数,如果你想显示小数,请修改最后四行str相关参数
mxl=1 && 最大的文本框编号
mnl=1 && 最小的文本框编号
mxn=val(thisform.text1.value) && 最大的数
mnn=val(thisform.text1.value) && 最小的数
for i=2 to 10
txi =('thisform.text'+allt(str(i ))+'.value')
txi=val(&txi)
if mxn<txi
mxl=i
mxn=txi
endif
if mnn>txi
mnl=i
mnn=txi
endif
endfor
thisform.label1.caption=str(mxl)
thisform.label2.caption=str(mxn)
thisform.label3.caption=str(mnl)
thisform.label4.caption=str(mnn)
* 这些标签不用单个写的,一次性就出来了
* 把这些到Command1(确定)按钮Click
* 请确保你的Label宽度够用
* 这个只显示整数,如果你想显示小数,请修改最后四行str相关参数
mxl=1 && 最大的文本框编号
mnl=1 && 最小的文本框编号
mxn=val(thisform.text1.value) && 最大的数
mnn=val(thisform.text1.value) && 最小的数
for i=2 to 10
txi =('thisform.text'+allt(str(i ))+'.value')
txi=val(&txi)
if mxn<txi
mxl=i
mxn=txi
endif
if mnn>txi
mnl=i
mnn=txi
endif
endfor
thisform.label1.caption=str(mxl)
thisform.label2.caption=str(mxn)
thisform.label3.caption=str(mnl)
thisform.label4.caption=str(mnn)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询