求1-100之间能够被5 或7整除的数,同时在图片框中每行4个输出出来.并在文本框中显示这些数的和.vb编程语

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/13 03:09:45

求1-100之间能够被5 或7整除的数,同时在图片框中每行4个输出出来.并在文本框中显示这些数的和.vb编程语
求1-100之间能够被5 或7整除的数,同时在图片框中每行4个输出出来.并在文本框中显示这些数的和.vb编程语

求1-100之间能够被5 或7整除的数,同时在图片框中每行4个输出出来.并在文本框中显示这些数的和.vb编程语
const N = 100
dim i,iCount
iCount =0 '计数
dim sum : sum =0
for i=1 to N
if i mod 5 =0 or i mod 7 =0 then
iCount = iCount + 1
textBox1.Text = textBox1.Text & cstr(i)
sum = sum + i
if iCount mod 4=0 then
textBox.Text = textBox1.Text & vbcrlf
end if
end if
next
textBox.Text = cstr(sum)