第3题
以下程序的功能是,产生10个0~1000的随机整数,放入数组Arr中,然后输出其中的最大值。请完善下列程序。 Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer Dim Max As Integer Randomize For i = 1 To 10 Arr(i)= Int(Rnd * 1000) Next i Max =【 】 For i = 2 To 10 If【 】Then Max = Arr(i) End If Next i Print Max End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
当运行下列程序,单击窗体后,分别输入72和24,信息框上显示的结果是【 】。 Private Sub Form_Click() Dim x As Integer,y As Integer x=Val(InputBox("输入整数72")) y=Val(InputBox("输入整数24")) z=fun1(x,y) MsgBox Str(Z) End Sub Private Function funl(ByVal a As Integer, ByVal b As Integer)As Integer Do r=a Mod b a = b b = r Loop Until r=0 funl=a End Function
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!