Question

VB编程:用Array()函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。谢谢

VB编程:用Array()函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。谢谢~

Answer 1

Private Sub Command1_Click()
Dim a()
a = Array(8, 11, 74, 22, 9, 56, 71, 35)
Max = a(0)
For i = 1 To 7
If Max < a(i) Then Max = a(i)
Next
MsgBox "最大值=" & Max
End Sub

追问

谢谢

VB编程:随机产生10个100~200的整数，打印其中7的倍数的数并求出它们的总和!

不知道这个您会吗?太感谢了!

追答

Private Sub Command1_Click()
Dim a as integer,s as integer
Randomize
For i = 1 To 10
a=int(Rnd*101)+100
if a mod 7=0 then
print a;
s=s+a
end if
Next
print
print "总和="; s
End Sub

追问

谢谢!

Private Sub Command1_Click()
Dim a()
a = Array(8, 11, 74, 22, 9, 56, 71, 35)
Max = a(0)
For i = 1 To 7
If Max < a(i) Then Max = a(i)
Next
MsgBox "最大值=" & Max
End Sub

你好，这个编到最后一步怎么显示缺少语句结束呢

谢谢

VB编程:用Array()函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。谢谢~

就是这一题