问题：请在名为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
如果你对请在名为Form1的窗体上绘制一个组合框，名为Com1，并输入3个列表项：“5”、“9”、“13”(列表项的顺序不限，但必须是这3个数字)；绘制一个名为Text1的文本框；再绘制一个标题为“计算”、名称为Cmd1的命令按钮。如下图所示。请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Text1中。其中，求和部分用函数或子过程实现。(提示：由于计算结果较大，应使用长整型变量)这个问题有好的意见或
建议，请留言
|
您当前的位置：
百科371 → 电脑/网络 → VB → 电脑/网络内容
退出登录 
减小字体
增大字体