VB问题，急急急！

来源：百度知道 编辑：UC知道 时间：2024/06/08 21:14:46
请在名为Form1的窗体上绘制一个组合框，名为Com1，并输入3个列表项：“5”、“9”、“13”(列表项的顺序不限，但必须是这3个数字)；绘制一个名为Text1的文本框；再绘制一个标题为“计算”、名称为Cmd1的命令按钮。如下图所示。请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Text1中。其中，求和部分用函数或子过程实现。(提示：由于计算结果较大，应使用长整型变量)

Private Sub Cmd1_Click()
Call SumN(Val(Com1.Text))
End Sub

Sub SumN(K As Integer)
Dim i As Integer, s As Long
For i = 1 To 5000
If i Mod K = 0 Then
s = s + i
End If
Next i
Text1.Text = s
End Sub

Private Sub Form_Load()
Com1.AddItem "3"
Com1.AddItem "9"
Com1.AddItem "13"
Com1.ListIndex = 0
End Sub

我太久不编程了，具体语法我就不胡说了，告诉你思路吧。
定义一样需要参数I的FUNCTION。函数过称中需要的参数I既是5、9、13其一。函数过程中定义两个个INT变量。做一个5000次的循环语句。让一个变量计数(Y)，I不断与这个计数的变量Y做求模运算，关键词是MOD。如果（IF）经过求模运算后得出余数为0的结果既是可以正除，那么把这次运算的中的Y赋值给另一个变量X。在下次循环过程中如果再次出现可以整除Y，Y在赋值给X过程中是递增（+）。最终5000次的过程结束后，函数返回变量X。