首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,
admin
2013-10-18
46
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun( )和End Function之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件下的本题工程文件sjt4.vbp,在代码编辑窗口,编辑Fun函数的内容。 参考代码: For i=1 To 1 000 If i Mod 7<>0 Then Y=Y+1 End If Next i Fun=Y 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/yHQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下通用过程:PubficFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertstr=“”strL=Len(xStr)i=1DoWhilei
(1)在考生文件夹下有一个工程文件sj3.vbp,窗体上有一个单选按钮数组,名称为Optionl,含4个单选按钮,它们的Index属性分别为O、1、2和3,标题依次为“Iteml”、“Itera2”、“Item3”和“Item4”,再画一个名称为Textl
(1)在窗体上设置两个标签,名称分别为Labell与Label2、标题分别为“当前时间为:”和空;要求当单击窗体时,Label2显示当前时间。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图21—3所示。注意:要求考生在编写完程序后,
在考生文件夹下在一个工程文件sj5.vbp,窗体上有一个菜单“编辑”,名称为Edit,下面有一个二级菜单,含两个菜单项,名称分别为Read和Search,标题分别为“读取”和“查找”。另有一个文本框,名称为Textl,内容为空;3个标签名称分别为Label
将E-R图转换为关系模式时,实体和联系都可以表示为______。
软件测试方法中,黑盒测试法和白盒测试法是常用的方法,其中黑盒测试法主要是用于测试【】。
在VisualBasic中,下列哪种控件可以包含其他控件:______。
设有以下循环结构:Do循环体LoopWhile<条件>则以下叙述中错误的是______。
以下叙述中错误的是______。
下列关于栈的叙述正确的是
随机试题
受体根据与其结合的______________命名,胆碱能受体又有______________和______________之分别。前者分布于______________,______________,______________,____________
Windows中双击处于最大化状态的窗口的标题栏,则使该窗口______。
对于放射治疗敏感的是
该患者最可能的诊断是( )。该患者在左房代偿期最严重的表现是( )。
个人质押贷款利率按中国人民银行规定的()期限贷款利率执行,以个人凭证式国债质押的,贷款期限内如遇利率调整,贷款利率()。
企业实际支付已宣告的现金股利会导致企业所有者权益减少。()
截至2011年4月21日22时,沪深两市已有534家上市公司公布第一季度财报。这534家公司实现营业总收入4572.78①亿元,同比增长30.74%。不过,一季度营业总收入环比下降12%②,这534家公司2011年一季度存货6167.68亿元,较上年年末增
Theauroraisoneofnature’smost______spectacles.
Inthatcountry,hospitaldoctorsdon’tgosightseeingveryoftenbecausetheirwork______almostalltheirtime.
A、Itsoundstoogoodtobetrue.B、It’suptoyou.C、Forgetit.D、Well,I’mnotsure.A“Toogoodtobetrue.”意为“好得令人难以置信”,表示自己
最新回复
(
0
)