更多"在考生文件夹下有一个过程文件sjt5.vbp，窗体上有两个图片框，名称"的相关试题:
[多项选择]在考生文件夹下有一个过程文件sjt5.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico’、“绿灯.ico”文件来实现信号灯的切换；还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于控制汽车向左移动。运行时，信号灯不断变换。单击“车按”按钮后，汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。
在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。
sjt5.frm文件内容如下：
Dim a%,b As Boolean
Private Sub C1_Click（ ）
’ Timer2.Enabled=
b=True
End Sub
Private Sub Timer1_Timer（ ）
a=a+1
If a＞6 Then
a=1
End If
Select Case a
Case 1
P1.Picture=LoadPicture("黄灯.ico" )
Case 2,3
P1.Picture=LoadPicture("红灯.ico")
Case 4,5,6
’ P1.Picture=LoadPicture("")
If b Then Timer2.Enabled=True
End Select
End SubPrivate Sub Timer2_Timer（ ）
If (a＜4) And (P2.Left＞P1.Left And P2.Left＜P1.Left+P1.Width)
Or P2.Left＜=100 Then
’ Timer2.Enabled=
Else
’ P2.Move —10,P2.Top,P2.Width,
[多项选择]在考生文件夹下有一个工程文件sjt5. vbp，其窗体上有一个名称为Text1的文本框；还有两个名称分别为C1、C2的命令按钮，标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。
请编写适当的事件过程，使得程序运行时，单击“计算”按钮，找出小于18000的最大素数，并显示在Text1中；单击“存盘”按钮，则将Text1中的计算结果存入考生文件央下的out5. txt文件中。
注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out5. txt文件中，否则将没有成绩。
[简答题]完成下列问题：
考生文件夹下有一个工程文件sjt3.vbp，其中的窗体上有一个名称为Cmd的命令按钮控件数组；有一个名称为Image1的图像框。请画一个名称为Timer1的计时器，时间间隔为3s，初始状态为不可用，如图3所示。
[*]
程序功能如下：
单击“前进”按钮，则Timer1的状态变为可用，且在图像框中显示3s黄灯(图像文件为考生文件夹下的yellow.ico)后，显示绿灯(图像文件为考生文件夹下的green.ico)直至下次单击某个命令按钮。
单击“停止”按钮，则Timer1的状态变为可用，且在图像框显示3s黄灯后，显示红灯(图像文件为考生文件夹下的red.ico)直至下次单击某个命令按钮。
单击“结束”按钮，则结束程序执行。
在横线处填写正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
[题目提供的源程序]
Dim flag As Integer
Private Sub Cmd_Click(Index As Integer)
If Index= (1) Then
End
Else
’考生文件夹下的图片文件
Image1.Picture=LoadPicture("yellow.ico")
flag=Index
Timer1.Enabled= (2)
End If
End Sub
Private Sub Timer1_Timer（ ）
Select Case (3)
Case 0
Image1.Picture=LoadPicture("green.ico")
Timer1.Enabled=False
Case 1
Image1.Picture=LoadPicture("red.ico")
Timer1.Enabled=False
End Select
End Sub
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及名称为Line1和Line2的两条水平直线。
请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：
①圆的顶端距离窗体Form1顶端的距离为360。
②圆的颜色为红色(红色对应的值为：&H000000FF&或&HFF&)，如图3所示。
[*]
程序运行时，Shape1将在Line1和Lihe2之间运动。当Shape1的顶端到达Line1时，会自动改变方向而向下运行；当Shape1的底部到达Line2时，会改变方向而向上运动。
文件中给出的程序不完整，请在程序中的横线处填写正确的内容，使其实现上述功能。
注意：不能修改程序的其他部分和已给出的控件的属性，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Dim s As Integer, h As Long
Private Sub Form_Load( )
Timer1.Enabled= (1)
s=-40
End Sub
Private Sub Timer1_Timer（ ）
Shape1.Move Shape1.Left, Shape1.Top+s
If Shape1.Top＜= (2) Then
s=-s
End If
If Shapp1.Top+ (3) ＞=Line2.Y1 Then
s=-s
End If
End Sub
[多项选择]在考生文件夹下有一个工程文件sjt5.vbp，按照要求完成以下操作：
在名称为Form1的窗体上添加两个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”(如图所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第1个数组的第n个元素减去第2个数组的第n个元素，其结果作为第3个数组的第n个元素。这里的n为1、2…20)，最后计算第3个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。
注意：考生不得修改窗体文件中已经存在的程序，且必须执行一次，最后将修改后的文件以原来的文件名存盘。
[简答题](2)在考生文件夹下有一个数据库mydb，其中有数据库表“购买情况”，在考生文件夹下设计一个表单myf，该表单为“购买情况”表的窗口输入界面，表单上还有一个标题为“关闭”的按钮，单击该按钮，则退出表单。
[多项选择](2)在考生文件夹下有一个数据库“医院”，其中有数据库表“医生信息”，在考生文件夹下设计一个表单ys，该表单为“医生信息”表的窗口输入界面，表单上还有一个标题为“关闭”的按钮。单击该按钮，则退出表单。
[简答题]
在考生文件夹下有一个Excel文件“Test.xlsx”和一个数据库文件“samp1.accdb”。在“samp1.accdb”数据库文件中已建立3个表对象(名为“线路”、“游客”和“团体”)和一个窗体对象(名为“brow”)。请按以下要求，完成表和窗体的各种操作。
将“线路”表中的“线路ID”字段设置为主键；设置“天数”字段的有效性规则属性，有效性规则为大于0。
[简答题]
在考生文件夹下有一个图像文件“test.bmp”和一个数据库文件“samp3.mdb”。“samp3.mdb”数据库中已经设计了表对象“tEmp”和“tTemp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。
将表“TTemp”中年龄小于30岁(不合30)、职务为职员的女职工记录选出，并添加进空白表“TEmp”中。
