在VB中10!=1*2*3··*10
1个回答
关注
![]()
展开全部
亲亲，设 $s = \frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{1/9}$，
那么
$(1 + \frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{8} + \frac{1}{9}) \times (\frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{8} + \frac{1}{9} + \frac{1}{10})$
$- (1 + \frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{8} + \frac{1}{9} + \frac{1}{10}) \times (\frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{8} + \frac{1}{9})$
$= (1 + s)(s + \frac{1}{10}) - (1 + s + \frac{1}{10})s$
$= s + s^2 + \frac{1}{10} + \frac{s}{10} - s - s^2 - \frac{s}{10}$
$= \frac{1}{10}$
咨询记录 · 回答于2024-01-10
在VB中10!=1*2*3··*10
亲亲，您可以描述的详细一些吗，可以更好的为您解答这道题
Private Function Factorial() As Long
Dim i As Integer
Dim l As Long
l = 1
For i = 1 To 10
l = l * i
Next
Factorial = l
End Function
' 方式二
Sub PrintFactorial()
Dim n As Integer
n = 1
i = 1
Do While i <= 10
n = n * i
i = i + 1
Loop
Debug.Print "10的阶乘是：" & n
End Sub
以上代码首先定义了一个名为 `Factorial` 的函数，用于计算10的阶乘。然后，定义了一个名为 `PrintFactorial` 的子程序，用于打印10的阶乘的结果。两种方式都采用了循环来计算阶乘，但第二种方式使用了 `Do While` 循环，并在循环结束后使用 `Debug.Print` 来输出结果。
扩展资料
1991年，美国微软公司推出了Visual Basic（可简称VB），目前的最新版本是VB 2010 测试版。
Visual 意即可视的、可见的，指的是开发像Windows操作系统的图形用户界面（Graphic User Interface, GUI）的方法，它不需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可。
Basic 实际上是一个短语的缩写，这个短语就是 Beginners All-Purpose Symbolic Instruction Code ，其中文意思为“初始者通用符号指令代码语言”。
Visual Basic 6 有学习版、专业版和企业版三种版本，以满足不同的开发需要。学习版适用于普通学习者及大多数使用 Visual Basic 开发一般 Windows 应用程序的人员；专业版适用于计算机专业开发人员，包括了学习版的全部内容功能以及Internet控件开发工具之类的高级特性；企业版除包含专业版全部的内容外，还有自动化构件管理器等工具，使得专业编程人员能够开发功能强大的分布式应用程序。
这VB中1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9+1/10=
亲，直接编程？
嗯
亲亲，您等一下，有点难度的
有
亲爱的用户，我们首先设 $s = \frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{9}$。
接下来，我们考虑一个数学表达式：$(1 + \frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{8} + \frac{1}{9}) \times (\frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{8} + \frac{1}{9} + \frac{1}{10})$ 减去 $(1 + \frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{8} + \frac{1}{9} + \frac{1}{10}) \times (\frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5} + \frac{1}{6} + \frac{1}{7} + \frac{1}{8} + \frac{1}{9})$。
这个表达式化简后为：$(1+s)(s+\frac{1}{10}) - (1+s+\frac{1}{10})s$，再化简，得到：$s+s^2+\frac{1}{10}+s/10-s-s^2-s/10 = \frac{1}{10}$。
dim i as integer, sum as singlefor i=1 to 10 sum=sum+1/i nextprint sumdim i as integer, sum as single,sg as integersg=1for i=1 to 10 sum=sum+1/i * sg sg=-sgnextprint sum
中VB中1-1/2+1/3-1/4+1/5-1/6+1/7-1/8+1/9-1/10=
亲，Private Sub Command1_Click() Dim i As Integer, s As Double s = 0 For i = 1 To 10 s = s + (-1) ^ (i - 1) * (1 / i) Next i Print 0; sEnd Sub
亲亲，第三题还是第4题
3
好的，亲我看一下
亲，
a: array[1..6] of real;
i, j: longint;
k: real;
begin
for i := 1 to 6 do
begin
read(a[i]);
end;
for i := 1 to 6 do
begin
for j := i + 1 to 6 do
begin
if a[i] < a[j] then
begin
k := a[i];
a[i] := a[j];
a[j] := k;
end;
end;
end;
for i := 1 to 6 do
write(a[i]:0:2, ' ');
end.
已赞过
评论
收起
你对这个回答的评价是？
