vb算法~~求助

来源：百度知道 编辑：UC知道 时间：2024/05/22 16:12:12
在窗体上画一个名称为Picture1的图片框，然后画一个名称为Text1的文本框以及一个命令按钮。（如图所示）。程序运行后，如果单击“计算并输出”按钮，则在Picture1中以每行5个的格式输出10个元素的值；把数组中大于等于50的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来。

各个控件就用它们默认的名称，大小、位置和某些属性如字体大小等预先调整好，程序不再对它们进行调整。代码如下：

Private Sub Command1_Click()
Picture1.Cls
Text1.Text = ""
Form1.Cls
Dim A(10) As Integer, I As Integer, J As Integer
Randomize
J = 1
For I = 1 To 10
A(I) = Int(Rnd * 90 + 10)
Picture1.Print A(I);
If J = 5 Then Picture1.Print
J = J + 1
Next
J = 0
For I = 1 To 10
If A(I) > 50 Then
J = J + A(I)
Text1.Text = Text1 + Str(A(I))
End If
Next
Form1.Print J
End Sub
已经运行过