【正文】
Until k = ub 39。 Str(a(i)) amp。err n Mod 3 st = st amp。2010年(春)上機 Visual Basic(VB02)答案一、改錯【題目】本程序的功能是:利用隨機函數(shù)生成n個可被3整除,且至少包含一個8的三位整數(shù)。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, a() As Integer, i As Integer Dim st As String n = InputBox(數(shù)據(jù)個數(shù)n:, 查找, 15) ReDim a(n) Call find(a) For i =