首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2020-08-10
47
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun( )和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
判断0~200范围内的数能不能被3整除,须使用求余运算符Mod,如果余数不为0,则表示该数不能被整除。并需要设置一个变量,以累计不能被3整除的数的和。 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Sub SaveData( ) Open App.Pa&&“\”&“outtxt.txt”For Output As #1 Print#1.Text1.Text CIose#1 End Sub Function Fun( ) End Function Private Sub Command1_Click( ) d=Fun( ) Text1.Text=d SaveData End Sub 程序结束 Function Fun( ) Dim s As Integer,i As Integer For i=0 To 200 If i Mod 3=0 Then s=s+i End If Next i Fun=s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/SqHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,4,5)
以下叙述中错误的是
在VisualBasic中,表达式3*2\5Mod3的值是
对于列表框控件List1,能够表示当前被选中列表项内容的是
一间宿舍可住多个学生,则实体宿舍和学生之间的联系是
数据库技术的根本目标是要解决数据的
在设计阶段,假定在图片框:Picturel中装入了一个图形,为了删除该图片框控件,应采用的正确操作是
一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
随机试题
产后子宫重量逐渐减少,错误的是:
以下体表标志正确的是
发生支气管炎时,若支气管分泌物中有大量的嗜酸性粒细胞,其原因可能是
治疗腰痛的穴组是
在下列质量控制的统计分析方法中,需要听取各方意见,集思广益,相互启发的是( )。
以承包商为某项索赔工作所支付的实际开支为根据,向业主要求费用补偿是()计算原则。
作为公司制交易所的最高权力机构,股东大会就公司的重大事项如( )等做出决议。
银行承兑汇票是货币证券中银行证券的一种。( )
喜欢:讨厌
wanttoeatfoodfeelingthatonewantstorest
最新回复
(
0
)