百科知识

电脑/网络

用VB编的窗体上有一个命令按钮和一个文本框，单击按钮时，即可计算

2011-12-06 17:47:352***
窗体上有一个命令按钮和一个文本框，单击按钮时，即可计算1~1000内所有偶数的平方和，并在文本框中显示出来。要求：计算1~1000内所有偶数的平方和在Function过程中实现用VB编的窗体上有一个命令按钮和一个文本框，单击按钮时，即可计算1~1000内所有偶数的平方和，并在文本框中显示出来。要求：计算1~1000内所有偶数的平方和在?

最佳回答

  • 可以给你算法，首先用一个for循环，判断1~1000之间的偶数，然后用sum+=n*n（n为偶数）这条语句，就可以实现了
    2011-12-06 17:54:58
  • Option Explicit Dim n As Long Dim sum As Long Private Sub Command1_Click() n = InputBox("输入N=", n) sum = 0 Call jsH(n) Text1 = sum End Sub Public Function jsH(n As Long) As Long Dim i As Long For i = 1 To n sum = sum + i ^ 2 Next End Function
    2011-12-07 11:18:08
    • 很赞哦！ (31)

    相关文章