下列说法正确的是( )
①历年来煤炭在各类能源消费中所占比例最高
②从1970年至2000年石油消费呈逐年递减的趋势
③近年该国加大力度开发石油、天然气资源,石油、天然气的消费增高,而煤炭消费比重降低
④天然气具有价格低、污染少、安全等优点,人们对天然气的需求大幅度增加
| d[1] | d[2] | d[3] | d[4] | d[5] | d[6] | d[7] | d[8] |
| -10 | 0 | 1 | 3 | 4 | 6 | 9 | 10 |
For i = 1 To 5
a(i) = Int(Rnd * 90) + 10
Next i
For j = 5 To 2 Step -1
If a(j) Mod 2 = 1 And a(j) < a(j - 1) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
Else
a(j) = a(j) / 2
End If
Next j
执行该程序段后,a(1)到a(5)各元素不可能的是( )
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1=Text1.Text: j=1: ans=1 : s2=""
For i=2 To Len(s1)
if Asc(Mid(s1, i-1, 1)+1=Asc(Mid(s1, i, 1)) Then
j=j+1
if j>=ans Then
ans=j
s2=Mid(s1, i-j+1, j)
End If
Else
j=1
End if
Next i
List1 Addltem s2
End Sub
执行程序时,在文本框text1中输入“abc1234abcDewxyx”,单击command1后,在列表框List1中显示的结果是( )
X=2
For i = 1 to 10 step 2
x=x+i
Next i
运行程序后,X的值是( )
回答下列问题:
s=Text 1.Text
t=“”
For i=1ToLen(s)
c=Mid(s,i,1)
If c<“a”Or c>“z”The nt=“”
t=c+t
Next i
Label 1.Caption=t
执行此程序段时,在文本框Text 1中输入“2020NihaoWolaile”,则标签Label 1中显示的内容是( )