Dim a(1 to 20) As Integer
For i=2 to 10
For j=2 to 20\i
a(i*j)=a(i*j) +1
Next j
Next i
该程序段运行后,数组a中元素值为0的个数是( )
Dim data(10) As Integer ‘①
Dim n As Integer ‘n表示总元素个数
Private Sub Command1_Click()
Dim t As Integer
t = Val(Text1.Text)
For i = t To n-1
②
Next i
n = n - 1
For i = 1 To n
③
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
n = 10
For i = 1 To n
data(i) = i * 2
List1.AddItem Str(data(i))
Next i
End Sub
②处的代码为。
③处的代码为。
a(I)=68: a(2)=88: a(3)=76: a(4)= 60: a(5)=98: a(6)=100: a(7)= 64: a(8)=85: a(9)=99: a(10)=59
For i=1 To 9
b(i)=Abs(a(i+1)-a(i))
c(b(i)\10)= c(b(i)\10) + 1
Next i
For i=0 To 10
If c(i)> 0 Then Label1.Caption = Label1.Caption + "" + Str(c(i))
Next i
数组c各元素初值为0,执行该程序段,标签Label 1上显示的内容是( )
a(1)=”231”:a(2)=”44”:a(3)=”23”:a(4)=”244”:a(5)=”124”
For i=5 To 4 step-1
k=i
For j=i-1 To 1 Step-1
If a(j) >a(k) Then k=j
Next j
If k<>i Then
t=a(k):a(k)=a(i):a(i)=t
End If
Next i
1)将数组a中的n个元素依次分割出若干个数据块,每个数据块有m×m个元素,m最大值为8,最小值为2。分割时,按尽可能大的数据块进行分割。
2)对每个分割出的数据块用“方阵转换法“进行转换,每次转换后得到的数据块依次存储到数组b中。
3)数组a分割后的剩余元素(个数小于4),直接依序存储到数组b中。
例如n=140时,可依次分割出3个数据块,元素个数分别为64(8×8)、64(8×8)、9(3×3),剩余元素为3个。
“方阵转换法”过程如下:将数据块中m×m个元素按行序排列成一个数字方阵,从该数字方阵中按列序得到转换后元素的次序。
以3×3数据块为例,转换过程如图所示:
小明依据上述描述设计了如下VB程序。请回答下列问题:
Const n=120
Dim a(1 To n)As Integer
Dim b(1 To n)As Integer
Private Sub Commandl_Click()
Dim m As Integer,i As Integer
Dim Start As Integer '当前未分割数据的第1个元素下标
Dim Left As Integer '当前未分割数据的个数
Dim pa As Integer '数组a的下标
Dim pb As Integer '数组b的下标
'读取n个转换前的数据,依次存储到 a(1)、a(2)、……、a(n)中,代码略
m=8
Start=1
Left=n
Do While Left>3
If Left<m * m Then
m= ①
Else
pa=Start
pb=Start
For i=1 To m * m
b(pb)= a(pa)
pb=pb+1
If i Mod m=0 Then
②
Else
pa=pa+m
End If
Next i
③
Start=Start+m*m
End If
Loop
For i=Start To n
b(i)=a(i)
Next i
'依次输出转换后的数据b(1)、b(2)、……b(n),代码略
End Sub
①②③
a(1) = 5: a(2) = 7: a(3) = 12: a(4) = 12
a(5) = 15: a(6) = 20: a(7) = 25: a(8) = 27
low = 1: high = 8
key = Text1.Text
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
执行该程序段后,变量low的值为3,则文本框Text1中输入的值不可能是( )
Dim a(1 To 6)As integer
a(1)=1
For i=2 To 6
Randomize
a(i)=a(i-1)+Int(Rnd*5+1)
If a(i) Mod 2=1 Then
a(i)=a(i)\2+1
Else
a(i)=a(i)/2
End If
Next i
执行程序后,数组各元素不可能是( )
Function f(x As Integer,y As Single)As Boolean
f=x<y
End Function
Ma = 0: Mb = 0
For i = 1 To 10
If d(i) > Ma Then
Mb = Ma
Ma = d(i)
ElseIf d(i) > Mb Then
Mb = d(i)
End If
Next i
数组元素d(1)至d(10)的值依次为:4,2,5,7,10,8,3,9,1,6,执行该程序段后,变量Ma和Mb的值分别为( )
|
鼠 |
牛 |
虎 |
兔 |
龙 |
蛇 |
马 |
羊 |
猴 |
鸡 |
狗 |
猪 |
|
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
0 |
1 |
2 |
3 |
ID=input("请输入18位身份证号: ")
sx=[‘鼠’,‘牛’,‘虎’,‘兔’,‘龙’,‘蛇’,‘马’,‘羊’,‘猴’,‘鸡’,‘狗’,‘猪’]
#计算年龄:
year=int(ID[6:10]) # 取出身份证中的出生年份
age= # 计算该身份证主人当年年龄(取2021)
#判断性别:
F_ sex-int(
) # 取出身份证中用于判断性别的第17位数字字符
If # 判断性别的的数字奇数为男性,偶数为女性
sex="男"
else:
sex="女"
#判断生肖:
F_ sx=()%12
anl=sx[F_ sx]
print("年龄是: ",age,"性别是: ",sex,"生肖是: ", an1)
s="Happy National Day!"
m=____
if m=="Happy":
print("Happy to you!")
elif m=="National":
print("Best Wishes to you!")
else:
print("It's a fine Day!")
m=abs(a[0]-a[1])
for i in range(2,len(a)):
if abs(a[i]-a[i-1])>m:
m=abs(a[i]-a[i-1])
则程序执行后,m的值是( )
For i=1 To 9 step 2
b(a(i) Mod 10) = b(a(i) Mod 10)+1
Next i
s =0
For i=0 To 9 step 3
s =s+ b(i)
Next i
数组b各元素初始值为0,数组元素a(1)到a(9)的值依次为“29,74,12,38,16,45,21,57,33”,则执行该程序段后,s的值为( )