( 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 ,请填空。
第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
第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
第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)
第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
第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
第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