VB编程题：完成fun(a,b)函数，要求实现a到b的累加,

Function c(a, b As Integer) As Integer

Dim i, j As Integer

j = 0

For i = a To b

j = j + i

Next i

c = j

End Function

Private Sub Form_Load()

Caption = c(1, 100)

End Sub

在窗体上放一个Command1命令按钮，点击命令按钮开始输入数字，代码如下：

Private Sub Command1_Click()

Dim a As Single, sum As Single

Do

a = InputBox("请输入一个数字", "输入")

If a = 0 Then

MsgBox "你刚才输入的所有数字的和为 =" & sum

Else

sum = sum + a

End If

Loop Until a = 0

End Sub

若按钮为Command1,数值加1的文本框为Text1。

在Command1_Click中输入：

Text1Text = Val(Text1Text) + 1

即可。

直接将下面代码复制到窗体中测试即可Private Sub Form_Load()

Dim n As Integer

Dim a() As Single

Dim i As Integer

Dim sum As Single

Dim even As Single

n = CInt(Val(InputBox("请输入数组的存储的数的个数:")))

ReDim a(n) As Single

sum = 0

For i = 1 To n

a(i) = Val(InputBox("请输入第" & i & "个数(共" & n & "个)"))

sum = sum + a(i)

Next

even = sum / n

MsgBox "数组中数的和为" & sum & ",平均数为" & even

End Sub

你的程序在窗体调入事件时代码已经执行完毕，以后文本框中的内容有改变，最终值也不会改变。

你可以在窗体调入事件中创建10 个文本框。

再在文本框的 Change 事件中对10个文本框的值完成动态相加。

具体创建的东西我就不说了，太多了。我截图了，你看着创建吧。

具体代码：

Dim arr As Long, sum As Long, a As Integer

Private Sub cmd1_Click()

a = h1Value

t1Text = plus(a)

Call isprime(a)

End Sub

Private Sub cmd2_Click()

End

End Sub

Private Sub h1_Change()

l2Caption = h1Value

End Sub

Sub isprime(max As Integer)

Dim x As Integer, i As Integer, j As Integer

For i = 2 To max

x = 0

For j = 2 To i - 1

If i Mod j = 0 Then x = 1

Next j

If x = 0 Then T2Text = T2Text & i & " "

Next i

End Sub

Function plus(a As Integer) As Long

For i = 1 To a

sum = sum + i

Next i

plus = sum

End Function

具体思路是分别创建一个函数子模块求和，在创建一个子模块找素数。最后把找到的素数显示在文本框内。

（建议：我说，你想干嘛？找素数可是很耗费CPU的，我的9550 X4找了个从1-10000间的素数都花了很长时间我还以为死机了。CPU不好的话还是不要找太大的素数啊。）

Private Sub Form_Click()

Dim i, j, k

i = InputBox("输入要累加的最大数字")

For j = 1 To Val(i)'使i数字化

k = k + j'累加

Next

Print k

End Sub

dim i as long,  k as long

dim m as long, n as long

m = val(Txt1)

n = val(Txt2)

if m>n then

 k = m

 m = n

 n = k

end if

k = 0

for i=m to n

 k = k + i

next

Txt3text = cstr(k)

以上就是关于VB编程题：完成fun(a,b)函数，要求实现a到b的累加,全部的内容，包括:VB编程题：完成fun(a,b)函数，要求实现a到b的累加,、vb语言：输入一批数,以输入0结束。求这些数的累加和。、怎样用VB按钮实现累加，按一下加1的效果，谢谢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！