Question

10道编程题、、VF高手进啊、、急急急！！！！高分！！！！！

1、求解AX+BX+C=0的根、其中A、B、C三个参数由键盘输入。一元二次方程的求根公式是：X=-b±√b²-4ac/2a

2、编写程序将1-100之间所有能被7和3整除的整数输出

3、编写程序，判断所输入的一个字符是英语字母、数字符号或特殊符号（数字符号和字母之外），并给出相应的提示

4、用循环语句编写程序计算10！

5、编写程序，实现所输入的任意整数二进制数的输出。例如、若输入9则输出二进制数——1001

6从键盘上任意输入一个数给X，计算下列表达式的值并输出结果。用IF...ENDIF语句编写
2X+5 x>20
y= 8 x=20
10x-5 x<20

7、编写程序计算e，e的近似值计算公式为：
e=1+1/1!+1/2!+1/3!+...+1/n!，直到1/n!<0.000001为止

8、某班共有10名学生，为了评定某门课程的奖学金，按规定超过全班平均成绩10%者发给一等奖，超过全班平均成绩的5%发给二等奖。试建立相应的数据表文件并编制程序、输出应获奖学金的学生名单（包括姓名、学号、成绩、奖金等级）

9、从键盘上输入任意三个数，按由大到小的顺序排列输出

10、编写一个程序产生一个有20项的Fibonacci数列并输出。注：Fibonacci数列的前两项为1，从第三项开始每一项是其前两项只和。

一共10道、、、弄好的话可以发至我的邮箱并追分！！！！！！！
240656604@qq.com

Answer 1

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
else
?"此方程无实根!"
endif

2、
clear
for i=1 to 100
if i%3=0 and i%7=0
??i
endif
endfor

3、
clear
accept "请输入一个字符：" to x
x=asc(x)
do case
case x>=65 and x<=90 or x>=97 and x<=122
?"是字母"
case x>=48 and x<=57
?"是数字"
other
?"是其它字符"
endcase

4、
clear
s=1
for i=1 to 10
s=s*i
endfor
?s

5、
clear
s=""
input "请输入一个十进制数：" to a
do while a>0
b=a%2
a=int(a/2)
s=alltrim(str(b))+s
enddo
?"转换为二进制为：",s

6、
clear
input "请输入x的值：" to x
if x>=20
if x>20
y=2*x+5
else
y=8
endif
else
y=10*x-5
endif
?"y=",y

7、
clear
e=1
m=1
do while m>=0.000001
k=1
for j=1 to i
k=k*j
endfor
m=1/k
e=e+m
endfor
?"e=1+1/1!+1/2!+1/3!+...+1/n!=",e

8、数据库建立自理

9、clear
dime a(3)
for i=1 to 3
input "请输入一个整数：" to a(i)
endfor
?"从大到小排序后为："
for i=1 to 2
for j=i+1 to 3
if a(j)>a(i)
k=a(i)
a(i)=a(j)
a(j)=k
endif
endfor
??alltrim(str(a(i)))+space(3)
endfor
??alltrim(str(a(i)))

10、
clear
a=1
b=2
??a,b
FOR n=1 TO 18
c=a+b
a=b
b=c
??c
endf