




已阅读5页,还剩8页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
以下程序段用于输出杨辉三角:结果样式如图1Private Sub Form_Click()Const n = 10Dim arr(n, n) As IntegerFor I = 1 To n arr(I, I) = 1 *SPACE* 【arr(I, 1) = 1】Next IFor I = 3 To n For j = 2 To I - 1*SPACE* arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next jNext IFor I = 1 To n For j = 1 To I*SPACE* 【print arr(I,j)】 Next j PrintNext IEnd SubOption Explicit-【程序改错】-题目:用自定义函数的方法求sum(x),求当-1x1时, sum(x)=x/2!+x2/3!+x3/4!+xn/(n+1)!, 当x1或x-1时,函数值为0。当n=0时,输入数 据错误。X、N都是由用户输入。-注意:不可增加或删除程序行,也不可以更改程序结构-Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox(Please input a integer value:) x = Val(InputBox(Please input a single value:) If n 1 Or x max Then 【?】 If b min Then min = b *SPACE* If 【?】 Then max = c If c min Then min = c Print 最大数为:; max Print 最小数为:; min End Sub下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。Private Sub Form_Click()Print 5个数34、124、68、73、352的最大值是:max1 = max(34, 124, 68)*SPACE*max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Then m = aElse m = bEnd If*SPACE*If 【?】 Then max = mElse max = cEnd IfEnd Function-【程序填空】-题目:本程序执行功能为,输入系列字符串,按递减次序排列。(1)在文本框输入字符串,按回车键后存放到数组a()中;(2)单击排序按钮(Command1)时,进行递减次序排列,并在图形框控件显示。请在【】处填入正确的内容-Dim a() As String, n As IntegerPrivate Sub Command1_Click() n = n - 1 For i = 0 To n - 1 imin = i *SPACE* For j = 【?】 To n *SPACE* If a(imin) 【?】 Then imin = j Next j t = a(i) *SPACE* 【?】 a(imin) = t Next i For i = 0 To n Me.Picture1.Print a(i) Next iEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then *SPACE* ReDim 【?】 *SPACE* a(n) = 【?】 Text1.Text = n = n + 1 End IfEnd SubOption Explicit-【程序改错】-题目:下列程序进行-n阶乘运算,当阶乘的值超过-21147483648 溢出报错,并将结果输出为-1。-注意:不可增加或删除程序行,也不可以更改程序结-【程序改错】-题目:下列程序进行-n阶乘运算,当阶乘的值超过-21147483648 溢出报错,并将结果输出为-1。构-*FOUND*Private Function jc(ByVal n As Integer) As Integer Dim I As Integer Dim result As Long result = 1 I = 1 Do While I = n If result 2114748348 / I Then *FOUND* result = result I = I + 1 Else lblerr.Caption = 溢出 *FOUND* jc = -I Exit Function End If Loop jc = resultEnd FunctionPrivate Sub Form_Click() MsgBox jc(3)End SubOption Explicit-【程序改错】-题目:给定三角形的三条边,计算三角形的面积。要求 程序首先判断给定的三条边能否构成三角形。-注意:不可增加或删除程序行,也不可以更改程序结构-Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim s As Single, t As Single start: a = InputBox(输入1边长:) b = InputBox(输入2边长:) c = InputBox(输入3边长:) *FOUND* If a + b c Or b + c i Then i = max End If sum = i Next i Print sum * End * Call cs(sum)End SubPrivate S
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 广东省佛山市南海区狮山石门高级中学2025届物理高二下期末质量检测模拟试题含解析
- 云南省昆明市海口中学2025年物理高二第二学期期末教学质量检测试题含解析
- 2025年宁夏银川市金凤区六盘山高中高二物理第二学期期末学业水平测试试题含解析
- 2025届浙江省环大罗山联盟高一物理第二学期期末学业水平测试试题含解析
- 2025届河北省郑口中学高一物理第二学期期末学业质量监测模拟试题含解析
- 辽宁省葫芦岛市实验中学东戴河分校2025届物理高一下期末联考试题含解析
- 全国大学生职业规划大赛《农业资源与环境》专业生涯发展展示
- 公司人力资源部培训心得体会
- 做最好的护士心得体会
- 云南省新平县三中2025届物理高二第二学期期末统考试题含解析
- 铁矿尾矿清运方案(3篇)
- 国开机考答案 管理学基础2025-06-27
- 国家开放大学《思想道德与法治》社会实践报告范文一
- 【9语安徽中考卷】2025年安徽省中考招生考试真题语文试卷(真题+答案)
- 2025年空气过滤器行业分析报告
- 同等学力人员申请硕士学位电子科学与技术学科综合水平全国统一考试大纲(第二版)
- (高清版)DG∕TJ 08-507-2018 高强混凝土抗压强度无损检测技术标准
- 2024年铁岭市三支一扶考试真题
- 2024版机电工程施工质量标准化数字模型图集
- 电力行业安全隐患案例警示教育心得体会
- 广东省2025年中考英语模拟试卷试题及答案详解
评论
0/150
提交评论