作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/29 10:32:32
求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)
再问: 我试试看先啊
再答: if iCount mod 4=0 then textBox.Text = textBox1.Text & vbcrlf 这里的第二行应为 textBox1.Text = textBox1.Text & vbcrlf
再问: textBox1.Text = textBox1.Text & cstr(i) 系统提示第一句出错无法运行
再答: 把 const N = 100 改为 dim N N =100
再问: 追问textBox1.Text = textBox1.Text & cstr(i) 系统提示第一句出错无法运行
再答: 首先你要清楚,你的界面设计里对应的文本框的名字是不是textBox1和textBox2,不是的话,将代码里相应的地方修改成你界面控件的名字就行了