首页 > 计算机应用技术> 平面图像软件设计与应用

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[主观题]

设有如下程序： Option Base 1 Pfivme Sub Command1_Click（)

设有如下程序： Option Base 1 Pfivme Sub Command1_Click() Dim arr1 Dim Min As Integer，i As Integer arrl=Array(12，435，76，-24，78，54，866，43) Min=【】 For i=2 TO 8 If arr1(i)＜Min Then【】 Next i Print“最小值是：”；Min End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的小值。请填空。

答案

查看答案

发布时间：2022-12-04

更多“设有如下程序： Option Base 1 Pfivme Sub Command1_Click（)”相关的问题

第1题

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim I As Integer a=Array(1,2,3,4,5,6,7,8,9) For I=0 To 3 Print a(5 - I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是()。

A.7654

B.6543

C.5432

D.4321

点击查看答案

第2题

设有如下程序： Option Base 0 Private Sub_Click（) Dim a Dim I As Integer a=Array（1，2，3，4，5，6，7，8，9) For I=0 To 3 Print a（5–I); Next I End Sub 程序运行后，单击窗体，则在窗体上显示的是（)。

A.7654

B.6543

C.5432

D.4321

点击查看答案

第3题

设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option B

ase 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1=Array(12, 435, 76, -24, 78, 54, 866, 43) Min = arr1(l) For i=2 To 8 If arr1(i) ＜ Min Then Next i Print "最小值是:"; Min End Sub

点击查看答案

第4题

设有程序： Option Base 1 Private Sub Command1_Click（) Dim arrl, Max As Integer arrl=Arr

设有程序： Option Base 1 Private Sub Command1_Click() Dim arrl, Max As Integer arrl=Array(12, 435, 76, 24, 78, 54, 866, 43) 【】=arrl(1) For i=1 To 8 If arrl(i)＞Max Then【】 Next i Print "最大值是:" ; Max End Sub 以上程序的功能是，用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

点击查看答案

第5题

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub

Command1_Click() Dim a s=0 a=Array (1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a (i) * j j=j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是()。

A.4321

B.34

C.1234

D.12

点击查看答案

第6题

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Su

b Command1_Clic() Dim a s=0 a=Array (1,2,3,4) j= 1 For i=4 To 1 Step-1 s=s+a(i) * j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是()。

A.4321

B.34

C.1234

D.12

点击查看答案

第7题

下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。

Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【】 Print sum,aver End Sub

点击查看答案

第8题

下列程序的功能是：找出给定的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

点击查看答案

第9题

下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。 Option

Base 1 Private Sub Form_Click() Dim a(10) As Integer，i As Integer Dim max As Integer，max_i As Integer Randomize For i=1 To 10 a(i)=【】 Next i max=a(1)：max_i=1 For i=1 To 10 If【】Then max=a(i) max_i=i End If Next i Print max,max_i End Sub

点击查看答案

第10题

如果使用Option Base 2，则表示缺省的数组下界为2。()

如果使用Option Base 2，则表示缺省的数组下界为2。（)

A.正确

B.错误

点击查看答案

第11题

可以通过Option Base 1设定数组的下标从1开始。（)

点击查看答案