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

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

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

搜题

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

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

[主观题]

设有程序： 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个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

答案

查看答案

发布时间：2022-12-03

更多“设有程序： Option Base 1 Private Sub Command1_Click（) Dim arrl, Max As Integer arrl=Arr”相关的问题

第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题

在窗体上画一个命令按钮(其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

点击查看答案

第4题

在窗体上画一个命令按钮(其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

点击查看答案

第5题

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

点击查看答案

第6题

数组默认下标从1开始，若希望下标从0开始，可在数组声明之前或模块的通用部分使用Option Base语句将其设为0。（)

点击查看答案

第7题

下面程序段的输出结果是_______。class Base{ int i; Base(){ add(1); } void add(int v){ i+=v; } void print(){ System.out.println(i); } } class Extension extends Base{ Exten

A.9

B.22

C.20

D.18

点击查看答案

第8题

下列程序段中具有相同值的是（)。class Base{int b;}; class Base1:virtual public base{int b1;}; class Base2:virtual public base{int b2;}; class derived:public base1，base 2{int b3;}; derived d

A.d.b与d.base1::b

B.d.base1::b与d.base1::b1

C.d.b与d.b3

D.d.base2::b与d.base2::b2

点击查看答案

第9题

设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) N

ext End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。

A.25

B.24

C.15

D.10

点击查看答案

第10题

编写一过程将C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框

Text1，将其MultiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，请将程序补充完整。 Option Explicit Private Sub Form. _Click() Dim ch1 As String，fn As Integer Dim Str As String fn=【】 Open "C:\Config.sys" For Input As fn Do While Not EOF(【】) Line Input fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text =【】 End Sub

点击查看答案

第11题

从供选择的答案中，选出最确切的解答。（1) data effectively is crucial for success in today's c

从供选择的答案中，选出最确切的解答。

(1)data effectively is crucial for success in today's competitive environment. Managers must know how to use a variety of tools. Integrated data takes information from different sources and puts it together in a meaningful and useful way. One of the difficulties of this is the(2)in hardware and software.(3)integration uses a base document that contains copies of other objects.(4)integration uses a base document that contains the current or most recent version of the source document it contains.

(5)provides an overview of the program written in "plain" English, without the computer syntax.

点击查看答案