填空题

下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位置。请填空。 Option Base 1 Private Sub Form_Click() Dim x x=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90) Max=1 For k=2 To 10 Step 1 lfx(k)＞x(Max)Then ______ End If Next k y=______ Print Max,y End Sub

【参考答案】

Max=k x(Max)
<上一题 目录 下一题>
热门 试题

填空题
窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动300twip。请填空。Private Sub Form_Load()Picture1.Picture=LoadPieture( c: My Documents 图片 Qian1_Icon02.ico )______End SubPrivate Sub Timer1_Time()Static x,y As Integerx=x+300y=y+300Picture1.Move x,yEnd Sub
填空题
下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出：否则结束。请填空。Sub PrintOut()Dim a As Integera=MsgBox( 输出结果 ,vblnformation+vbYesNo， 提示： )If a=______ThenPrint Myresult End IfEnd Sub
相关试题