更多"完成下列问题：在考生文件夹下有一个工程文件sjt3.vbp，含有名称分"的相关试题:
[简答题]按要求完成下列各操作：
将考生文件夹下MYTAXI文件夹中的文件夹HIPHI移动到考生文件夹下COUNT文件夹中。
[简答题]按要求完成下列各操作：
将考生文件夹下SHOP/DOCTER文件夹中的文件夹IRISH复制到考生文件夹下的SWISS文件夹中，并将文件夹改名为SOUETH.HAL。
[简答题]在考生文件夹下新建YU和YU2文件夹。
2．将考生文件夹下EXCEL文件夹中的文件夹DA移动到考生文件夹下KANG文件夹中，并将该文件夹重命名为ZUO。
3．搜索考生文件夹下的HAP.TXT文件，然后将其删除。
4．将考生文件夹下的MEI文件夹复制到考生文件夹下COM/GUE文件夹中。
5．为考生文件夹下JPG文件夹中的DUBA.TXT文件建立名为RDLIBA的快捷方式，存放在考生文件夹下。
[简答题]完成下列问题：
考生文件夹下有一个工程文件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，相应的窗体文件为sjt3.frm。其功能是产生20个0～1000的随机数，放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮(名称为Command1，标题为“输出平均值”)，即可求出其平均值，并在窗体上显示出来(如图3所示)。这个程序不完整，清把它补充完整，并能正确运行。
[*]
要求：在程序中的横线处填写正确的内容，使其实现上述功能，但不能修改程序的其他部分，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Option Base 1
Private Sub Command1_Click（ ）
Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer, i
Randomize
For i=1 To 20
arrN(i)=Int(Rnd* (1) )
Next i
Sum= (2)
For i=1 To 20
Sum= (3)
Next i
Aver= (4)
Print Aver
End Sub
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0～200范围内能被3整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算能被3整除的整数的和的操作在通用过程Fun中实现，请编写该过程代码。
要求：请勿改动程序中的任何内容，只在Function Fun（ ）和End Function之间填入若干语句。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Sub SaveData（ ）
Open App.Path & "/" & "outtxt.txt" For Output As #1
Print #1.Text1.Text
Close #1
End Sub
Function Fun（ ）
’考生应编写的程序
End Function
Private Sub Command1_Click（ ）
d=Fun（ ）
Text1.Text=d
SaveData
End Sub
[简答题]按要求完成下列各操作：
1．在考生文件夹下新建HAB1文件夹和HAB2文件夹。
2．将考生文件夹下VOTUNA文件夹中的BACK.FOR文件复制到HAB1文件夹中。
3．为考生文件夹下DONG文件夹中的DDKK.PAS文件建立名为DDKK的快捷方式，并存放在考生文件夹下。
4．将考生文件夹下PANG/FRODUCT文件夹的存档属性撤销，并设置为只读属性。
5．查找考生文件夹中的UYC.BAT文件，然后将其删除。
[简答题]完成下列问题：
在考生文件夹下有一个工程文件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
[简答题]按要求完成下列各操作：
1.将考生文件夹下SKIP文件夹中的文件夹GAP复制到考生文件夹下的EDOS文件夹下，并更名为GUN。
[简答题]按要求完成下列基本操作：
将考生文件夹下LULAR文件夹中的文件MOON.CDX复制到考生文件夹下SEED文件夹中，并将该文件改名为SUN.PRG。
[简答题]按要求完成下列基本操作：
将考生文件夹下PEACE文件夹中的文件HEAP.CPX移动到考生文件夹下TEAR/MONT文件夹中。
[简答题]1．删除考生文件夹下LOBA文件夹中的TUXING文件夹。
2．将考生文件夹下ABS文件夹中的LOCK.FOR文件复制到同一文件夹中，并重命名为FUZHI.FFF。
3．为考生文件夹下WALL文件夹中的PBOB.TXT文件建立名为KUAI的快捷方式，并存放在考生文件夹下。
4．在考生文件夹下XILIE文件夹中创建名为BTNBQ的文件夹，并将其设置为只读。
5．搜索考生文件夹下的DONGBEI.C文件，并将其删除。
[简答题]在考生文件夹下新建KANG1文件夹和KANG2两个文件夹。
2．将考生文件夹下MING文件夹复制到KANG1文件夹中。
3．将考生文件夹下HWAST文件夹中的文件XIAN.txt重命名为YANG.txt。
4．搜索考生文件夹中的FUNC. wri文件，然后将其设置为“只读”属性。
5．为考生文件夹下SDTA/LOU文件夹建立名为KLOU的快捷方式，并存放在考生文件夹下。
