2010年全国计算机等级考试二级VFP习题及答案：第八章1

会计考友

　　表单程序设计 　　1.设计一个表单，界面如图8.43，当表单运行时，标签控件自动从左向右移动。
$ }# E" _9 K5 I2 F9 d　　2.设计一个显示中文日期的表单，并且可以实现日期的前翻和后翻，界面如图8.44。
& [/ V( X3 ?' F& [4 i* m　　3.将文本框中输入的金额转换成中文大写的形式，即将123.56转换成壹佰贰拾叁元伍角陆分，最高值为亿。要求：数字金额转换成中文大写金额用方法来实现，表单运行输入数据值金额后，调用这个方法。表单界面如图8.45所示。
　　4.计算指定班级的奖学金总额，表单界面如图8.46所示。除了3个标签控件、3个文本框和两个命令按钮外，再添加3个形状控件，将输入值与显示计算结果的区域、命令按钮的区域区分开来，并设置形状控件的SpecialEffeect属性为3维。注意：班级号不存在，通过对学号的截取来获得，奖学金总额是通过计算得到的。
　　5.显示指定表文件中的全部字段名，表单界面如图8.47所示。要求：表单运行时，在文本框中输入表名(不包括扩展名)，在列表框中显示指定表的全部字段名。
2 j/ ]/ }: k: F+ @　　6.设计表单，查找指定班级学生的名单，表单界面如图8.48所示。要求：表单刚运行时，文本框为空白，输入班级号后，按“确定”按钮，将指定班级学生的姓名添加到组合框中，如果该班级不存在的话，用消息对话框提示班级不存在的信息。
　　7.设计一个计时器表单，用3个文本框分别显示时、分、秒，界面如图8.49所示。要求：表单刚运行时，各个文本框中显示“00”。单击“开始”按钮后，从0开始计时，单击“停止”按钮停止计时，文本框中显示当前计时的值，单击“退出”按钮结束。
* n+ G/ D" h3 G0 w　　8.设计一个表单，查找指定学生的课程选修情况，其中Combo1的数据源为学生表的姓名，Label2的标题根据组合框中的选择而变化，界面如图8.50所示。要求：表单运行时， Label2、List1是不可见的。在组合框中选择姓名后，在List1中显示该生选修的课程名和成绩。
0 b( e$ c$ y3 `0 b. P# o, v) I; L　　多表操作程序设计题
7 j; ^' Z9 J! r; I* J　　1.对学生“学籍”数据库中的“学生”表，编写一个输入学生信息的程序，要求保证该表的实体完整性。用户界面可以自行设计。
　　2.对学生“学籍”数据库中的“学生”表，编写一个按照“学号”修改某个学生信息的程序，要求保证该表的实体完整性。用户界面可以自行设计。
8 p# @/ z; \7 D4 w% g% e# q: t　　3.表单的界面及控件布局情况如图8.51和图8.52所示，其中顺序排列的控件Text1～Text6被放置在容器Container1中。该表单可实现查询指定学生姓名的所修课程名及成绩情况。具体要求如下：① 用户可以在控件Combo1中输入或选择学生姓名;② 输入或选择学生姓名后，按回车或“确定”按钮，可在表单的左部控件中以只读方式显示对应的学号和学生姓名以及指定学生姓名所修各门课程的课程名和成绩以及总平均金额;③ 课程名及成绩显示项可根据表中满足条件的记录个数动态的调整，如果某学生尚无选修任何课程，则课程名及成绩显示项将不出现(包括显示控件和显示数据)，且在总平均成绩显示项中显示未选修任何课程的信息;④ 表单中命令按钮的汉字标题在表单执行后会自动显现。编写完成上述功能的事件代码，要求写明数据源的设置情况及各个事件的名称及归属(假设销售金额显示项最多不超过10项)。

6 N' U$ L  F# [6 q3 w　　4.表单的界面及控件布局情况如图8.53和图8.54所示，其中顺序排列的控件Command1～Command7属于组容器Commandgroup1。该表单可实现学生“成绩”表的编辑浏览操作，具体要求如下：可以随时向成绩表中添加新记录;可以随时删除成绩表中当前指针所指的记录;可以随时向前、后、表头、表尾翻动浏览记录，当指针到达表头或表尾时，自动将相应按钮设为不可访问;在添加或浏览记录时，随着学号的变化，相应的姓名、课程号、课程名和成绩会自动地以只读方式定位显示;控件Command1～Command7的汉字标题执行后会自动显现。编写完成上述功能的事件代码，要求写明数据源的设置情况及各个事件的名称及归属。

　　习题答案：
　　表单程序设计
　　1、
+ @4 R6 h$ y: x- o- m　　timer1的timer事件代码：
　　thisform.label1.left=thisform.label1.left+4
, o( k/ A+ Q: b4 P, u/ Z　　thisform.refresh
　　2、
　　1.spinner1的upclick事件代码：
0 I) e: l+ y' G2 F8 g; m# I2 e　　thisform.text1.value=thisform.text1.value-1
* g5 a3 k& D" r. w% g5 i) R: M　　thisform.refresh
' N$ A# K' R0 ?5 x　　2.spinner1的downclick事件代码：
　　thisform.text1.value=thisform.text1.value-1
: Q7 r4 c6 |+ u" T! f# C5 ]) F　　thisform.refresh
7 \& u4 @9 M9 z5 \( |% B　　3、
, k) U: P" W" {% Q　　(1)新建方法jezh的代码：
: b3 R4 n$ m8 Y9 C, l9 q　　parameter x
　　c1="零壹贰叁肆伍陆柒捌玖"
* d9 `1 t+ k1 @0 R2 f, e; W　　c2="分角元拾佰仟万拾佰仟亿"
, X$ e9 M" X( j3 W( w; r　　m=round(x,2)
! }: r9 `. J) d　　m=m*100
" F% o7 o9 D% _% k# J　　i=0
' Y; Z5 h1 T8 d. a7 {& B! C8 B( \　　c=""
　　do while .t.
3 @' _+ J/ H5 I% W% h　　n=mod(m,10)
5 ~) s/ G/ g! s; d8 F( Q　　p1=substr(c1,2*n+1,2)
5 l4 ~% u4 W% v' G* ~* O　　p2=substr(c2,2*i+1,2)
　　c=p1+p2+c
& d- ]( \7 V  S/ N; b( w　　i=i+1
8 y/ {' u# _# P+ m, d　　m=int(m/10)
　　if m=0
　　exit
　　endif
3 M5 m( N5 `. Z5 v) q: V　　enddo
　　return c
( r5 J9 R9 w' R8 z　　(2)Text1的valid事件代码：
2 m' S6 e  M$ x: T5 M. g% A　　je=thisform.jezh(val(thisform.text1.value))
　　thisform.text2.value=je
3 s% m4 v5 w/ u' W3 k　　thisform.refresh
5 T% [9 ^. T4 c0 m8 H- h　　4、
　　(1)command1的click事件代码
　　set talk off
: `8 p! P$ o( K! k　　sele 学生
: A% y7 A+ G) ]
　　bjh=alltrim(thisform.text1.value)

会计考友

</p>　　loca for substr(学号,1,4)=bjh
: W( D2 b* g% ?9 V8 M2 n3 A7 D　　if found()
　　sum 学生.奖学金 to jxj for substr(学号,1,4)=bjh
　　thisform.text2.value=bjh
　　thisform.text3.value=jxj
　　else
! ^% V: F& Z. M; G　　thisform.text2.value=""
# c- N1 T" R+ O# [7 W　　thisform.text3.value=""
　　messagebox("该班级不存在!")
　　endif
　　thisform.refresh
　　(2)Command2的click事件代码
- f/ U8 U8 d1 u0 H6 [5 v5 _　　thisform.release
2 S( G4 |& ?, Z# r! j% {2 D　　5、
% Q2 F) [1 b& [9 @$ B) m5 c　　text1的valid事件代码：
/ P3 p5 ^6 k+ T* q& t0 r5 E5 ?　　tbn=alltrim(thisform.text1.value)
　　if file("&tbn..dbf")
, Z; U& d* y- }3 N% G* J　　use (tbn)
$ {1 U! }- P9 }3 p* {1 E　　thisform.list1.clear
1 c: {. E2 R( v, V. ~　　for i=1 to fcount()
　　thisform.list1.additem(field(i))
　　endfor
　　use
　　else
8 G' Z1 F2 p# w" p' F　　message("指定的表文件不存在!请重新输入!")
　　endif
/ A, {& D6 f( I: E　　thisform.refresh
　　6、
$ h7 O9 R, ]4 g　　(1)command1的click事件代码
　　bjh=alltrim(thisform.text1.value)
2 u3 \4 ~3 ?0 ^+ Z: v4 e& R. ^　　sele 学生
" l0 t6 i5 q8 s　　loca for substr(学号,1,4)=bjh
; P. ~8 _5 t0 a) k　　thisform.combo1.clear
% d0 K- @" |: ]  f4 T. `9 f  h3 D　　if found()
　　thisform.combo1.clear
　　thisform.combo1.displayvalue=学生.姓名
! [  w; Y! E2 I$ G0 W  W- ~4 F( i　　do while substr(学号,1,4)=bjh
4 J0 A% Y* ~5 {& W　　thisform.combo1.additem(学生.姓名)
$ B5 g3 F! M# z/ R' w　　skip
　　enddo
/ |1 P, Q9 V/ X9 v4 v　　else
3 K* `& _9 y/ |　　messagebox("没有该班级")
　　thisform.text1.value=""
　　thisform.text1.setfocus
　　endif
: w5 d- u3 s& N& l, y- L　　(2)Command2的click事件代码
' ~# W) {# X! U$ U% h　　thisform.release
6 ?& P4 }* D1 T3 ?　　7、
3 x6 P* f! r! I$ d　　(1)Form1的init事件代码：
　　public h,m,s
" u- S' p5 H8 k! U" r1 K- D. L　　store 0 to h,m,s
$ ~5 ~1 C8 x, L3 n/ O3 U　　thisform.timer1.enabled=.f.
' O$ q& L  n; }4 V' d8 \: k' S/ Q　　thisform.text1.value='00'
　　thisform.text2.value='00'
　　thisform.text3.value='00'
; h0 S- i1 j% u; o　　(2)Timer1的timer事件代码：
　　s=s+1
7 }/ N0 q3 J/ Z, n" p　　if s>59
　　s=0
3 i9 ?! ~7 U4 W& R. E; D9 E　　m=m+1
# \1 p0 J9 _- p; B4 |: I$ {+ v1 y- l　　endif
　　if m>59
　　m=0
$ o; X; A" ~0 X! ^$ p& S& m　　h=h+1
　　endif
　　if h>24
　　h=0
) l4 s9 E7 o: e　　endif

+ t8 g) d3 p- ^* N. P　　s1=iif(s