Dim a() As Single, s As Single
Dim n%
n = InputBox("输入个数")
ReDim a(n)
For i = 1 To n
a(i) = InputBox("输入数值")
Next i
For i = 1 To n
s = s + a(i)
Next i
Print "和="; s
Print "平均值="; s / n
s = 0
For i = 1 To n
s = s + a(i) ^ 2
Next i
Print "平方和="; s
Print "平方和的平方根="; Sqr(s)
End Sub
怎么用VB求N个数的和,平方和,平均值和平方和的平方根?代码是什么?求高 ...
a(i) = InputBox("输入数值")Next i For i = 1 To n s = s + a(i)Next i Print "和="; s Print "平均值="; s \/ n s = 0 For i = 1 To n s = s + a(i) ^ 2 Next i Print "平方和="; s Print "平方和的平方根="; Sqr(s)End Sub ...
vb中 怎么输入 在列表框内 1到50的平方 平方根 自然对数 和 e的指数...
List1.AddItem i ^ 2 '平方 List1.AddItem Sqr(i) '平方根 List1.AddItem Log(i) '自然对数 List1.AddItem Exp(i) '返回 e（自然对数的底）的幂次方 Next End Sub
怎样用EXCEL 中的VB求 平方根
cells（1,3）=SQR(cells（1,2））
vb用列表框输出1-50之间的平方、平方根、自然对数和e指数数学用表,要完...
Dim i As Integer For i = 1 To 50 List1.AddItem i & vbTab & i * i & vbTab & Sqr(i) & vbTab & Log(i) & vbTab & Exp(i)Next End Sub
求n个数的平方和的代码
以下是求 n 个数的平方和的 Python 代码：pythonCopy coden = int(input("请输入数的个数："))sum = 0for i in range(n):num = int(input("请输入第" + str(i+1) + "个数：")) sum += num ** 2print("平方和为：", sum)首先，用户需要输入数的个数 n。然后，使用 for ...
这公式在vb中怎么编写?
在VB中编写计算公式时，首先确保需要计算的数据已存储在x()数组中。以下步骤详细解释了如何实现这一过程：定义两个变量：平均值aveX和总和sum。计算总和sum，方法是通过循环从数组x()中的第一个元素遍历到第n个元素，将每个元素值累加到sum中。接着，计算平均值aveX，通过将总和sum除以数组元素的数量n...
编写VB程序,打印1到100所有数的平方,平方根,自然对数,e指数的数用表
Private Sub Command1_Click()Dim p As Long, g As Single, l As Single, e As Double Print "数值", "平方 ", "平方根 ", "自然对数 ", " e指数"For i = 1 To 100 p = i ^ 2 g = Sqr(i)l = Log(i)e = Exp(i)Print i, p, g, l, e Next End Sub ...
VB程序 求1到100之间的自然数的平方和
n = UBound(a)For i = 0 To n For j = i To n If a(i) > a(j) Then s = a(i)a(i) = a(j)a(j) = s End If Next Next End Sub '检查是否素数 Private Function check(i As Integer) As Boolean For j = 2 To CInt(Sqr(i)) + 1 '从2循环到i的平方根 If i ...
怎么用VBA算算术平方根
1、双击桌面上的Microsoft PowerPoint图标以打开该软件。2、在PPT窗口中,选择开发工具选项。3、在“开发工具”选项卡上,选择“Visual Basic”选项并编辑VB代码。4、选择文本框控件并在PPT页面上插入两个输入文本框以输入两个计算出的数字。PPT是由微软公司推出的一款图形演示文稿软件，全称为“PowerPoint”...
用VB编一个程序计算两个数的平方根?
If CLng(Text1) < 0 Then MsgBox "text1 内为负数,不能开方"Else MsgBox "text1 开方结果:" & Sqr(CDbl(Text1))End If Else MsgBox "text1 内不是数字"End If '计算text2 If IsNumeric(Text2) Then If CLng(Text1) < 0 Then MsgBox "text2 内为负数,不能开方"Else MsgBox "text2...
