产生20个200到300之间的随机整数,在标签lable1中输出其中能被5整除的数,并在text1中输出它们的和。

来源:百度知道 编辑:UC知道 时间:2024/06/04 08:33:38
编写程序实现如下功能:在窗体上创建一个文本框text1、一个标签控件lable1,一个命令按钮command1程序的功能是:点击命令按钮,产生20个200到300之间的随机整数,在标签lable1中输出其中能被5整除的数,并在text1中输出它们的和。

我用VB语法写的。。
下面这些都是command1的点击事件中应该写的代码
randomize
for i = 1 to 20
ary(i) = ((rnd()*1000) mod 200) + 101
next

for i = 1 to 20
if ary(i) mod 5 = 0 then
label1.caption = label1.caption & "," & ary(i)
r = r + ary(i)
end if
next

text1.text = r