开发工具:
文件大小: 322kb
下载次数: 0
上传时间: 2011-12-27
详细说明： 有利于刚学习vb的新手来看看 Private Sub Command1_Click（） Dim n%， i%， s& n = Val（InputBox（"输入n"）） s = 1 For i = 1 To n s = s * i Next i Print s End Sub 错误的写法： Private Sub Command1_Click（） Dim n%， i%， s& n = Val（InputBox（"输入n"）） For i = 1 To n s = 1 ‘赋初值语句位置不对！ s = s * i Next i Print s ‘输出s的值为n，而不是n！ End Sub 应用举例 根据下列公式，求自然对数e的的近似值。 要求：误差小于0 .00001 Private Sub Command1_Click（） Dim i%， n&， t！， e！ e = 2 i = 1 t = 1 Do While t > 0.00001 i = i + 1 t = t / i e = e + t Loop Print "计算了"； i； "项目和是："； e Print Exp（1） ‘与上句输出值进行对比以证明算法的正确性 End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
