在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sit4．frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在FunctionFun（）和EndFunction之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
题目
在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sit4．frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在FunctionFun（）和EndFunction之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
相似考题
更多“在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sit4.frm,在窗体上有一个文本框和一个命 ”相关问题
-
第1题：
在考生文件夹中有一个工程文件execise34.vbp，相应的窗体文件为execise34.frm。在名为Form1的窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出。一100范围内所有奇数的平方和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算奇数平方和的操作在通用过程Fun中实现，请编写该过程的代码。
要求：
请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入所编写的若干语句。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第2题：
在考生文件夹中有一个工程文件execise14.vbp，相应的窗体文件为execise14.rrm。在名为Form1的窗体上有一个命令按钮和一个文本框(如下图所示)。程序运行后，单击命令按钮，即可计算出0～500范围内不能被3整除的所有整数的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被3整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。
要求；
请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入所编写的若干语句。最后，按原文件名并在原文件夹中保存修改后的文件。
正确答案：
-
第3题：
在考生文件夹下有一个工程文件execise44.vbp(相应的窗体文件为execise44.frm)，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上绘制一个名为 Text1的文本框；绘制一个名为Cmd1、标题为“计算”的命令按钮；再绘制两个单选按钮，名称分别为Opt1和Opt2、标题分别为“求100到500之间能被5整除的数之和”和“求 100到500之间能被9整除的数之和”，如下图所示。
编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。
注意：
考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前，必须至少进行一种计算，否则不得分。
正确答案：
-
第4题：
在考生文件夹下有一个工程文件sjt4．vbp（相应的窗体文件名为sjt4．frm），其功能是通过调用过程FindMin求数组的最小值。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来（如图所示）。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
正确答案：
【考点分析】本题考点有：Array()函数，UBound()函数，LBound()函数，Val()函数，Print方法，CInt()函数，For循环语句以及If判断语句。
【解题思路】文本框里的内容(包括数字)默认都是当做字符串来处理的，如果需要参与数据运算，则需先用Val()函数将其转化为数字(例如Val(Textl．Text))。CInt函数将数值转换为整型。
这里需要指出的是，利用Array对数组各元素赋值，声明数组的类型只能是Variant。
在本题的FindMin过程中，用变量Min记录最小值，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果小于Min的值则与之交换，依次类推，最终Min的值就是数组各元素中的最小值。在窗体上打印信息可以通过Print方法来实现，其形式为：
[对象．]Print要显示的内容
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，
将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Option Base 1
Private Function FindMin(a() As Integer)
Dim Start As Integer
Dim Finish As Integer，i As Integer
Start=____LBound(a)′求数组下界值
Finish=____UBound(a)______求数组上界值
Min=_____a(Start)′将第一个数赋给最小值进行比较
For i=Start To Finish锯环判断找最小值
If a(i)_<_Min Then Min=_____a(i)_____
Next i
FindMin=Min
End Functioil
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1=Array(Val(Text1．Text)，Val
(Text2．Text)，Val(Text3．Text：)，Val(Text4．Text))′申请arrl数组并初始化
For i=1 To 4
arr2(i)=CInt(arr1(i))′CInt函数将
arrl中的数值转换为整型
Next；i
M=FindMin(_arr2_________)
Print"最小值是："；M
EndSub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】0ptionbase在模块级别中使用，用来声明数组下标的默认下界，optionbase后面只能是0或者1，默认值为0。
-
第5题：
在考生文件夹下有文件in15.txt，文件中有几行汉字。请在Form1的窗体上绘制一个文本框，名称为Text1；能显示多行；再绘制一个命令按钮，名称为Cmd1，标题为Save。编写适当的事件过程，使得在加载窗体时，把in15.txt文件的内容显示在文本框中，然后在文本的最后面手工插入一行字：“计算机等级考试Visual Basic。”如下图所示。最后单击．Save按钮，可以把文本框中修改过的内容存到文件out15.txt中。
注意：
只能在最后面插入文字，不能修改原有文字。文件必须存放在考生文件夹中，以 execise15.vbp为文件名存储工程文件，以execise15.frm为文件名存储窗体文件。
正确答案：