更多"考生目录下有一个FORM1表单文件，其中3个命令按钮Click事件下的"的相关试题:
[简答题]考生目录下有一个FORM1表单文件，其中两个命令按钮Click事件下的语句都是错误的，其中一个按钮的名称有错误。请按如下要求进行修改(最后保存所做的修改)。
(1)将按钮“刘缆雇员工资”名称修改为“浏览雇员工资”。
(2)单击“浏览雇员工资”命令按钮时，使用SELECT命令查询salary表中所有字段信息供用户浏览。
(3)单击“退出表单”命令按钮时，关闭表单。
注意：每处错误只能在原语句上进行修改，不可以增加语句。
[简答题]考生目录下有一个FORM1表单文件，其中3个命令按钮Click事件下的语句都是错误的，请按如下要求进行修改(最后保存所做的修改)。
(1)单击“刷新标题”命令按钮时，使表单的标题为“简单应用”。
(2)单击“订单记录”命令按钮时，使表格控件中显示order_list表中的记录。
(3)单击“关闭表单”命令按钮时，关闭表单。
注意：每处错误只能在原语句上进行修改，不可以增加语句。
[简答题]考生目录下有一个商品表，使用菜单设计器制作一个名为caidan的菜单，菜单只有一个“信息查看”子菜单。该菜单项中有“中国北京”、“中国广东”和“关闭”3个子菜单： “中国北京”子菜单查询出产地是“中国北京”的所有商品的信息，“中国广东”子菜单查询出产地是“中国广东”的所有商品的信息。使用“关闭”子菜单项返回系统菜单。
(2)在考生文件夹的下对数据库“管理”中的表“会员”的结构做如下修改：指定“会员编号”为主索引，索引名和索引表达式均为“会员编号”。指定指定“年龄”为普通索引，索引名为nl，索引表达式为“年龄”。年龄字段的有效性规则是：年龄＞=18，默认值是20。
[简答题]完成下列问题：
在考生目录下有一个工程文件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
[简答题]
完成下列问题：
在考生目录下有一个工程文件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
[简答题]6．将考生目录下WOOD文件夹中的PEA文件夹移动到考生目录下LOG文件夹中。
[简答题](2)在考生文件夹下有一个数据库mydb，其中有数据库表“购买情况”，在考生文件夹下设计一个表单myf，该表单为“购买情况”表的窗口输入界面，表单上还有一个标题为“关闭”的按钮，单击该按钮，则退出表单。
[填空题]在窗体上建立—个名称为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
[多项选择](2)在考生文件夹下有一个数据库“医院”，其中有数据库表“医生信息”，在考生文件夹下设计一个表单ys，该表单为“医生信息”表的窗口输入界面，表单上还有一个标题为“关闭”的按钮。单击该按钮，则退出表单。
[简答题]在考生目录下完成如下操作：
新建一个名为“学生”的数据库。
[多项选择](2)考生文件夹下有一个名为 myf 表单文件，其中有一个命令按钮(标题为“查询”)下的 Click 事件下的语句是错误的。请按要求进行修改。要求：单击该按钮查询出住在四楼的所有学生的全部信息。该事件共有3条语句，每一句都有一处错误。更正错误但是不允许添加或删除行。
[单项选择]当Form1_Click事件发生时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click（ ） Dim i As Integer，j As Integer Dim k As Integer，a(5，5)As Integer For i=1 To 5 k=1 For j=1 To 5 If i＜=j Then a(i，j)=k k=k+1 Else a(i，j)=1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i，j)； Next j Print Next i End Sub
A. 1 2 3 4 5
B. 1 1 2 3 4
C. 1 1 1 2 3
D. 1 1 1 1 2
