求助，怎么写代码 - 编程论坛

#2

cwa99582020-06-17 12:29

别，一个一个来，一下只这么多，会吓到的。
作业要先自己写，有问题再来提问。

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

#3

shfcq2020-06-17 14:11

不会啊，求大神指教

#4

cwa99582020-06-17 16:09

怎么编程，题目都已经说明的很清楚了，你只要对照填写代码就可以了。
我给你做个第一题：
在窗体上放置一个命令按钮，两个文本框，拷贝下面代码，就可以运行了。打印代码只是为了看看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

#5

ictest2020-06-22 16:08

我来做个第二题：
    一个命令按钮，一个文本框，拷贝下面的代码，运行后，文本框填入数字，点击命令按钮就可以得到该数值的平方根：
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

#6

xxwyyf0072020-06-22 21:37

那我试着做第三题吧

只有本站会员才能查看附件，请登录