




已阅读5页,还剩2页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、两个时间函数now()、today()、timeofday()2、级数求和编写程序,计算并输出下列数列前35项的和。 (1-2-3),(4-5-6),(7-8-9), ,(3n+1)-(3n+2)-(3n+3), (注意,n=0,1,2,3)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, s As Integer s = 0 For i = 0 To 34 s += (3 * i + 1) - (3 * i + 2) - (3 * i + 3) Next MsgBox(s) End Sub 编写程序计算并输出下面数列前n项的和,当第一次出现和数的绝对值大于5000时求和终止。 1*2*3,-2*3*4,3*4*5,-4*5*6,(-1)(n-1)*n*(n+1)*(n+2),(其中, 表示幂运算) Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim i, t, s As Integer i = 1 Do t = (-1) (i - 1) * i * (i + 1) * (i + 2) s += t i += 1 Loop Until Math.Abs(s) 5000 MsgBox(s) End Sub图形题1、用循环编写程序,单击“生成图形”按钮,在多行文本框中输出如图所示的三角形,界面如下:设计如图所示的生成数组界面,点击“生成数组”按钮,完成如下功能:由程序随机产生一个66的二维数组,显示在textbox1文本框中,并在textbox2文本框中输出数组中的最大元素。有一个数列,前三项都是1,从第四项开始,每一项都是其相邻前三项之和的1/2。试编写函数过程,求数列第n项的值。要求调用该过程,计算并输出n=30时前n项的和。(保留3位小数)Function f(ByVal n As Integer) As Double Dim f1, f2, f3, fn As Double f1 = 1 f2 = 1 f3 = 1 For n = 4 To n fn = (f1 + f2 + f3) / 2 f1 = f2 f2 = f3 f3 = fn Next f = fnEnd Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer Dim s As Double For n = 1 To 30 s = s + f(n) Next MsgBox(Format(s, 0.000) End Sub编写判断一个正整数是否为“完数”的函数过程。在事件过程中调用该过程,计算区间200,500上“完数”的个数。完数的含义是:该数的所有因子之和等于该数。例6=1+2+3。结果: 1Function ws(ByVal n As Integer) As Boolean Dim i, s As Integer s = 0 For i = 1 To n - 1 If n Mod i = 0 Then s = s + i End If Next If s = n Then ws = True Else ws = False End If End FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, i As Integer For i = 200 To 500 If ws(i) Then n = n + 1 End If Next MsgBox(Str(n)End Sub已知数据文件dat5.dat中已存储有20个学生一门课程的成绩(整型),编程将该文件中20个学生的成绩赋给整型数组score,然后按照从高分到低分对成绩排序,并按一行五个输出显示。Dim score(19), i, j, t As Integer FileOpen(1, d:10文件da5.dat, OpenMode.Input) For i = 0 To 19 Input(1, score(i) Next For i = 0 To 18 For j = i + 1 To 19 If score(i) score(j) Then t = score(i) score(i) = score(j) score(j) = t End If Next Next Dim str1 A
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 【正版授权】 IEC 60270:2025 EN-FR High-voltage test techniques – Charge-based measurement of partial discharges
- 2025至2030中国电子废物回收和再利用服务行业产业运行态势及投资规划深度研究报告
- 2025至2030中国环氧大豆油丙烯酸酯低聚物行业产业运行态势及投资规划深度研究报告
- 2025至2030中国猪肉行业市场占有率及投资前景评估规划报告
- 2025至2030中国特性水泥行业发展分析及前景趋势与投资报告
- 智慧城市服务体系下市民满意度提升策略研究
- 在线学习环境下的学生心理支持策略研究
- 企业培训中的智慧学习空间设计与体验优化
- 教育政策与教师权益保障
- 2025年中国乙炔碳黑数据监测研究报告
- 高空作业安全操作规程
- 车辆挂名使用权转让与免责保障协议
- 湖北省八校联考2024-2025学年高一下学期6月期末生物试卷(含答案)
- 2025至2030中国碳纳米管行业市场发展分析及风险与对策报告
- 艾滋病患者的心理与护理
- 2025年中国花生粕市场调查研究报告
- 2025至2030中国密织防水透气纺织品行业发展趋势分析与未来投资战略咨询研究报告
- 2025-2030年中国锅炉水处理化学品行业市场现状供需分析及投资评估规划分析研究报告
- 高中体育专项化教学对学生身心发展的促进作用研究论文
- TD/T 1044-2014生产项目土地复垦验收规程
- 2024北京重点校高一(下)期末数学汇编:三角函数章节综合(填空题)
评论
0/150
提交评论