首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,
admin
2020-04-08
56
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 Function Fun() Dim s As Integer,i AsInteger For i=0 To 1000′求0~1000中满足条件的数 If i Mod 7<>0 Then s=s+1 ′将满足务件的数的个数累加 End If Next i Fun=s’返回结果 End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
可通过求余运算符Mod来计算某数M能否被7整除,如果M Mod 7=0,那么M能被7整除;如果M Mod 7<>0,那么M不能被7整除。可利用For。循环语句来逐个判断0~1000范围内的整数能否被7整除,然后用一个变量来统计不能被7整除的整数个数。
转载请注明原文地址:https://kaotiyun.com/show/cATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列可以激活属性窗口的操作是()。
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima(4,4) Fori=1To4 Forj=1To4
如下关于变体类型变量的叙述中,错误的是()。
为了读取数据,需打开顺序文件"D:\data5.txt",以下正确的命令是
表达式Abs(-5)+Len(“ABCDE”)的值是()。
表达式Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是()。
以下不合法的VB变量名是
设“A="87654321"”,则表达式Val(Left(A,4)+Mid(A,4,2))的值为()。
与数学式子对应的VisualBasic表达式是
随机试题
海南岛是个绿色宝岛,森林覆盖率超过()%。
论述商品价值量与劳动生产率的关系。
如果发现计算机感染了病毒,可采用_________两种方式立即进行清除。
戏曲作品:《桃花扇》
经产妇,产后第1天,诉下腹痛。查有低热,出汗,咽不充血,无恶心呕吐、腹泻,脐下2横指处触及一硬块上界,白细胞110×10y/L,中性0.75,最可能的诊断是( )
传染性非典型肺炎的病原体为
下列级数中发散的是( )。
1.背景2009年某市一重点工程项目,采用工程量清单方式公开招标。经资格预审后,确定A、B、C、D、E共5家施工单位为合格投标人。招标人规定发放招标文件的开始时间为4月20日,截止时间为4月23日,并要求投标人在领取招标文件的同时递交投标保证金50万元,
按照行政行为的对象或者行政相对人是否为特定的人或组织,行政行为可以分为抽象行政行为和具体行政行为。下列关于具体行政行为的表述中,不正确的是()。
InBritain,ministersareappointedbytheQueenontherecommendationof______.
最新回复
(
0
)