网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
有如下程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A．25
B．26
C．27
D．28
参考答案
更多 “ 有如下程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为A．25B．26C．27D．28 ” 相关考题
考题
在窗体上画一个命令按钮Command1，然后编写如下程序：Private Sub Command1_Cliek()Dim arr()As IntegerRe Dim arr(3)For i=0 To 3arr(i)=iNext ix=InputBox("请输入一个数字：")IfVal(x)＞4 ThenRc Dim arr(4)arr(4)=xEnd IfMe.Print(arr(4)-arr(3))End Sub程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。
考题
阅读程序Option Base 1Private Sub Form_Click（）Dim arr,SumSum = 0arr = Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3 = arr（i）\3 ThenSum = Sum + arr（i）End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．13B．14C．27D．15
考题
下列数组定义语句错误的是（ ）。A．k%=10Dim Arr（k）B．Const k%=10Dim Arr（k）C．Dim Arr1（10） As IntegerDim Arr2 （10）D．Dim Arr1（1 To 10）Dim Arr2（1 To 10, 2 To 11）
考题
设有如下程序：Option Base 1Private Sub Command1_Click（）Dim arr1Dim Min As Integer, i As Integerarr1 = Array（12, 435, 76, -24, 78, 54, 866, 43）Min = ______For i = 2 To 8If arr1（i） Min Then______NextPrint "最小值是："; MinEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
考题
（ 21 ）下面正确使用动态数组的是A ）Dim arr () As Integer…ReDim arr ( 3 , 5 )B ）Dim arr () As Integer…ReDim arr ( 50 ) As StringC ）Dim arr ()…ReDim arr ( 50 ) As IntegerD ）Dim arr ( 50 ) As Integer…ReDim arr ( 20 )
考题
（11）设有下列程序查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option Base 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(1) For i=2 To 8 If arr1(1)Min Then Next i Print"最小值："；Min End Sud
考题
（25）下列程序段错误的是。A.Dim a As Integer a=array(1,2,3,4) B.Dim a(),b() a=array(1,2,3,4):b=a C.Dim a As Variant a=array(1,"asd",true) D.Dim a() As Variant a=array(1,2,3,4)
考题
有如下程序：Option Base 1Private Sub Form_Click（）Dim arr, SumSum = 0arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）For i = 1 To 10If arr（i） / 3 = arr（i） \ 3 ThenSum = Sum + arr（i）End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．25B．26C．27D．28
考题
有如下程序：Option Base 1Private Sub Form_Click()Dim arr,SumSum=0For i=1 To 10If arr(i)/3=arr(i)\3 ThenEnd IfNext iEnd Sub程序运行后，单击窗体，消息框的输出结果为( )。
考题
阅读程序： Private Sub Command1_Click（ ） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（ ）。A.8 7 6B.7 6 5C.6 5 4D.5 4 3
考题
设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer, i As Integerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)Min = arr1(1)For i=2 To 8If arr1(i)＜Min ThenNext iPrint "最小值是:"; MinEnd Sub
考题
下面正确使用动态数组的是（ ）。A.Dim arr（ ）As Integer … ReDim arr(3，5)B.Dim arr（ ）As Integer … ReDim arr(50)As StringC.Dim arr（ ） … RcDim arr(50)As IntegerD.Dim arr(50)AS Integer … ReDim arr(20)
考题
下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。Option Base 1Private Sub Command1_Click()Dim arr1()Dim Min As Integer,i As Integerarr1＝Array(12,435,76,-24,78,54,866,43)Min＝______For i＝2 To 8If arr l(i)＜Min Then______Next iText1＝MinEnd Sub
考题
设有以下程序：Option Base 1Private Sub Command1_Click( )Dim arr1 ,Max as Integerart1 = Array(12,435,76,24,78,54,866,43)【 】= arr1(1)For i = 1 To 8If arrl(i)＞Max Then【 】Next iPrint "最大值："； MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。
考题
设有如下程序： Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______。A．ABCDE 20 10B．10 20 ABCDEC．ABCDE 10 20D．出错信息
考题
设有程序：Option Base 1Private Sub Command1_Click()Dim arr1,Max as Integerarr1＝Array(12,435,76,24,78,54,866,43)【 】＝arr1(1)For i＝1 To 8If arr1(i)＞Max Then【 】Next iPrint"最大值是:";MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
考题
在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345
考题
在窗体上画一个名称为Text1的文本框，然后编写如下代码： Option Base 1 Private Sub Form. Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Sub程序运行后，单击窗体，则在文本框中显示的内容是______。A．40B．10C．12D．16
考题
有如下程序： Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A． 25B．26C．27D．28
考题
阅读程序： Option Base 1 Private Sub Form. Click() Dim arr，Sum Sum= 0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为A．13B．14C．27D．15
考题
有如下程序：Option Base 1Private Sub Command1 Click（ ）Dim arr(10)arr=Array(10，35，28，90，54，68，72，90)For Eaeh a In arrIf a50ThenSum=Sum+aEnd IfNext aEnd Sub运行上述程序时出现错误，错误之处是（ ）。A.数组定义语句不对，应改为Dim arrB.没有指明For循环的终值C.应在For语句之前增加Sum=0D.Next a应改为Next
考题
在窗体上添加一个命令按钮，其名为Command1，然后编写代码如下：Option Base 1Private Sub command1_ Click() Dim arr (4)As Integer Dim arrt (4) As Integer for i= 1 To 4 Arr (i)= i arr1 (n)= 2 * n + i Next i Print arr1 (n); arr(n)程序的运行结果为______。A．3 11B．11 3C．10 3D．3 13
考题
在窗体上画一个名为Command 1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1, 2, 3, 4, 5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345
考题
有如下程序： Option Base 1 Private Sub Command1 Click（ ） Dim arr(10) arr=Array(10，35，28，90，54，68，72，90) For Eaeh a In arr If a50Then Sum=Sum+a End If Next a End Sub 运行上述程序时出现错误，错误之处是（ ）。A.数组定义语句不对，应改为Dim arrB.没有指明For循环的终值C.应在For语句之前增加Sum=0D.Next a应改为Next
考题
有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A．25B．26C．27D．28
考题
阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 TO 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为A．13B．14C．27D．15
考题
以下不合法的数组是：A.arr:Array of ClassB.arr:Array of TButtonC.arr:Array of byteD.arr:Array of string
热门标签
最新试卷
