| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 353 人关注过本帖
标题:求助,怎么写代码
只看楼主 加入收藏
shfcq
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2020-6-17
结帖率:0
收藏
已结贴  问题点数:20 回复次数:5 
求助,怎么写代码
附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 代码 
2020-06-17 11:34
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:6
帖 子:49
专家分:153
注 册:2006-6-25
收藏
得分:7 
别,一个一个来,一下只这么多,会吓到的。
作业要先自己写,有问题再来提问。

[此贴子已经被作者于2020-6-17 12:57编辑过]

2020-06-17 12:29
shfcq
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2020-6-17
收藏
得分:0 
不会啊,求大神指教
2020-06-17 14:11
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:6
帖 子:49
专家分:153
注 册:2006-6-25
收藏
得分:0 
怎么编程,题目都已经说明的很清楚了,你只要对照填写代码就可以了。
我给你做个第一题:
在窗体上放置一个命令按钮,两个文本框,拷贝下面代码,就可以运行了。打印代码只是为了看看f(n)的值。
Private Sub Command1_Click()
    Dim f(30) As Long
    Dim Max As Long, Sum As Long, n As Integer

    f(0) = 1: f(1) = 2: f(2) = 3
    Sum = f(0) + f(1) + f(2)
    Max = f(2)
   
    For n = 3 To 30
        f(n) = f(n - 1) + 2 * f(n - 2) - 5 * f(n - 3)
        Sum = Sum + f(n)
        If f(n) > Max Then Max = f(n)
        Print "f("; n; ")="; f(n)   '这里只是看看f(n)的值
    Next
    Text1.Text = Sum   '总和
    Text2.Text = Max   '最大值
End Sub
2020-06-17 16:09
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:276
专家分:114
注 册:2010-2-17
收藏
得分:7 
我来做个第二题:
    一个命令按钮,一个文本框,拷贝下面的代码,运行后,文本框填入数字,点击命令按钮就可以得到该数值的平方根:
Private Sub Command1_Click()
     Dim a As Double, Xn As Double, X As Double
     a = Val(Text1.Text)
     Xn = a / 2
     X = (Xn + a / Xn) / 2
     Do While Abs(X - Xn) > 0.0001
        Xn = X
        X = (Xn + a / Xn) / 2
     Loop
     Print X
End Sub

Private Sub Form_Load()
Text1.Text = ""
End Sub
2020-06-22 16:08
xxwyyf007
Rank: 1
等 级:新手上路
帖 子:12
专家分:7
注 册:2016-4-26
收藏
得分:7 
那我试着做第三题吧

附件: 游客没有浏览附件的权限,请 登录注册
2020-06-22 21:37
快速回复:求助,怎么写代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.052450 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved