A.观察事物时善于选择生活中积极的一面
B.人与人的观察角度和思维方式是不同的
C.乐观主义比悲观主义更有利于人类进步
D.这两种理解有其合理性,也有一些片面性
第1题
有如下程序:
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum=0
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
End If
Next i
End Sub
程序运行后,单击窗体,消息框的输出结果为()。
第2题
在窗体上画一个文本框,然后编写如下程序: Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1.Text:Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后,单击窗体,在文本框中显示的内容是
A.1
B.3
C.6
D.10
第3题
有如下程序: Option Base 1 Pfivate 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 Nexti print Sum End Sub 程序运行后,单击窗体,输出结果为()。
A.25
B.26
C.27
D.28
第4题
在窗体上画一个文本框,然后编写如下代码: 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) Sum=0 For i=Start To Finish Sum=Sum+arr(i) Next i c=Sum/Finish Text1.Text=c End Sub 程序运行后,单击窗体,则在文本框中显示的内容是
A.40
B.10
C.12
D.16
第5题
阅读程序: 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.13
B.14
C.27
D.15
第6题
有如下程序: 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. 25
B.26
C.27
D.28
第7题
有如下程序:
Option base 1
Private Sub Command1_Click
Dim arr(10)
Arr=Array(10,35,28,90,54,68,72,90)
For Each a In arr
If a>50 then
Sum=sum+a
End If
Next a
End Sub
运行上述程序时出现错误,错误之处是
A)数组定义语句不对,应改为Dim arr
B)没有指明For 循环的终值
C)应在For语句之前增加sum=0
D)Next a 应改为next
第8题
阅读程序: Option Base 1 Private Sub Form_Click() Dim art,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+art(i) End If Next i Pdnt Sum End Sub 程序运行后,单击窗体,输出结果为()。
A.13
B.14
C.27
D.15
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!