网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
阅读程序： 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 6
B.7 6 5
C.6 5 4
D.5 4 3
参考答案
更多 “ 阅读程序： 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 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
考题
数组arr经过下面的操作后结果为( )。 int[] arr={1, 2, 3}; for (int i=0; i ＜ 2; i++) arr[i] = 0;A．arr[0]==0B．arr[0]==1C．arr[1]==1D．arr[2]==0
考题
有如下程序：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
考题
下列程序用于打印出ASCⅡ字符,其析构函数内的语句应为【 】。 include inelude
下列程序用于打印出ASCⅡ字符，其析构函数内的语句应为【 】。include＜iostream. h＞inelude＜iomanip, h＞template＜class T＞class Array{T * elems;int size;public:Array(int.s);～Array()T operator[](int)void perator=(T)};template＜class T＞Array＜T＞::Array(int s)size=s;elems=new T[size]for(int i=0;i＜size;i++)elems[i]=0}template＜celass T＞Array＜T＞::～Array(){______template ＜class T＞T Array＜T＞::operator[](int index){return elems[index];}template＜class T＞void Array＜T＞::operator=(T temp){for(int i=0;i＜size;i++)elems[i]=temp;}void main(){int i,n=26;Array＜int＞ arr1(n)Array＜char＞ arr2(n)for(i=0;i＜n;i++){ -.arr1[i]='a'+i;arr2[i]='a'+i;}cout＜＜"ASCII 字符"＜＜endl;for(i=0;i＜n;i++)cout＜＜setw(8)＜＜arr1[i]＜＜setw(8)＜＜arr2[i]＜＜endl;}
考题
阅读程序： 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 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 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
考题
有如下程序： 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
考题
有如下程序： 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 arE(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 art=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
热门标签
最新试卷
