vb题目，高手们来帮帮忙啊

来源：百度知道 编辑：UC知道 时间：2024/05/29 07:45:06
3. 用随机函数生成100个三位数存于数组a中，将他们以一行10个的格式输出；找出其中所有百位数和个位数之和等于5的数，也将他们以一行10个的格式输出，并计算这些数的和

谢谢，过程

Option Base 1
Private Sub Form_CLICK()
Cls
Randomize
Dim a(100) As Integer, sum1 As Long, sum2 As Long
z = 0
sum1 = 0
sum2 = 0
For i = 1 To 100
a(i) = Int((1000 - 100) * Rnd + 100)
sum1 = sum1 + a(i)
Print a(i);
If i Mod 10 = 0 Then Print
Next i
Print "100个随机3位数和为："; sum1
For l = 1 To 100
If Mid(a(l), 1, 1) = Mid(a(l), 3, 1) Then
Print a(l);
z = z + 1
sum2 = sum2 + a(l)
End If
If z Mod 10 = 0 Then Print
Next l
Print
Print "百位和各位数相同的数字和为："; sum2
End Sub

dim a(99) as integer,i as integer,n as integer,s as integer
for i=0 to 99
a(i)=int(rnd*900)+100
print a(i);
if (i+1) mod 10=0 then print
next i
print
n=0
for i=0 to 99
if (a(i) mod 10)+(a(i)\100)=5 then
print a(i);
s=s+a(i)
n=n+1
if n mod 10=0 then print
end if
next i
print
print
print "S