首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,
admin
2020-04-08
19
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/Qtx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
设有如下通用过程:PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=strL
下列关于类、对象、属性和方法的叙述中,错误的是()。
数据库中对概念模式内容进行说明的语言是
要使两个单选按钮属于同一个框架,下面三种操作方法中正确的是( )。①先画一个框架,再在框架中画两个单选按钮②先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中③先画两个单选按钮,再画框架将单选按钮框起来
为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为( )。
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
表达式Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是()。
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏For/rd,显示Form2。若口令为“XSLNCE
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
随机试题
核糖核酸是
支原体肺炎最常见的胸部X线表现是
带形母线与设备连接的预留长度为()m。
外墙墙身防潮层宜设在室内地坪以下()mm处。
格赛尔关于儿童发展的原则有哪些?()
大多数喝酒过量的人都会感到头疼,所以如果小王不喝酒过量,他可能不会头疼。上述推理与下列哪项相似?
A.RF-1B.RF-2C.两者均是D.两者均非能辨认终止密码子UGA的翻译释放因子是
用外存加上内存之和与虚拟内存空间相比,其大小关系是()。
Thecomprehensionpassagesonthiscoursearedesignedtohelpyouincreaseyourspeed.Ahigherreadingrate,withnolossofc
简述侮辱罪的构成条件。
最新回复
(
0
)