UC知道求解一道VB编程答案
来源：百度知道 编辑：UC知道 时间：2024/05/10 19:19:40
题目如下：用随机函数生成120个三位数存于数组a中，将他们以一行8个的格式输出；找出其中所有百位数和个位数之和等于5的数。也将他们以一行8个的格式输出。要完整的答案哦！
Private Sub Form_click()
Randomize
Dim a(1 To 120)
For i = 1 To 120
a(i) = Int(Rnd * 900) + 100
m = m + 1
Print a(i);
If m Mod 8 = 0 Then Print
Next i
Print "百位数和个位数之和等于5的数"
For i = 1 To 120
j = Val(Left(a(i), 1))
k = Val(Right(a(i), 1))
If j + k = 5 Then
Print a(i);
n = n + 1
If n Mod 8 = 0 Then Print
End If
Next i
Print
Print
End Sub
好了~
要求是不少，但就是没分。
Mail to happyq6@163.com
I do it for u.