首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2020-08-10
22
问题
在考生文件夹下有一个工程文件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://jikaoti.com/ti/C4S0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下程序段:Dima(10)ForEachxInaPrintx;Nextx在上面的程序段中,变量x必须是
、下列叙述中正确的是’
以下关于单选按钮和复选框的叙述中,正确的是
在软件设计中,不属于过程设计工具的是
在程序中要使用Array函数给数组arr赋初值,则以下数组变量定义语句中错误的是()。
窗体上有1个名称为Command1的命令按钮,事件过程如下:PfivateSubCommand1_Click()DimnumAsInteger.xAsIntegernum=Val(InputBox("请输入一个正
窗体上有一个名称为Combol的组合框,要求在其编辑区输入文本并按回车键后,编辑区中的文本被添加到列表中。下面能实现这一功能的是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"TeXtl.SetFocusEndSubPriv
为了用键盘打开菜单和执行菜单命令,第一步应按的键是
表达式Int(5.3)+Int(-5.8)>Fix(5.3)+Fix(-5.8)的值是
随机试题
表彰先进的通报应当怎样写?
下列选项中,属于配伍禁忌的有
水库在汛期允许兴利的上限水位,也是水库防洪运用时的起调水位,称为()。
文明施工是企业环境管理体系的一个重要部分,市政公用工程文明施工应包括()。
建设工程以赔偿损失方式承担违约责任的构成要件包括()。
地陪在确定旅游团的叫早时间前应与()商量。
A、 B、 C、 D、 D左边四个图形可以拼合成如下图形:
Anaccidentaldiscoveryhasbroughtearthquakescientistsonestepclosertobeingabletopredictearthquakes.Aspartofanef
文本框的Locked属性被设置为True后产生的效果是
编写一个甬数,其功能是:从传人的num个字符中找出最长的一个字符串,并通过形参指针max传回该串地址(用****作为结束输入的标识)。注意:部分源程序在文件PROG1.C中。请勿改动主函数main和其他函数中的任何内容,仅在函数fun的
最新回复
(
0
)