首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2019-08-21
62
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Sub SaveData() Open App.Path&"\"&"outtxt.txt"For Output As#1 Print#1.Text1.Text Close#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 lf i Mod 3=0 Then s=s+i End If Next i Fun=s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
判断0~200范围内的数能不能被3整除,须使用求余运算符Mod,如果余数不为0,则表示该数不能被整除。并需要设置一个变量,以累计不能被3整除的数的和。
转载请注明原文地址:https://kaotiyun.com/show/FdUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面属于黑盒测试方法的是
程序流程图中带有箭头的线段表示的是
在结构化程序设计中,模块划分的原则是
窗体上有一个名称为Combo1的组合框,为了引用Combo1中最后一个列表项,应使用的表达式是
设窗体上有1个名称为HScroll1的水平滚动条,其Max、Min属性分别设置为100、1;有2个名称分别为Option1、Option2的单选按钮,其标题分别为“30”、“50”;还有下面程序代码:PrivateSubOption1_Click()
下列有关文件的叙述中,正确的是
下列可作为VisualBasic变量名的是
下面变量定义中错误的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩
对建立良好的程序设计风格,下面描述正确的是()。
随机试题
请论述我国认证制度的总体架构。
根据《企业破产法》的规定,破产管理人应当向何种机关报告其工作()
急性胰腺炎剧烈腹痛时,正确的药物镇痛措施为
图6-15所示一高压喷嘴,喷嘴出口断面1-1的平均流速为10m/s,喷至2-2断面的平均流减少为1m/s,不计水头损失,则喷射高度H为()m。
弗里德曼的货币需求函数强调的是()。
当今世界正处在大发展大调整大变革之中,和平、发展、合作是时代潮流,同时国际金融危机的影响尚未消除,全球性挑战日益增多。这其中,有两个趋势日益明显。一是,全球化与多极化并行发展。当前,经济全球化、区域一体化深人推进,生产要素在全球范围内优化配置,信息网络无处
Allthepupilsseemtobevery(cheerful).
SteveCourtneywrotehistoricalnovels.Not,hewasquicktoexplain,over-colorfullovestoriesofthekindthatmadesomuchm
WhataretheygoingtodonextFriday?
A、Theyhelptocureanxiety.B、Theyhelpgaininsightintothecauseofanxiety.C、Theyhelptocontrolanxiety.D、Theyhelppat
最新回复
(
0
)