更多"考生目录下有一个FORM1表单文件，其中两个命令按钮Click事件下的"的相关试题:
[简答题]考生目录下有一个FORM1表单文件，其中3个命令按钮Click事件下的语句都是错误的，请按如下要求进行修改(最后保存所做的修改)。
(1)单击“刷新标题”命令按钮时，使表单的标题为“简单应用”。
(2)单击“订单记录”命令按钮时，使表格控件中显示order_list表中的记录。
(3)单击“关闭表单”命令按钮时，关闭表单。
注意：每处错误只能在原语句上进行修改，不可以增加语句。
[简答题](2)在考生文件夹下有一个数据库mydb，其中有数据库表“购买情况”，在考生文件夹下设计一个表单myf，该表单为“购买情况”表的窗口输入界面，表单上还有一个标题为“关闭”的按钮，单击该按钮，则退出表单。
[简答题]考生目录下有一个商品表，使用菜单设计器制作一个名为caidan的菜单，菜单只有一个“信息查看”子菜单。该菜单项中有“中国北京”、“中国广东”和“关闭”3个子菜单： “中国北京”子菜单查询出产地是“中国北京”的所有商品的信息，“中国广东”子菜单查询出产地是“中国广东”的所有商品的信息。使用“关闭”子菜单项返回系统菜单。
(2)在考生文件夹的下对数据库“管理”中的表“会员”的结构做如下修改：指定“会员编号”为主索引，索引名和索引表达式均为“会员编号”。指定指定“年龄”为普通索引，索引名为nl，索引表达式为“年龄”。年龄字段的有效性规则是：年龄＞=18，默认值是20。
[多项选择](2)考生文件夹下有一个名为 myf 表单文件，其中有一个命令按钮(标题为“查询”)下的 Click 事件下的语句是错误的。请按要求进行修改。要求：单击该按钮查询出住在四楼的所有学生的全部信息。该事件共有3条语句，每一句都有一处错误。更正错误但是不允许添加或删除行。
[简答题]完成下列问题：
在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件(如图3所示)。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置(如图4所示)；若用鼠标右键单击圆的边线，则指针恢复到起始位置(如图3所示)；若鼠标左键和右键单击其他位置，则在标签上显示“鼠标位置不对”。
[*]
[*]
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，在程序中的横线处填写正确的内容。程序中函数oncircle（ ）的作用是判断鼠标单击位置是否在圆的边线上(判断结果略有误差)，“是”则返回True，“否”则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。
注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Const y0&=1110, x0&=1100, radius&=750
Private Function oncircle(X As Single, Y As Single) As Boolean
precision=55000
If Abs((X-x0)*(X-x0)+(y0-Y)*(y0-Y)-radius*radius)＜precision Then
oncircle=True
Else
oncircle=False
End If
End Function
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const LEFT_BUTTON=1
If oncircle(X,Y)Then
Linel.X1=x0
Line1.Y1=y0
If Button=LEFT_BUTTON Then
Line1.X2=X
Line1.Y2= (1)
Else
Line1.X2=L
[多项选择]在考生目录下，对数据库salary_db完成如下综合应用。
设计一个名称为FORM2的表单，在表单上设计一个“选项组”(又称选项按钮组，名称为Optiongroup1)及两个命令按钮“生成”(名称为Command1)和“退出”(名称为Command2)；其中选项按钮组有“雇员工资表”(名称为Option1)、“部门表”(名称为Option2)和“部门工资汇总表”(名称为Option3)3个选项按钮。然后为表单建立数据环境，并向数据环境添加depl表(名称为Cursor1)和salary表(名称为Cursor2)。
各选项按钮功能如下：
(1)当用户选择“雇员工资表”选项按钮后，再单击“生成”命令按钮，查询显示在简单应用中创建的sview视图中的所有信息，并把结果存入表gz1.dbf中。
(2)当用户选择“部门表”选项按钮后，再单击“生成”命令按钮，查询显示dept表中每个部门的部门号和部门名称，并把结果存入表bm1.dbf中。
(3)当用户选择“部门工资汇总表”选项按钮后，再单击“生成”命令按钮，则按部门汇总，将该公司的部门号、部门名、工资、补贴、奖励、失业保险和医疗统筹的支出汇总，合计结果存入表hz1.dbf中。请注意：字段名必须与原字段名一致。
(4)单击“退出”按钮，退出表单。
注意：以上各项功能必须调试、运行通过。
[简答题]
在考生目录下，对数据库salary_db完成如下综合应用。
设计一个名称为FORM2的表单，在表单上设计一个“选项组”(又称选项按钮组，名称为Optiongroup1)及两个命令按钮“生成”(名称为Command1)和“退出”(名称为Command2)；其中选项按钮组有“雇员工资表”(名称为Option1)、“部门表”(名称为Option2)和“部门工资汇总表”(名称为Option3)3个选项按钮。然后为表单建立数据环境，并向数据环境添加depl表(名称为Cursor1)和salary表(名称为Cursor2)。
各选项按钮功能如下：
(1)当用户选择“雇员工资表”选项按钮后，再单击“生成”命令按钮，查询显示在简单应用中创建的sview视图中的所有信息，并把结果存入表gz1.dbf中。
(2)当用户选择“部门表”选项按钮后，再单击“生成”命令按钮，查询显示dept表中每个部门的部门号和部门名称，并把结果存入表bm1.dbf中。
(3)当用户选择“部门工资汇总表”选项按钮后，再单击“生成”命令按钮，则按部门汇总，将该公司的部门号、部门名、工资、补贴、奖励、失业保险和医疗统筹的支出汇总，合计结果存入表hz1.dbf中。请注意：字段名必须与原字段名一致。
(4)单击“退出”按钮，退出表单。
注意：以上各项功能必须调试、运行通过。
[简答题]对考生目录下的数据库rate建立文件名为myf的表单。表单含有一个表格控件，用于显示用户查询的信息；表单上有一个按钮选项组，含有“外币浏览”、“个人持有量”和“个人资产”三个选项按钮：表单上有一个命令按钮，标题为“浏览”。
当选择“外币浏览”选项按钮并单击“浏览”按钮时，在表格中显示“汇率”表的全部字段；选择“个人持有量”选项按钮并单击“浏览”按钮时，表格中显示“数量”表中的“姓名”，“汇率”表中的“外币名称”和“数量”表中的“持有数量”；选择“个人资产”选项按钮并单击“浏览”按钮时，表格中显示“数量”表中每个人的“总资产” (每个人拥有的所有外币中的每种基准价*持有数量的总和)。单击“关闭”按钮退出表单。
[简答题]对考生目录下的数据库“医院”建立文件名为myf的表单。表单含有一个表格控件，用于显示用户查询的信息；表单上有一个按钮选项组，含有“药查询”，“处方查询”和“查询综合”3个选项按钮；表单上有两个命令按钮，标题分别为“浏览”和“关闭”。
当选择“药查询”选项按钮并单击“浏览”按钮时，在表格中显示“药信息”表的全部字段。
选择“处方查询”选项按钮并单击“浏览”按钮，表格中显示“处方信息”表的字段“处方号”和“药编号”。
选择“综合查询”选项按钮并单击“浏览”按钮时，表格中显示所开处方中含有“药编号”为“5”的处方号、药名及开此处方的医生姓名。
单击“关闭”按钮退出表单。
[多项选择]综合应用题（1小题，计30分）
对考生目录下的数据库rate建立文件名为myf的表单。表单含有一个表格控件，用于显示用户查询的信息；表单上有一个按钮选项组，含有"外币浏览"、"个人持有量"和"个人资产"三个选项按钮：表单上有一个命令按钮，标题为"浏览"。
当选择"外币浏览"选项按钮并单击"浏览"按钮时，在表格中显示"汇率"表的全部字段；选择"个人持有量"选项按钮并单击"浏览"按钮时，表格中显示"数量"表中的"姓名"，"汇率"表中的"外币名称"和"数量"表中的"持有数量"；选择"个人资产"选项按钮并单击"浏览"按钮时，表格中显示"数量"表中每个人的"总资产"（每个人拥有的所有外币中的每种基准价*持有数量的总和）。
单击"关闭"按钮退出表单。
[简答题]
完成下列问题：
在考生目录下有一个工程文件sjt4.vbp，窗体如图5所示。其功能是单击“输入数据”按钮，则可输入一个整数n(要求：8＜=n＜=12)；单击“计算”按钮，则计算1!+2!+3!+…+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。
[*]
文件中已经给出了所有控件和程序，但程序不完整，在程序中的横线处填写正确的内容，并编写“计算”按钮的Click事件过程。
注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Dim n As Integer
Private Sub Command1_Click（ ）
n=Val(InputBox("请输入整数(8-12)", "输入"))
If n＞
(1) Or n＜8 Then
MsgBox("数据错误,请重新输入")
Command2.Enabled=False
Command3.Enabled=False
Else
Command2.Enabled=True
Command3.Enabled=True
End If
End Sub
Private Sub Command2_Click（ ）
Dim s As Long, k As Integer
’考生应编写的程序
End Sub
Function f(n As Integer) As Long
s=
(2) For k=2 To n
s=s*k
Next
f=
(3) End Function
Private Sub Command3_Click（ ）
Open App.Path & "/out4.dat" For Output As #1
Print #1, n, Text1
Close #1
End
[简答题]在考生文件夹下有一个名为menu_lin的下拉式菜单，请设计一个名为form_menu的顶层表单，将菜单menu_lin加入到该表单中，使得运行表单时菜单显示在该表单中，并且，表单退出时释放菜单。
[简答题]考生文件夹下有“定货”表和“客户”表，设计一个文件名为myf的表单，表单中有两个命令按钮，按钮的标题分别为“计算”和“关闭”。
程序运行时，单击“计算”按钮应完成下列操作：
①计算“客户”表中每个订单的“总金额”(总金额为“定货”中订单好相同的所有记录的“单价*数量”的总和)。
②根据上面的计算结果，生成一个新的自由表newt，该表只包括“客户号”、“订单号”和“总金额”项，并按客户号升序排序。
单击“关闭”按钮，程序终止运行。
[多项选择]在考生文件夹下有一个名为zonghe的表单文件，其中：单击“添加＞”命令按钮可以将左边列表框中被选中的项添加到右边的列表框中；单击“＜移去”命令按钮可以将右边列表框中被选中的项移去(删除)。
请完善“确定”命令按钮的Click事件代码，其功能是：查询右边列表框所列课程的学生的考试成绩(依次包含姓名、课程名称和考试成绩3个字段)，并先按课程名称升序排列，课程名称相同的再按考试成绩降序排列，最后将查询结果存储到表zonghe中。
注意：(1)SCORE表中的“考试成绩”字段是在基本操作题中修改的。
(2)程序完成后必须运行，要求将“计算机基础”和“高等数学”从左边的列表框添加到右边的列表框，并单击“确定”命令按钮完成查询和存储。
[填空题]在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显示输入整数的各位数字和。
Private Function fun(m As Integer) As Integer
Dim k As Integer, n As Integer
do
n = 【10】
k=k+ n
m= m/10
Loop until m = 0
fun = k
End Function
Private Sub form_ Click（ ）
Dim n As Integer
n = Val(Text1. Text)
Print 【11】
End Sub
