niusouti.com
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。去掉程序中的注释符，把程序中的?改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。在窗体上有三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，还有一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)，如图22-8所示。程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组
题目
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
去掉程序中的注释符，把程序中的?改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。
在窗体上有三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，还有一个文本框(名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2)，如图22-8所示。
程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中可以被3整除的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为sjt5.vbp，窗体文件名仍为sjt5.frm。
相似考题
更多“ 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。去掉程序中的注释符，把程序中的?改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分。在窗体上有三个菜单(名称分别为Read、Calc”相关问题
-
第1题：
在考生文件夹下有一个工程文件execise42.vbp及窗体文件execise42.frm。在名为Form1的窗体中有一个文本框，两个命令按钮和一个计时器。程序的功能是；在运行时，单击“开始”按钮，就开始计数，每隔1秒，文本框中的数加1；单击“停止”按钮，则停止计数，如下图所示。
注意：
修改适当的控件的属性，并去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
正确答案：
-
第2题：
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。
(1) 在名称为Form1的窗体中画一个名称为L1的标签，其标题为“0”，BorderStyle属性为“再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。如图27-3所示的是程序刚启动时的情况。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
(2)在考生文件夹下有一个工程文件sjt4.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图27-4所示。
要求：修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。
正确答案：在窗体上建立好控件后先设置控件属性再编写事件过程。 标签的标题由Caption设置BorderStyle属性用来设置标签的边框。计时器控件用来周期性的触发Timer事件事件间隔通过计时器的Interval属性设置其单位时毫秒题目要求每隔1秒。解题步骤： 第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表27-3。
第二步：编写程序代码。
参考代码：
Private Sub Form_Load()
L1.BorderStyle = 1 - fixed
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
L1.Caption = L1.Caption + 1
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后先设置控件属性再编写事件过程。
列表框的MultiSelect属性用来设置一次可以选择的表项数。该属性有3种取值：
O—None每次只能选择一项如果选择另一项则会取消对前一项的选择；
1—Simple可以同时选择多个项后续的选择不会取消前面的选择。可以用鼠标或空格键选择；
2—Extended可以选择指定范围内的表项。
因此为了实现题目要求的功能应将MultiSelect属性设置为1。列表框的ListCount属性表示表项的数量列表框中表项的排列从。开始最后一项的序号为ListCount-1。为了检测列表框中被选择的项应使用Selected属性该属性实际上是一个数组每个元素与列表框中的一项对应其取值为True或False。当元素的值为True时表明选择了该项；为False表示未选择。使用List属性列出被选中项的内容。解题步骤：
第一步：建立界面并设置控件的属性。程序用到的控件及其属性见表27-4。
第二步；编写程序代码。
程序提供的代码：
Private Sub C1_Click()
'For i = ? To ?
'If l1.? = True Then
Print l1.List(i)
End If
Next
End Sub
参考代码：
Private Sub C1_Click()
For i = 0 To l1.ListCount - 1
If l1.Selected(i) = True Then
Print l1.List(i)
End If
Next
End sub
第三步：调试并运行程序。
第四步；按题目要求存盘。
在窗体上建立好控件后，先设置控件属性，再编写事件过程。 标签的标题由Caption设置，BorderStyle属性用来设置标签的边框。计时器控件用来周期性的触发Timer事件，事件间隔通过计时器的Interval属性设置，其单位时毫秒，题目要求每隔1秒。解题步骤： 第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表27-3。
第二步：编写程序代码。
参考代码：
Private Sub Form_Load()
L1.BorderStyle. = 1 - fixed
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
L1.Caption = L1.Caption + 1
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。
列表框的MultiSelect属性用来设置一次可以选择的表项数。该属性有3种取值：
O—None每次只能选择一项，如果选择另一项则会取消对前一项的选择；
1—Simple可以同时选择多个项，后续的选择不会取消前面的选择。可以用鼠标或空格键选择；
2—Extended可以选择指定范围内的表项。
因此，为了实现题目要求的功能，应将MultiSelect属性设置为1。列表框的ListCount属性表示表项的数量，列表框中表项的排列从。开始，最后一项的序号为ListCount-1。为了检测列表框中被选择的项，应使用Selected属性，该属性实际上是一个数组，每个元素与列表框中的一项对应，其取值为True或False。当元素的值为True时，表明选择了该项；为False表示未选择。使用List属性列出被选中项的内容。解题步骤：
第一步：建立界面并设置控件的属性。程序用到的控件及其属性见表27-4。
第二步；编写程序代码。
程序提供的代码：
Private Sub C1_Click()
'For i = ? To ?
'If l1.? = True Then
Print l1.List(i)
End If
Next
End Sub
参考代码：
Private Sub C1_Click()
For i = 0 To l1.ListCount - 1
If l1.Selected(i) = True Then
Print l1.List(i)
End If
Next
End sub
第三步：调试并运行程序。
第四步；按题目要求存盘。
-
第3题：
在考生文件夹中有工程文件execise80.vbp及窗体文件execise80.frm。在名为Form1的窗体上有一个名为Image1的图像框。要求程序运行后。鼠标左键单击图像框，则图像框变大；鼠标右键单击图像框，则图像框变小。如下图所示。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第4题：
在考生文件夹中有工程文件execise71.vbp及窗体文件execise71.tim。在名为Form1的窗体中有两个命令按钮，名称分别是Cmd1和Cmd2，标题分别是“修改图标”和“修改标题”。要求程序运行后，单击“修改图标”命令按钮，则将窗体标题栏中的图标换为图标文件pic1.ico(该文件在考生文件夹中)；单击“修改标题”命令按钮，则将窗体标题修改为“这是窗体”，如下图所示。
本程序不完整，请补充完整，并能正确运行。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第5题：
在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．{rm。其功能是在Text文本框中输入一个数N，单击命令按钮计算从0到N的所有素数的和，并在Text2中显示出来。运行程序如图7-3所示。
注意：去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
正确答案：
判断一个数是否为素数的准则：就是看该数是否除了1及其本身外别无其他约数(即从2到n-1 之间没有可以将其整除的数)即可。
根据题意，在窗体上添加两个Text控件和一个Command控件，Text的名称分别为Text1和Text2、Text属性均为空，Command的名称为Command1、Caption属性为“计算”。双击Command1命令按钮，编写如下代码(本书答案解析部分的代码中，若无特殊说明，加下划线的代码则表明是需要考生补充的代码)：
Private Sub Command1_Ctick
Dim total As Long
Dim i As Integer
total=0
For i=1 To Val(Text1．Text)
If isPrimeNum(i)=True Then
调用isPrimeNum函数判断是否是素数
total=total+i如果是，则进行求和
End If
Next i
Text2．Text=total 将结果在Text2中显示
End SubFunction isPrimeNum(num As Integer)As Boolean
判断输入的数是否为素数
isPrimeNum=True
Dim i As Integer
For i=2 To num-1
If num Mod i=c Then
如果能被除1及其本身以外的数整除
isPrimeNum=False则此数不是素数
Exit For
End If
Next i
End Function
单击
按钮运行程序，并按要求保存。