填空题

下列程序的功能是：找出给定的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 If x(k) ＞ x(Max) Then ______ End If Next k y=______ Print Max, y End Sub

【参考答案】

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

填空题
窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动300twip。请填空。Private Sub Form_Load0Picture1.Picture=LoadPicture( c: My Docunents 图片 Qian1_Icon02.ico )______End SubPrivate Sub Timer1_Timer()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
相关试题