a我考网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 137|回复: 0

[考试试题] 计算机等级考试二级VF题库75套上机试题(7)

[复制链接]
发表于 2012-7-31 22:22:49 | 显示全部楼层 |阅读模式
第7套  一、8 D; X6 W9 X6 l7 f8 V0 o# U
  1. 打开并修改表单
+ ]  r' r- N' o/ N! T  MODIFY FORM formtest4 X( n/ c: w- n( b- N% z/ G7 h
  2. 在“表单设计器”中,在“属性”的Caption处输入“考试系统”。
' j+ ^- t3 k6 m3 d  1. 打开并修改表单4 v# S8 h: f6 C0 c, [. ?; G
  MODIFY FORM formtest
, ~. @' r4 G0 `+ s  2. 在“表单设计器”中,添加一个标签Label1,在其“属性”的Caption处输入“欢迎使用考试系统”,在ForeColor处输入“255,0,0”。, L- K" x2 x9 I
  在“表单设计器”中,添加一个计时器控件,在其“属性”的Name处输入“Timefor”。
4 N: m, e$ o- T; A0 h8 |  b  选定计时器控件Timerfor,在其“属性”的Interval处输入“200”。& s5 ^! G7 l9 G( C/ A7 P
  二、0 d) u  C# |" s3 M" V& ~2 D
  SELECT TOP 5 姓名,出生日期 FROM employee ORDER BY 出生日期 INTO TABLE emage; o# W! A# P9 t$ u  \- ^6 r# \6 |
  第1处:PARAMETERS a,b
9 K$ l1 F# M( ?1 X9 n6 _. P# U7 V  第2处:RETURN c
1 s8 R7 Z4 b% M5 e9 h+ W+ J4 D  三、
( F0 Q6 k  X. h0 e: x6 ~  1. 建立表单; |5 k8 V7 v# J* i
  CREATE FORM calculator  @2 z& i) I0 S9 {
  2. 在“表单设计器”中,在其“属性”的Name处输入“calculator”,在Caption处输入“计算器”。
+ y6 \" n! Q+ {; X  3. 在“表单设计器”中,依次建立三个Label1、Label2和Label3的标签,并分别修改其标题Caption的值,依次为“操作数1”、“操作数2”和“计算结果”。2 Y, Q: Y* d3 u# m  E
  4. 在“表单设计器”中,依次建立三个Text1、Text2和Text3的文本框,再对Text3的Enable属性选择“.F.”。
: W1 t8 c0 L% u! s/ G8 T  5. 在“表单设计器”中,添加一个“选项按钮组”,在其“属性”的ButtonCount处输入“4”,调整这四个按钮的排列位置以及各个Caption的值。$ A5 I/ r% D. R: q- k8 B
  6. 在“表单设计器”中,添加两个命令按钮(Command1和Command2),在第1个命令按钮Command1“属性”的Caption处输入“计算”,在第2个命令按钮Command2“属性”的Caption处输入“关闭”。7 t. X1 z' L8 ^5 k1 z
  7. 双击“计算”按钮,在“Command1.Click”编辑窗口中输入下列程序0 D/ p: w- o# s! ]1 _0 y
  do case. m  W. c2 S- |
  case thisForm.optiongroup1.value=1
2 o1 y/ K) S: m# x8 k+ R+ O7 q  thisForm.Text3.Value=val(thisForm.Text1.Value)+val(thisForm.Text2.Value). }+ B" Q, c9 C0 p% l
  case thisForm.optiongroup1.value=2' Y2 U& `1 _& \5 @; r* \( g  J) {
  thisForm.Text3.Value=val(thisForm.Text1.Value)-val(thisForm.Text2.Value)
& v5 X/ B9 z" `! G  case thisForm.optiongroup1.value=3
. I8 M2 w* X# h0 @3 _, M4 Z  thisForm.Text3.Value=val(thisForm.Text1.Value)*val(thisForm.Text2.Value)
& ?; @4 v7 c! D/ @, t8 @; t  case thisForm.optiongroup1.value=4
8 _1 @& ~% H- B$ i0 _* u2 p  thisForm.Text3.Value=val(thisForm.Text1.Value)/val(thisForm.Text2.Value)
0 O3 }: p+ x& U  \0 ^, J: l) V6 `/ P; b) Y  endcase
. J5 `$ I7 K3 [9 J. ]9 @  8. 双击“关闭”命令按钮,在“Command2.Click”编辑窗口中输入“ThisForm.Release”,接着关闭编辑窗口。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|Woexam.Com ( 湘ICP备18023104号 )

GMT+8, 2024-5-5 03:22 , Processed in 0.150977 second(s), 21 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表