Question

vf表单编程

set safe off
use 1063461043于鑫
if len(alltrim(thisform.text1.value))<>10
messagebox("输入学号必须是10位",0+16+0,"提示信息")
else
go top
locate for alltrim(thisform.text1.value)=学号
if not found()
messagebox("查无此人",0+48+0,"提示信息")
else
select 学号,姓名,性别,year(date())-year(出生日期)as 年龄,身高,体重,体重/(身高*身高) as Bmi;
from 1063461043于鑫 where 学号=thisform.text1.value into table abc
close all table
哪里出错了，运行不了。求大神帮忙

Answer 1

set talk off
dime a(3)
a(1)=val(thisform.text1.value)
a(2)=val(thisform.text2.value)
a(3)=val(thisform.text3.value)
for i=1 to 2
for j=i+1 to 3
if a(j)<a(i)
s=a(j)
a(j)=a(i)
a(i)=s
endif
endfor
endfor
if this.value=1
thisform.label1.caption=allt(str(a(1)))+","+allt(str(a(2)))+","+allt(str(a(3)))
else
thisform.label1.caption=allt(str(a(3)))+","+allt(str(a(2)))+","+allt(str(a(1)))
endif
thisform.refresh