Private Sub Command1_Click()
For i = 150 To 300
a = i \ 100
b = I mod 100 \ 10
c = i – a*100 – b*10
If i = a * a * a + b * b * b + c * c * c Then
Label1.Caption = Str(i)
End If
Next i
End Sub
For i= 1 To 6
a(i)=i+1
Next i
该程序段运行后数组元素a(3)的值是:( )
①将0赋值给变量Num,将1赋值给变量i
②若i除以2余0,则将变量Num的值增加1并输出i
③变量i的值增加1,若变量i小于等于10,则转②
④结束
关于该算法的说法不正确的是( )
s="ABC123":i=1
Do While i<=6
ch=Mid(s,i,1)
If ch>="0" And ch<="9" Then c=c+1
i=i+1
Loop
1 | 5 | 7 | 9 |
4 | 6 | 10 | 15 |
8 | 11 | 12 | 19 |
14 | 16 | 18 | 21 |
已知数据逐行存储在数组a中,在杨氏矩阵数组中查找某数字是否存在的VB程序段如下:
cz = False : i = 1 : j = n
Do While j >= 1 And i <= n
If key < a(s) Then
⑵
ElseIf key > a(s) Then
⑶
Else
cz = True:Exit Do
End If
Loop
方框中的代码由以下三部分组成:
①j = j - 1
②s = (i - 1) * n + j
③i = i + 1
代码顺序正确的选项是( )
s = 0
i = 0
Do While s < 10
i = i + 1
s = s + i * i
Loop
Dim i As Integer, imax As Integer
①
For i = 3 To 10
If Abs(a(i) - a(i - 1)) >= ② Then imax = i
Next i
Text1.Text = "GDP变化最大的年份区间是" + Str(imax + 2008) + "-" + Str(imax + 2009)
①、②应填入的代码为( )
li = map(int, input(). split())
cnt=0
for i in li:
if :
cnt+=1
print("奇数有{}个。". format(cnt))
import math
h = 500
g = 9.8
t = math.sqrt(2*h/g)
hx = g*(t-1)*(-1)/2
hh = h-hx
print(“小球最后1秒下落的位移是:”, hh, "m")
n='15867239012'
s=0
for x in n:
if int(x)%2==0:
continue
elif s==14:
break
s+=int(x)
print(s)
该程序段执行后,则输出结果为( )