VB 整除的问题

来源：百度知道 编辑：UC知道 时间：2024/04/28 07:10:41
在文本框中输入1-1000中任意整数值N,单击“求和”按钮,在标签中计算出1到N中所有能被“3”整除的整数之和，输入1-1000以外的数标签栏中输出“输入数值超范围”

Private Sub Command1_Click()
Dim n As Integer, sum As Long
n = CInt(Text1.Text)
If n > 1000 Or n < 1 Then
MsgBox "输入数值超范围"
Exit Sub
End If
For i = 0 To n Step 3
sum = sum + i
Next
Label1.Caption = CStr(sum)
End Sub

在你的控件的单击事件里写以下代码：

dim n
dim sum

if trim(text1.text)>1000 or trim(text1.text)<1 then
msgbox "输入数值超范围"
exit sub
end if
sum=0
for n=1 to val(text1.text)
if n mod 3 =0 then
sum=sum+n
end if

next n

label1.caption=sum

Private Sub Command1_Click()
Dim tem As Integer
Dim num As Integer
Dim i As Integer
tem = Val(Text1.Text)
If tem < 1 Or tem > 1000 Then
Label1.Caption = "数值超出范围！"
Else
For i = 1 To tem
If i Mod 3 = 0 Then
num = num + i
End If
Next i
Label1.Caption