( 7 )在窗体上画 1 个命令按钮,其名称为 Command1 ,然后编写下列事件过程:Private Sub Command1_Click( )Dim arr(1 To 100 ) As IntegerFor i=1 To 100arr(i)=Int(Rnd*1000)Next iMax=arr ( 1 )Min=arr ( 1 )For i=1 To 100If 【 7 】 ThenMax=arr(i)End IfIf 【 8 】 ThenMin=arr(i)End IfNext iPrint"Ma

题目

( 7 )在窗体上画 1 个命令按钮,其名称为 Command1 ,然后编写下列事件过程:

Private Sub Command1_Click( )

Dim arr(1 To 100 ) As Integer

For i=1 To 100

arr(i)=Int(Rnd*1000)

Next i

Max=arr ( 1 )

Min=arr ( 1 )

For i=1 To 100

If 【 7 】 Then

Max=arr(i)

End If

If 【 8 】 Then

Min=arr(i)

End If

Next i

Print"Max=" ; Max , "Min=" ; Min

End Sub

程序运行后 , 单击命令按钮 , 将产生 100 个 1000 以内的随机整数 , 放入数组 arr 中 , 然后查找并输出这 100 个数中的最大值 Max 和最小值 Min ,请填空。


相似考题
更多“( 7 )在窗体上画 1 个命令按钮,其名称为 Command1 ,然后编写下列事件过程:Private Sub Command1_ ”相关问题
  • 第1题:

    在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() x=-5 If Sgn(x) Then y=Sgn(x^2) Else y=Sgn(x) End If Print y End Sub 程序运行后,单击命令按钮,其输出结果为 ______。

    A.-5

    B.25

    C.-1

    D.1


    正确答案:D
    解析:Sgn(number)函数的功能是返回number的正负号。如果number>0,Sgn返回1;number=0,Sgn返回0;number0,Sgn返回-1。在本题中Sgn(-5)的返回值为-1,-1为真,所以执行y=Sgn(x^2),返回1,所以y的值为1。

  • 第2题:

    在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是

    A. 123.45

    B.12345.00

    C.12345

    D.00123.45


    正确答案:B
    解析:对于符号“0”,实际数字小于符号位数时,数字前后加0;大于时,若要显示数值表达式的整数部分位数多于格式字符串的位数,按实际数值显示。若小数部分的位数多于格式字符串的位数,按四舍五入显示。

  • 第3题:

    在窗体上画1个命令按钮,其名称为Command1,然后编写如下事件过程:

    PriVate Sub Commandl_CUck()

    Dimalt(1 To 100)As Integer

    Fori=1 To 100

    arr(i)=Int(Rnd*1000)

    Nexti

    Max=arr(1)

    Min=arr(1)

    Fori=1 To 100

    If [12] Then

    Max=arr(i)


    正确答案:arr(i)>Max或arr(i)>=Max或Maxarr(i)或Max=arr(i)arr(i)Min或arr(i)=Min或Min>arr(i)或Min>=arr(i)
    arr(i)>Max或arr(i)>=Max或Maxarr(i)或Max=arr(i),arr(i)Min或arr(i)=Min或Min>arr(i)或Min>=arr(i)

  • 第4题:

    在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click( ) a=12345 Print Format $(a,"000.00") End Sub 程序运行后,单击命令按钮,窗体上显示的是

    A.123.45

    B.12345.00

    C.12345

    D.00123.45


    正确答案:B
    解析:解题的关键是掌握对格式说明字符的理解。0表示一个数字位,0的个数决定了显示区段的长度,多余的位以0补齐;小数点与O结合使用,可以放在显示区段的任何位置,根据格式字符串的位置,小数部分多余的数字按四舍五入处理。由于本题中变量a为12345,并没有涉及小数,故可以直接在其后补两个0。

  • 第5题:

    在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a=12345 Print Format$(a,"000,00") End Sub 程序运行后,单击命令按钮,窗体上显示的是( )。

    A.123.45

    B.12345.00

    C.12345

    D.00123.45


    正确答案:B

  • 第6题:

    在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:

    Private Sub Command1_Click()

    a = 12345

    Print Format$(a, "000.00")

    End Sub

    程序运行后,单击命令按钮,窗体上显示的是( )。

    A.123.45

    B.12345.00

    C.12345

    D.00123.45


    正确答案:B