2012年计算机二级VFP模拟试题及参考答案（3）

会计考友 · 发表于 2012-7-31 22:22:49

一、写出下列程序的运行结果：
1．set talk off
y=1
if y0
x=3
else
x=5
endif
if x>4
if y0.and.y>0
x=12
else
x=30
endif
endif
else
x=5
endif
x
1、set talk off
a=100*rand( )
b=100*rand( )
c=100*rand( )
max=a
min=a
if maxb
min=b
endif
if maxc
min=c
endif
a,b
二、输入3个不同的数，将它们从大到小排列。如图，请写出“排序”按钮的单击事件代码。

三个数排序
三、键盘输入一个数，判断它能否同时被3、5、7整除的命令文件。
四、键盘输入a,b,c的值，判断它们能否构成三角形的三条边，若能构成一个三角形，则计算三角形的面积。请用表单和建立命令文件两种方法。
五、建立一个表单，如图，开始自动显示系统时间，当在文本框中输入一个数值后，按“之前”或“之后”按钮，使可显示指定天数之前或之后的日期和星期。

显示几天前后的日期和星期
请写出表单的Init事件，“之前”、“之后”、“今天”和“退出”按钮的单击事件代码。

会计考友 · 发表于 2012-7-31 22:22:50

答案
一、写出下列程序的运行结果:
1．set talk off
y=1
if y0
x=3
else
x=5
endif
if x>4
if y0.and.y>0
x=12
else
x=30
endif
endif
else
x=5
endif
x
2、set talk off
a=100*rand( )
b=100*rand( )
c=100*rand( )
max=a
min=a
if maxb
min=b
endif
if maxc
min=c
endif
a,b
第1题：5
第二题：产生100以内的两个随机数

二、输入3个不同的数，将它们从大到小排列。如图，请写出“排序”按钮的单击事件代码。

三个数排序
*编程思想：将前一个数与后一个数比较，若前者较小，则二者交换位置
a=val(alltrim(Thisform.text1.value))
b=val(alltrim(Thisform.text2.value))
c=val(alltrim(Thisform.text3.value))
if a

会计考友 · 发表于 2012-7-31 22:22:51

</p>三、键盘输入一个数，判断它能否同时被3、5、7整除的命令文件。
*编程思想：一个数被3、5、7除的余数若都为零，即能同时被三个数整除
input "请输入一个数：" to A
if A%5=0 and A%3=0 and A%7=0
A,"能同时被3，5，7整除"
ELSE
A,"不能同时被3，5，7整除"
ENDIF

四、键盘输入a,b,c的值，判断它们能否构成三角形的三条边，若能构成一个三角形，则计算三角形的面积。请用表单和建立命令文件两种方法。
* 命令文件形式
input "请输入第一边的边长：" to a
input "请输入第二边的边长：" to b
input "请输入第三边的边长：" to c
if (a+b)>c and (a-b)

		自动登录	找回密码
密码			立即注册

[考试试题] 2012年计算机二级VFP模拟试题及参考答案（3）

2012年计算机二级VFP模拟试题及参考答案（3）

2012年计算机二级VFP模拟试题及参考答案（3）

浏览过的版块