




已阅读5页,还剩3页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
题目:求1020之间所有素数的乘积并输出在窗体上答案:- Dim i As Integer Dim j As Integer Dim b As Boolean S = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then s = s * i End If b = False Next Print s-题目:求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。答案:- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j-题目: S=1+1/4+1/9+1/16+1/25+1/100答案:-Dim i As Integers = 0For i = 1 To 10 s = s + 1 / (i 2)NextPrint s-题目:求1+2+3+5+8+13+前20项的和。答案:- Dim i As Integer Dim j(1 To 20) As Integer For i = 1 To 20 If i 3 Then j(i) = i Else j(i) = j(i - 1) + j(i - 2) End If sum = sum + j(i) Next Print sum-题目:求10! 的值,并将结果输出到窗体上。答案:- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum-题目:已知sum = 1-1/3!+1/5!-1/7!+1/9!,答案:-Dim i As IntegerDim n As Integeri = 1p = 1Do While i = 9 p = p * i 阶乘 If i Mod 2 = 1 Thenn = n + 1sum = sum + (-1) (n - 1) / p End If i = i + 1LoopPrint sum-或Dim I As IntegerDim n As IntegerI = 1p = 1For I = 1 To 9p = p * IIf I Mod 2 = 1 Thenn = n + 1Sum = Sum + (-1) (n - 1) / pEnd IfNextPrint Sum-题目:求100以内偶数的和,并将结果输出在窗体上。 将结果存入变量SUM中-答案:- Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If NextPrint sum或者Dim i As IntegerFor i = 2 To 100 Step 2sum = sum + iNextPrint sum-题目: s=20+21+22+263,求s的值,并将结果存储到变量S中。-答案:-Dim i As Integeri = 20Do While i 3000 then exit for endif endifnextPrint sum-题目:求3+6+9+12+15+18+300的和,并将结果输出到窗体上。将结果存入变量 SUM中。-答案:- Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum-或者Dim i As IntegerFor i = 3 To 300 Step 3 Sum = Sum + iNextPrint Sum-题目:已知s=1+1/3!+1/5!+1/7!+1/9!,请将s结果值输出到窗体上。使用do while.loop语句完成程序 -答案:-Dim i As Integeri = 1p = 1Do While i = 9 p = p * i If i Mod 2 = 1 Thens = s + 1 / p End Ifi = i + 1Loop Print ssum=s-题目:求1-100中为5或7的倍数的和。请将结果输出到窗体上,并存入所给变量SUM中。-答案:-Dim i As Integer i = 1 Do While i = 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If i = i + 1LoopPrint Sum-题目:计算从1开始到n的自然数中偶数的平方的和。-答案:-Dim sum As IntegerDm i As Integern = Val(InputBox(n)sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next Print sum-题目:计算如下公式的值: y=11/31/51/7.1/(2m+1) 例如:若m=9,则应输出:2.133255-答案:- Dim sum As Double Dim i As Integer m = Val(InputBox(输入m) sum = 1 For i = 1 To m sum = sum + 1 / (2 * i + 1) Next Print sum-题目:计算y=1/21/41/6.1/2m 例如:若m=9,则应输出:1.41448412698413-答案:- Dim y As Double Dim i As Integer m = Val(InputBox(输入m) For i = 1 To m y = y + 1 / (2 * i) Next Print y-题目:求1到m之间的偶数之积。-答案:- Dim y As Double Dim i As Integer y = 1 For i = 1 To m If i Mod 2 = 0 Then y = y * i End If Next Print y-题目:计算n门课程的平均值,计算结果作为函数值返回。 例如,若有5门课程的成绩是:92,76,69, 58,88,则函数的值为76.6。-答案:- Dim i As Integer Dim y As Single For i = 1 To n y = y + a(i) Next fun = y / n-题目:计算y=1/2!1/4!.1/m! (m是偶数)-答案:-Dim i As Integer, j As Integer, t As Integery = 0t = 1m = Val(InputBox(m) For i = 2 To m Step 2 For j = 1 To i t = t * j Next y = y + 1 / tNextPrint y-题目:计算并输出给定整数n的所有因子之和(不包括1与自身)。规定n的值不大于1000 例如:n的值为855时,应输出704。-答案:- Dim s, i As Integer n = Val(InputBox(n) For i = 2 To n - 1 If n Mod i = 0 Then s = s + i End If Next print s-题目:求两个数m,n的最大公约数p和最小公倍数q-答案:-m = Val(InputBox(m)n = Val(InputBox(n)mn = m * nIf m n Then t = m: m = n: n = tr = m Mod nDo While r 0 m = n n = r r = m Mod n Loop Print 最大公约数 =; n Print 最小公倍数= ; mn / n-题目: y=1/5+1/6+1/7+1/8+1/9+1/10.+1/(m+5) 例如:若m=9,则应输出:1.168229-答案:- Dim y As Double Dim i As Integer m = Val(InputBox(m)For i = 0 To m y = y + 1 / (i + 5) Next Print y-题目:求一个四位数的各位数字的立方和-答案:-Dim d As Integer, k As Integer, s As Integern = Val(InputBox(n)Do While n 0 d = n Mod 10 s = s + d * d * d n = n / 10 Loop Print s-题目:判断一个整数w的各位数字平方之和能否被5整除 , 可以被5整除则返回1 , 否则返回0-答案:-Dim k As Integer, s As Integerw = Val(InputBox(w)Do While w 0 s = s + (w Mod 10) * (w Mod 10) w = w / 10LoopIf s Mod 5 = 0 Then Print 1Else Print 0End If-题目:将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞,要求每种零钞不少于1张,问有哪几种组合?将组合数存入变量OUT中。-答案:-Dim n As IntegerDim i%, j%, k%Print 5? 1? 0.5?For i = 1 To 20 For j = 1 To 100 - i k = 100 - i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k n = n + 1 End If Next j Next i out = n-题目:判断一个数是否是素数。-答案:-Dim i As Integerm = Val(InputBox(m)p = TrueFor i = 2 To Int(Sqr(m)If m Mod i = 0 Thenp = FalseMsgBox 不是素数End IfNext iIf p = True ThenMsgBox 是素数End If-题目:求200300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中-答案:-Dim i As IntegerFor i = 201 To 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + i End IfNextPrint sum-题目:求出100以内所有素数的和,并将结果输出到窗体上,并存入所给变量SUM中。-答案:-Dim i As Integer Dim j As Integer Dim k As Integer Dim b As Boolean b = False For i =2 To 100 b = False j = CInt(Sqr(i) For k = 2 To j If i Mod k = 0 Then b = True End If Next If b = False Then sum = sum + i End If Next Print sum-【程序改错】-题目:求s=2!+4!+6!+8!,阶乘的计算用Function过程fact实现-注意:不可增加或删除程序行,也不可以更改程序结构-Private Sub Form_Click()dim i as integer,s as Long*FOUND*For i = 2 To 8 s = s + fact(i) Next iPrint sEnd Sub*FOUND*Public Function fact( )dim t as Longdim i as integert = 1For i = 1 To nt = t * iNext I*FOUND*fact=iEnd Function答案: 1).For i = 2 To 8 Step 2 2). Public Function fact(ByVal n As Integer) 或 Public Function fact(n As Integer) 或 Public Function fact(n%) 或 Public Function fact(n) 或 Public Function fact(ByVal n%) 或 Public Function fact(ByVal n) 3). fact = t-题目:输出所有的三位数,它满足该数中有某两位为相同的数,且该数是一个完全平方数。求出所有这些数的和,并将结果存入变量SUM中。-答案:-dim a as integer,b as integerdim b3 as integer,b2 as integer,b1 as integerfor a=10 to 31b=a*ab3=b100b2=(b10) mod 10b1=b mod 10if b1=b2 or b1=b3 or b2=b3 then? a,bsum=sum+bend ifnext a? sum-题目:输出一个由数字组成的倒三角形,请将结果存入变量S中(要求利用msgbox函数)显示结果,使用for.next语句完成程序)-答案:-Dim tmp As StringDim i As Integer, j As Integertmp = For i = 10 To 1 Step -1For j = 0 To i - 1 tmp = tmp & CStr(j)Nexttmp = tmp & vbCrLfNextMsgBox tmps = tmp-题目:计算从1开始到n的自然数中偶数的平方的和。-答案:- Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next fun = sum-题目:求某个数的平方根。算法思想:对于一个问题的求解x,可由给定的一个初值x0,根据某一迭代公式得到一个新的值x1,这个新值x1比初值x0更接近要求的值x;再以新值作为初值,即:x1x0,重新按原来的方法求x1,重复这一过程,直到|x1-x0| 0.00001 Fsqrt = x1-题目:将一个十进制整数m转换成 r(216)进制字符串。方法:将m不断除 r 取余数,直到商为零,以反序得到结果。下面写出一转换函数,参数idec为十进制数,ibase为要转换成数的基(如二进制的基是2,八进制的基是8等),函数输出结果是字符串?-答案:- Dim strDecR$, iDecR% strDecR = Do While idec 0 iDecR = idec Mod ibase If iDecR = 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & strDecR End If idec = idec ibase Loop TrDec = strDecR-题目:对字符串进行加密处理。 加密过程:将每个字母C加一序数K5,即 c=chr(Asc(c)-5),这时 ZU, zu,YT当加序数后的
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年全球认证合作框架协议示例
- 2025年二手房购买策划补充协议标准范本
- 2025年促进企业间合作投资协议
- 2025年水稻种子购销协议范本
- 2025年四人共同入股合作协议书
- 2025年室内设计与房产公司合作框架协议
- 2025年资产重组与转让协议
- 税务管理中的隐形风险
- 企业法律权益保护的背景意义及必要性
- 教育产业化与产业教育化的双向推进
- 2025年北京海淀初三二模语文试题及答案
- 2025年四川甘孜州能源发展集团有限公司招聘笔试参考题库附带答案详解
- 2024北京海淀区四年级(下)期末数学试题及答案
- 化工设计知到智慧树章节测试课后答案2024年秋浙江大学
- 2025年江苏盐城市燕舞集团有限公司招聘笔试参考题库含答案解析
- 2025年中原农业保险股份有限公司招聘笔试参考题库含答案解析
- 新版部编版五年级语文下册全册看拼音写词语附答案
- DC-DC变换器电力电子课程设计报告
- 年产3000吨鸡肉火腿肠的车间设计
- 银发【2007】246号
- (完整word版)后进生转化档案
评论
0/150
提交评论