用VB编一个程序,求从1至100的自然数的和
问题描述:
用VB编一个程序,求从1至100的自然数的和
答
dim i as integer
dim sum as integer
i = 1
方法1
do while i 100
sum = sum + i
i = i + 1
loop
方法3
do
sum = sum + i
i = i + 1
loop while i
相关推荐
- 一种计算装置,有一数据入口A和一个运算出口B,执行某种运算程序:当从A口输入自然数1时,从B口得到实...一种计算装置,有一数据入口A和一个运算出口B,执行某种运算程序:当从A口输入自然数1时,从B口得到实数3/1,记为f(1)=1/3 当从A口输入自然数n(n大于等于2)时,在B口得到的结果f(n)是前一结果f(n-1)的2(n-1)-1/2(n-1)+3倍 (1)当从A口输入3时,求从B口得到的数 (2)要想从B口得到1/2303,求应从A口输入的自然数 求标准格式的解题过程题是没有抄错的 这是我们试卷上的 自己看吧
- 将1、2、3、……100这一百个自然数,任意分成50组,每组两个数.现将每组任意一个数记作a,另一个记作b,代入代数式0.5(|a—b|+a+b)中进行计算,求出其结果,50组数代入后可求得50个值,求这50个值的和的最大值.用因为所以写吧
- 一个工人用100N的力把160N的木箱从长为6m斜面低端沿斜面推至3米高处,求机械效率.和木箱与斜面间的摩擦力
- 跪下来求你们了一.找规律(1)1、4、7、10、()、()(2)2、6、18、54、162、()、()、(3)1、3、7、15、31、63、()、()(4)5、8、12、17、23、()、()二.把自然数1~200按下面方法分成ABC三组。A组.1、6、7、12、13、18、......B组2、5、8、11、14、17、.....C组3、4、9、10、15、16、.....(1)每组各有多少个数?每组的最后一个是多少?(2)173在哪组的第几个?三.(1)写出第五层每个括号的编号。1(2)从第1层到第7层共有几个括号?2、3(3)编号为100的括号在第几层?4、5、6、7、8、9、10、()()()()()四.(1)括号中的五个是之和与中间数有什么关系?(2)当五个数的和是115时,你能把这五个数用括号括出来吗?
- 某校抽查了六年级60个同学,其中有2/3爱好乒乓球,3/4爱好打篮球.①两样都爱好的最多有几人?最少有几人?②如果两样都爱好的有32人,那么只爱好打篮球的有几人?两样都不爱好的有几人?我县电力局从2002年1月起进行居民峰谷电试点,每天8:00至22:00每度0.56元(峰电价),从22:00至次日8:00每度0.28元(谷电价),不使用峰谷电的居民每度0.53元.小明家使用峰谷电后,四月份付电费95.2元,经测算比不使用峰谷电表要节约10.8元.①如果不使用峰谷电表要付多少元?②四月份一共用电多少度?③四月份峰电和谷电各用多少度?王叔叔和李叔叔本月的收入比是18:13,支出比是2:1.结果两人本月都结余800元,王叔叔和李叔叔本月各收入多少元?(用比例解)在一只底面半径是20cm的圆柱体玻璃容器里,放入一个底面半径是10cm的圆锥形铸件后,水面上升了3cm,这个圆锥的高是多少厘米?甲乙两地相距90km,一辆汽车从甲去乙用了2h,返回用了2.5h.求汽车乙往返的平均速度.
- x0],{k,0,n,1}]EndPackage[]这种是很不完善的,在用户输入函数的时候,应该要首先判断是否存在导数,偶不知道要怎么编这个程序,小女子感激不尽" target="_blank"> 用mathematica求高阶导数计算问题有这样一个题目是高阶导数的计算问题:请设计一个程序包用于求一元函数的高阶导数和导数值,要求运行时只要用户输入函数,求导的阶数和求导数值的点就计算并告知用户所求高阶导数和导数值.谢谢你能帮我,你先看看我的程序吧:BeginPackage["daoshu`"]daoshu::Uasage = "for f(x) and x=x0,Calculus derivations of n order"f[x_] = Input["input f[x]="]n = Input["jieshu shi n="]x0 = Input["qiu dao de dian x0="]Do[Print["x=",x0,"derivatives of f(x) ",k,"order",D[f[x],{x,k}] /.x -> x0],{k,0,n,1}]EndPackage[]这种是很不完善的,在用户输入函数的时候,应该要首先判断是否存在导数,偶不知道要怎么编这个程序,小女子感激不尽
- 实验一 顺序表的建立及显示 一、【实验目的】 1、理解和掌握顺序表的结构类型定义方法.实验一 顺序表的建立及显示一、【实验目的】1、理解和掌握顺序表的结构类型定义方法.2、掌握建立顺序表的基本方法.3、掌握显示顺序表元素的基本方法.二、【实验内容】1、在开始实验之前,先建立一个文件夹(可用自己的班级加学号或姓名命名).2、建立一个顺序表,要求从键盘输入5个整数(每一个用逗号隔开),并将该顺序表的元素从屏幕显示出来.将源程序以实验1_1为文件名保存在自己的文件夹里面.3、建立一个顺序表,要求从键盘输入整数(每一个用逗号隔开),0为输入结束标志,并将该顺序表的元素从屏幕显示出来.将源程序以实验1-2为文件名保存在自己的文件夹里面.#include#includeusing namespace std;#define LIST_INIT_SIZE 100#define LISTINCREMENT 10typedef struct{int *elem;int length;int listsize;}sq
- 如图,在矩形ABCD中,AB=12㎝,BC=6㎝,点P沿AB边从点A开始向点B以2㎝/s的速度移动,点Q沿DA边从点D开始向点A以1㎝/s的速度移动,如果P、Q同时出发,用t表示时间(0≤t≤6),那么(1)当t为何值时△QAP为等腰三角形;(2)求四边形QAPC的面积?并提出一个与计算有关的结论.不好意思,我的图片没法上传,我只好详细地描述一下了图片,你自己再画出来:矩形的左上角的顶点为点D,以顺时针方向排列,剩下三个顶点依此是:C、B、A,点Q在线段DA略靠下方的位置,点P在线段AB靠左方的位置,并且连接QP、CQ、CP.请详细地说出原因,如果你说的非常正确、周到可以追加20~100不等的悬赏分.我很急啊………马上就开学了啊--!要带有因为∵和所以∴的符号,更能精确的回答问题
- 1、四分之X=五分之Y=六分之Z,求代数式5X-3Y-4Z分之2X+3Y+4Z的值2、A、B两地相距360千米,甲车从A地出发开往B地,每小时行驶72千米,甲车出发25分钟后,乙车从B地开往A地,每小时行驶48千米,两车相遇后,各自按各自的速度继续行驶,当两车再相距120千米时,甲车从出发一共用了多长时间?3、王老汉为了与客户签订订购合同,需对自己鱼塘中的鱼总重量进行估计,他第一次捞出100条,称得重量为184千克,并将每条鱼作上记号放入水中;当它们完全混于鱼群之后,又捞出200条,称得其重量为416千克,且带有几号的鱼有20条,问王老汉的鱼塘中估计有鱼多少跳?公重多少千克?4、已知1小于X小于2,化简X-1的绝对值加2-X的绝对值-X-4的绝对值5、用“+、-、x、除”或括号将4、-6、5、10写成算式,使其结果为24,请你试着写出三个.6、用一个正方形在某月的日历上圈出2x2个数,若这4个数的和是76,则所圈的这4天分别是几号?7、某市为鼓励居民节约用电,对居民用电按分段计费方式进行收费.若每
- 1、一辆汽车从A地驶往B地,前三分之一路段是普通公路,其余的是高速公路,已知汽车在普通公路上的速度是60km∕h,高速公路上的速度是100km∕h,车从A到B共行驶了2.2小时.根据以上信息,就该汽车行驶的“路程”或“时间”,提出一个可以用二元一次方程组解决的问题,2、甲、乙两人同时接受一批任务,开始工作时,甲先花去2.5小时修理机器,以提高效率,在上午4小时工作结束时,甲比乙少加工了40个产品,下午工作4小时结束时,全天总计甲比乙多加工了420个产品,求这天甲和乙各做多少个产品?)
- VB利用随机函数Rnd(),随机产生3个50至100的整数,按从小到大的顺序显示.求代码代码要简单一点的,我才大一.
- 怎么用vb把一个奇数表示成两个连续自然数的和?例如9=4+599=49+50