vb阶乘求和？

一、vb阶乘求和？

Private Sub Command1_Click()

n = InputBox("输入自然数", "输入")

JieCheng n

If n > 1 Then

For j = n To 2 Step -1

Print j & "*";

Next j

End If

Print "1=";

Print JieCheng(n)

End Sub

Private Function JieCheng(ByVal i&) As Long

If i > 1 Then

JieCheng = i * JieCheng(i - 1)

Else

JieCheng = 1

End If

End Function

二、vb数列求和公式？

就是x=x*10+a

s=s+x这两句代码重复执行N次 看你文本框具体输入多少 算10次公式结果就是了 累加

三、vb数列求和方法？

要想对vb数列求和，其实就是x=x*10+a

s=s+x这两句代码重复执行N次 看你文本框具体输入多少 算10次公式结果就是了 累加

四、VB编程实现，加数，求和？

Public Function f(ByVal n As Integer) As Integer

Dim i As Integer

Dim sum As Integer

sum = 0

For i = 1 To n

sum = sum + i

Next i

f = sum

End Function

Private Sub Command1_Click()

Dim n As Integer, i As Integer

Dim sum As Double

sum = 0

n = InputBox("请输入一个数字N")

For i = 1 To n

sum = sum + f(i)

Next i

Print sum

End Sub

五、vb字符串加法的运算？

　　比如：Text3.Text = Text1.Text + Text2.Text 是字符串相加，结果就是把两个字符串连起来，正确应该是Text3.Text = val(Text1.Text) +val(Text2.Text)注意：+运算在VB中有两种定义，一个是正常的加法，一个是字符串相连。VB会自动根据情况选择，Text3.Text 是字符串，因此VB自动选择第二种定义来算。　　但-和*运算只有一种定义，那就是数字相差和相乘，因此VB会自动把Text3.Text 转换成数字运行运算。

六、vb截取字符串函数？

VB 从右边截取字符串可以使用Right函数：

Private Sub Command1_Click()

s = "1234567890"

s1 = Right(s, 4)

Print s; "的右边4个字符是"; s1

End Sub

七、vb中的查询字符串？

查找字符串的函数是 instr，替换字符串的函数是replace，用法：instr(n , S1 , S2) 在字符串S1中，从左边第n个字符向后搜索S2第一次出现的位置，例如i = instr ( 3, "abcbcbc", "b" )，此时 i = 4replace（s,s1,s2) 在字符串s中搜索s1，如果搜索到就将s1替换成s2，例如replace("asdfasdfasfas","asd","m") 结果是 mfmfasfas希望对你有用

八、vb数列求和怎么做？

就是x=x*10+a

s=s+x这两句代码重复执行N次 看你文本框具体输入多少 算10次公式结果就是了 累加

九、vb字符串函数怎么看？

VB.Net 提供了格式化方法 如果数据类型是 a.ToString("D5") 如果数据类型是 integer, decimal, single, double： a.ToString("00000") 如果数据类型是string iif(len(a)< 5, "00000".Substring(0,5 - len(a)) + a, a)

十、vb编程怎么截取字符串？

VB6里

right的函数是取一段字符串的右边几个字符

比如

dim a as string

dim b as string

a="12345678"

b=right(a,4)

那么b的值是5678