[主观题]

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

Private Sub Command1_Click()

D.im arr(1 To 100)As Integer

F.or i=1 To 100

arr(i)=Int(Rnd*1000)

Next i

Max=arr(1)

Min=arr(1)

F.or i=1 To 100

If________Then

Max=arr(i)

E.nd If

If________Then

Min=arr(i)

E.nd If

Next i

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

E.nd Sub

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

参考答案与解析:

相关试题

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

[单选题]在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()D.im a1(4, 4), a2(4, 4)F.or i = 1 To 4F.or j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)E.nd Sub程序运行后,单击命令按钮,在窗体上输出的是( )。A.6 6B.10 5C.7 21D.6

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

    [单选题]在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")E.nd Sub程序运行后,单击命令按钮,窗体上显示的是( )。A.123.45B.12345.00C.12345D.00123.45

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

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

  • 查看答案
  • 在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:Pri

    [单选题]在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程: Private Shb Command1_Chck() Dim a(5,5) As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1) * 3+j Print a(i,j) Next j Print Next i End Sub 程序运行后,单击命令按钮,在窗体上的输出结果是______。A.1 4 7 2 5 8 3

  • 查看答案
  • 在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:Pri

    [单选题]在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程: Private Sub Command1_Click() Dim a(5,5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j) Next j Print Next i End Sub 程序运行后,单击命令按钮,在窗体上的输出结果是: ______。A.1 4 7 2 5 8 3

  • 查看答案
  • 在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:Pri

    [单选题]在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程: Private Sub Comnmnd1_Click() Dim a(5,5)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=1 To 3 a<i,j)=(i-1)*3+j Print a(i,j) Next j Print Next i End Sub 程序运行后,单击命令按钮,在窗体上的输出结果是______。A.1 4 7 2 5 8 3 6

  • 查看答案
  • 在窗体上画一个命令按钮<其名称为Command1),然后编写如下事件过程:Pri

    [单选题]在窗体上画一个命令按钮<其名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i<=4 Then x=x+1 Print x Next i End Sub 程序运行后,单击命令按钮;其输出结果为 ______。A.1 2 3 4B.2 3 4 5C.2 3 4 4D.3 4 5 6

  • 查看答案
  • 在窗体上画尸£­个命令按钮,其名称为Command1,然后编写如下事件过程:Pr

    [单选题]在窗体上画尸-个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() For i=1 to 4 If i=1 Then x=i If i<=4 Then x=x+1 Print x Next i End Sub 程序运行后,单击命令按钮,其输出结果为: ______。A.1 2 3 4B.2 3 4 5C.2 3 4 4D.3 4 5 6

  • 查看答案
  • 在窗体上绘制一个命令按钮,其名称为Command1,然后编写如下事件过程:Pri

    [单选题]在窗体上绘制一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click() Dim i As Integer,x As Integer For i=1 To6 If i=1 Then x=i If i<= 4 Thenx=x+1 Elsex=x+2 End If Next i Print xEnd Sub 程序运行后,单击命令按钮,其输出结果为 。A.9 B.6 C.12 D.15

  • 查看答案
  • 在窗体上绘制一个命令按钮,其名称为Command1,然后编写如下事件过程:Pri

    [单选题]在窗体上绘制一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,x As Integer For i_1 T0 6 If i=1 Then x=i If i<=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后,单击命令按钮,其输出结果为( )。A.9B.6C.12D.15

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