;
文章:新闻EDA技术电源技术无线通信测量仪表嵌入式类电子技术制造技术半导体网络协议展会实验家电维修 3G  
  下载:EDA教程电源技术电子书籍电子元件无线通信通信网络电路图纸嵌入式类单片机传感/控制电子教材模拟数字
.... 音视频类
消费电子机械电子行业软件C/C++FPGA/ASIC规则标准家电维修DSPIC资料ARM软件电路图电子技术论坛
 
您当前的位置:电子发烧友-> 源码下载 -> Linux/uClinux/Unix编程 -> 问题源代码及答案下载 退出登录 用户管理
栏目导航
uCOS编程 C/C++语言编程
Symbian编程 Linux/uClinux/Unix编程
VHDL/Verilog/EDA源码 VxWorks/Nucleus/eCos/PalmOS
Windows编程 DSP编程
Labview源程序 matlab源程序
asp源码下载 php源码下载
jsp源码下载 asp.net源码下载
java源码下载 汇编编程
编译器/仿真器 驱动程序
集成开发环境源码 单片机编程
加密解密 数值算法/人工智能
其它程序 通讯/手机编程
热门下载
· 《Powerbuilder 9.0实用教...
· 4星级酒店管理系统
· 试题库管理系统
· 人事档案管理系统
· PowerBuilder 8.0基础篇源...
· 联机坦克游戏
· HTML Encryptv2.04
· HomePlus 主页特效专家
· 拼图游戏(java)
· 信用卡管理系统
专题相关
软件名称 问题源代码及答案
运行环境 Win9X/Win2000/WinXP/Win2003/
整理时间 2010-2-10 13:59:23
新频道星级
新频道大小 530 KB csb23@126.com
下载统计
相关连接 官方主页  [点击收藏]
 技术资料介绍

    问题源代码及答案

    程序功能:求s=1+3+5+7+...直到s>2000为止。程序中有两行有错误。改正错误,使它能输出正确的结果。
    Private Sub Command1_Click()
    Dim i As Integer, s As Long
    s = 0
    i = 1
    Do Until s < 2000       ‘s>2000
       s = s + i
       i = i + 1            ‘I=I+2
    Loop
    Print  s
    End Sub
     
    答案:2025
    程序功能:根据整型参数m的值,计算公式t=1-1/(2*2)-1/(3*3)-…-1/(m*m)的值(m=100)。程序的函数fun()中有一行有错误。改正错误,使它能输出正确的结果。
     
    Private Sub Command1_Click()
      Print Format(fun(100), "0.######")
    End Sub
     
    Private Function fun(n As Integer) As Integer  ‘ Single
      Dim t As Single
      Dim i As Integer
      i = 2: t = 1
      Do While i < =n
         t = t - 1 / (i * i)
         i = i + 1
      Loop
      fun = t
    End Function
     
     
     
    答案:0.365016
    程序功能:已知24有8个正整数因子(即:1,2,3,4,6,8,12,24),而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误,使它能输出正确的结果。
    Private Sub Command1_Click()
    Dim N As Integer
    Dim s As Integer
    Dim i As Integer
    For N = 300 To 100   ‘step -1
    s = 0
    For i = 1 To N
    If N Mod i = 0 Then
    s = s + 1
    End If
    Next i
    If s Mod N = 0 Then    ‘N Mod s=0
    Print N
    Exit For
    End If
    Next N
    End Sub
    答案:296

  点击进入问题源代码及答案下载页面
点击此处立即下载 - 问题源代码及答案
  相关技术资料下载   相关技术应用阅读
技术资料评论  (评论内容只代表网友观点,与本站立场无关!) 更多评论......
∷下载说明∷
为了达到最快的下载速度,推荐使用[网际快车]下载本站软件。
请一定升级到最新版[WinRAR3.5 ]才能正常解压本站提供的软件!
如果您发现该软件不能下载,请点击报告错误谢谢!
站内提供的所有软件包含破解及注册码均是由网上搜集,若侵犯了你的版权利益,敬请来信通知我们!

 
关于本站- 意见反馈 - 网站导航 - 帮助 - 隐私政策 - 联系我们 - 使用条款 - 安全承诺 - 友情连接 - 欢迎投稿
站长QQ:39550527 Powered by: 飓风网络(电路图
Copyright 2006-2008 Elecfans.Com.电子发烧友: 粤ICP备07065979号All Rights Reserved