vb等级考试题目与评析43内容摘要：
********************************** （ 2）在考生文件夹下有一个工程文件 ，相应的窗体文件为 ， 在窗体上有一个命令按钮和一个文本框。 程序运行后，单击命令按钮，即 可计算出 0～ 100范围内不能被 7整除的所有整数的和，并在文本框中显示 出来。 在窗体的代码窗口中，已给出了部分程序， 其中计算不能被 7整除 的整 数的和的操作在通用过程 Fun中实现，请编写该过程的代码。 要求： 请勿改动程序中的任何内容，只在 Function Fun()和 End Function之间 填入你编写的若干语句。 最后把修改后的文件按原文件名存盘。 第 1小题： 打开工程文件 ，打开代码窗口，修改后的代码如下： Option Base 1 Private Sub Command1_Click() Dim arrN(20) As Integer Dim Sum As Integer Randomize For i = 1 To 20 arrN(i) = Int(Rnd * 1000) Next i Sum = 0 For i = 1 To 20 If arrN(i) 500 Then Sum = Sum + arrN(i) End If Next i Print Sum End Sub 按要求保存文件即完成本题。 第 2小题： 本题的考查的是求和的算 法，通过调用函数 Fun将大于 500的数之和求出来。 打开工程文件 体文件名为 ，在代码窗口中补充如下代码： Function Fun() Dim i As Integer Dim temp As Integer For i = 0 To 100 If i Mod 7 0 Then temp = temp + i End If Next i Fun = temp End Function 按要求保存文件即完成本题。阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体)，仅供学习参考。
用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权，请联系我们反馈本站将在三个工作日内改正。