第1题
要打印出50个在-100~100之间不同的随机整数,并找出第几个是最大数。给定的程序不完整,将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Randomize 【 】 Do x=Rnd If x>0.5 Then y=1 Else y=-1 t=y*Int(Rnd*100)+1 【 】 Do While k<j If t <> b(k)Then k = k + 1 Else Exit Do End If Loop If k=j Then ReDim Preserve b(k) b(k)=t Print b(k); j=j+1 End If Loop Until j>50 Print 【 】 Max=b(1) For n=2 To 50 If b(n)>Max Then 【 】 p = n End If Next n Print "最大数是:";Max Print "位置在第";p;"个" End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
下列程序的功能是计算两个自然数的最大公约数,界面如下图所示。给定的程序不完整,将程序补充完整。
Private Sub Command1_Click() Dim x As Long, y As Long,i As Long x=Val(Text1.Text) y=Val(TextText) TextText = Str(【 】) End Sub Function fun1(a As Long,b As Long)As Long Dim r As Long Dim t As Long If【 】Then t = a a = b b = t End If r = a Mod b Do While r <> 0 a = b b = r r = a Mod b Loop 【 】 End Function
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!