更多"完成下列问题：在考生文件夹下有工程文件sjt4.vbp，其中的列表框中"的相关试题:
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp。在窗体中“待选城市”下的List1列表框中有若干城市名称。程序运行时，选中List1中若干个列表项(如图6所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”按钮，则在Text1文本框中显示这些选中的城市(如图7所示)。已经给出了所有控件和程序，但程序不完整。
[*]
[*]
要求：在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
(题目提供的源程序]
Private Sub Command1_Click（ ）
Dim k%
For k=List1.ListCount-1 To 0 (1)
If List1.Selected(k)=True Then
List2.AddItem (2)
List1.RemoveItem (3)
End If
Next k
End Sub
Private Sub Command2_Click（ ）
Dim k%
Text1="已经选中的城市有:"
For k=0 To List2.ListCount-1 Step 1
Text1= (4) & "" & List2.List(k)
Next k
End Sub
[多项选择]在考生文件夹下有一个名为zonghe的表单文件，其中：单击“添加＞”命令按钮可以将左边列表框中被选中的项添加到右边的列表框中；单击“＜移去”命令按钮可以将右边列表框中被选中的项移去(删除)。
请完善“确定”命令按钮的Click事件代码，其功能是：查询右边列表框所列课程的学生的考试成绩(依次包含姓名、课程名称和考试成绩3个字段)，并先按课程名称升序排列，课程名称相同的再按考试成绩降序排列，最后将查询结果存储到表zonghe中。
注意：(1)SCORE表中的“考试成绩”字段是在基本操作题中修改的。
(2)程序完成后必须运行，要求将“计算机基础”和“高等数学”从左边的列表框添加到右边的列表框，并单击“确定”命令按钮完成查询和存储。
[简答题](1)在考生文件夹下新建一个名为myform的表单文件，表单中包括一个列表框(List1)和两个标题分别为“生成表”和“退出”(名称为Command1和Command2)的命令按钮。
(2)设置列表框的数据源(RowSource)和数据源类型(RowSourceType)两个属性，使用SQL语句根据“学院表”的“系名”字段的内容在列表框中显示“系名”(注意不要使用命令指定这两个属性)。
(3)为“生成表”命令按钮的单击事件编写程序。程序的功能是根据表单运行时列表框中选定的“系名”，将“教师表”表中相应系的所有记录存入以该系名命名的自由表中，自由表中包含“职工号”、“姓名”和“工资”3个字段，结果按“职工号”升序排列。
(4)运行表单，单击“生成表”命令按钮，分别生成存有“计算机”、“通信”和“信息管理”系信息的3个表。
[简答题]完成下列问题：
考生文件夹下有一个工程文件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。窗体上有个钟表图案，其中代表指针的直线的名称是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
[简答题]完成下列问题：
在考生文件夹下有一个工程文件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
[简答题]完成下列问题：
考生文件夹下有一个工程文件sjt4.vbp，其中的窗体上已有如图4所示的控件。程序功能如下：
[*]
①单击“读数据”按钮，则将考生文件夹下in4.dat文件内容(该文件中仅含有字母和空格)显示在Text1文本框中。
②在Text1中选中部分文本，并单击“统计”按钮，则以不区分大小写字母的方式，自动统计选中文本中同时出现“o”、“n”两个字母单词的个数(如：million、company都属于满足条件的单词)，并将统计结果显示在Text2文本框内。
在横线处填写正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
[题目提供的源程序]
Dim s As String
Private Sub Command1_Click（ ）
Open App.Patb & "/in4.dat" For Input As #1
s=Input(LOF(1),#1)
Close #1
Text1.Text=s
End Sub
Private Sub Command2_Click（ ）
Dim m As Integer
If Len(s)= (1) Then
MsgBox "请先使用"读数据"功能!"
Else
If Text1. (2) =0 Then
MsgBox "请先选中文本!"
Else
t=""
For i=1 To Text1.SelLength
c=Mid(Text1.SelText,i,1)
If c＜＞"" Then
t=t+c
Else
x= (3)
If InStr(x, "o") ＜＞ 0 And InStr(x, "n") ＜＞ 0 Then
m=m+1
End If
t=""
End If
Next i
(4) =Str(m)
End If
End If<
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt3.vbp，在Form1的窗体中有1个文本框、2个命令按钮和1个计时器。程序的功能是在运行时，单击“开始计数”按钮，就开始计数，每隔1s，文本框中的数加1；单击“停止计数”按钮，则停止计数(如图3所示)。
[*]
要求：修改适当的控件的属性，在程序中的横线处填写正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
[题目提供的源程序]
Private Sub C1_Click(Index As Integer)
Select Case (1)
Case 1
Timer1.Enabled=False
Case (2)
Timer1.Enabled=True
End Select
End Sub
Private Sub Timer1_Timer（ ）
Text1.Text=Text1.Text (3)
End Sub
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp。其窗体上已有部分控件，请按照图6所示添加框架和单选按钮。请画2个框架，名称分别为Frame1、Frame2，在Frame1中添加一个名为Option1的单选按钮数组，含两个单选按钮，标题分别为“古典音乐”、“流行音乐”；在名称为Frame2中添加2个单选按钮，名称分别为Option2、Option3，标题分别为“篮球”、“羽毛球”。刚运行程序时，“古典音乐”和“篮球”单选按钮为选中状态。单击“选择”按钮，将把选中的单选钮的标题显示在标签Label2中，如图7所示。如果“音乐”或“体育”复选框未被选中，则相应的单选按钮不可选。
[*]
[*]
要求：按照题目要求添加控件，在程序中的横线处填写正确的内容。
注意：不能修改程序的其他部分和控件属性，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Check2_Click（ ）
If Check2.Value=1 Then
Frame2.Enabled=True
Else
Frame2.Enabled=False
End If
End Sub
Private Sub Command1_Click（ ）
If Check1.Value=1 Then
If (1) =True Then
s="古典音乐"
Else
s="流行音乐"
End If
End If
If Check2.Value=1 Then
If (2) =True Then
s=s & "篮球"
Else
s=s & "羽毛球"
End If
End If
Label2.Caption= (3)
End Sub
Private Sub Form_Load（ ）
Check1.Value=1
Check2.Value=1
End Sub
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt3.vbp，含有名称分别为Form1、Form2的两个窗体。其中Form1上有2个控件(图像框和计时器)和1个菜单项“操作”，含有3个菜单命令(如图4所示)。Form2上有一个名称为Command1、标题为“返回”的命令按钮(如图5所示)。要求当单击“窗体2”菜单命令时，隐藏Form1，显示Form2。单击“动画”菜单命令时，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左边界重新移动。单击“退出”菜单命令时，结束程序运行。在程序中的横线处填写正确的内容。
[*]
[*]
注意：考生不得修改窗体文件中已经存在的程序，最后程序按原文件名存盘。
[题目提供的源程序]
Form1的源程序：
Private Sub mnuOper_Click(Index As Integer)
Select Case (1)
Case 1
Form2.Show
Form1.Hide
Case 2
Timer1.Enabled= (2)
Case 3
End
End Select
End Sub
Private Sub Timer1_Timer（ ）
Picture1.Left=Picture1.Left+100
If Picture1.Left+Picture1.Width＞= (3) Then
Picture1.Left= (4)
End If
End Sub
Form2的源程序：
Private Sub Command1_Click（ ）
Form1.Show
Form2.Hide
End Sub
[简答题]
完成下列问题：
在考生目录下有一个工程文件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
[简答题]完成下列问题：
在考生文件夹下有一个工程文件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
[简答题]完成下列问题：
在考生文件夹下有一个工程文件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
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图4是输入53后的结果，图5是输入100的结果。已经给出了全部控件和程序，但程序不完整。
[*]
[*]
要求：请在程序中的横线处填写正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
[题目提供的源程序]
Private Sub Command1_Click（ ）
Dim n As Integer
Cls
(1) =InputBox("请输入一个整数")
Print "因子数="; fun(n)
End Sub
Function fun(m As Integer)
Dim s As Integer
s=0
For k=1 To Abs(m)/2
If m Mod k= (2) Then
s=s+1
Print k
End If
Next k
(3)
End Function
[简答题]完成下列问题：
在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图3所示。输入商品名称后，选中一种付款方式，则“成交”按钮变为可用，选择一种或多种“服务”后，单击“成交”按钮，则把相应信息显示在下面的图片框中，如图4所示。若不选任何“服务”，则显示如图5所示。单击“放弃”按钮，则恢复到图3状态。
[*]
[*]
[*]
程序已经给出但不完整，请在横线处填写正确的内容，以实现上述功能。
要求：考生不得修改窗体文件中已经存在的控件和程序，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click（ ）
Dim flag As Boolean
flag=False
Picture1.Print Label1.Caption, Text1.Text
Picture1.Print Frame1.Caption; ":",
For k=0 To 3
If Optionl(k).Value=True Then
Picture1.Print Optionl(k).Caption
End If
Next k
For k=0 To 2
If Check1(k).Value= (1) Then
If Not flag Then
Picture1.Print Frame2.Caption; ":",
flag=True
End If
Picture1.Print Check1(k).Caption; "";
End If
Next k
Picture1.Print
End Sub
Private Sub Command2_Click（ ）
(2) =""
For k=0 To 3
Optionl(k).Value=False
Next k
For k=0 To 2
Checkl(k).Value=0
Next k
Picture1.Cl
[多项选择]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图4所示。程序功能如下：
[*]
①单击“渎数据”按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a中。
②单击“计算”按钮，则根据从名称为Combo1的组合框中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。
“读数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程，实现上述功能。
注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。
[题目提供的源程序]
Dim a(100) As Integer
Private Sub Command1_Click（ ）
Dim k As Integer
Open App.Path & "/in4.dat" For Input As #1
For k=1 To 100
Input #1, a(k)
Next k
Close #1
End Sub
Private Sub Command2_Click（ ）
’考生应编写的程序
End Sub
[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图4所示。该程序用来对在上面的文本框中输入的项字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图4所示。窗体中已经给出了所有控件和程序，但程序不完整，请在程序中的横线处填写正确的内容。
[*]
注意：不能修改程序中的其他部分和控件属性，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click（ ）
Dim n As Integer, k As Integer, m As Integer
Dim c As String, a As String
For k=0 To 2
If Op1(k).Value Then
n=Val(Op1(k). (1)
End If
Next k
m=Len(Text1.Text)
a=""
For k=1 To (2)
c=Mid $ (Text1.Text, (3) ,1)
c=String (1,Asc(c)+n)
If c＞"z" Or c＞"Z" And c＜"a" Then
c=String(1,Asc(c)-26)
End If
(4) =a+c
Next k
Text2.Text=a
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文件中。
注意：考生不得修改窗体文件中已经存在的程序，且必须执行一次，最后将修改后的文件以原来的文件名存盘。
