题目内容
（请给出正确答案）
[主观题]
在用Ⅵsual Basic开发应用程序时，一般需要建立可视用户界面、设置对象属性和【 】3步。
如搜索结果不匹配，请 联系老师 获取答案
更多“在用Ⅵsual Basic开发应用程序时，一般需要建立可视用…”相关的问题
第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题
下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。
.jpg){kind=spacer}
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
请帮忙给出正确答案和分析，谢谢！
热门考试
全部 >
