Dim a As Integer, b As Integer
a=Len("China")
b=a-2
If a Mod b=2 Then a=a^2 Else a=b^2
该程序段运行后,a的值为( )
n = int(input("请输入行数:"))
if n % 2 == 0: #保证n的值为奇数
n=n-1 a=[]
for i in range(n):
if i<=n//2:
b=2*i+1 #当在上半部分的时候
else:
#当在下半部分的时候
a.append(" "*w+"&"*b)
for s in a:
请输入行数:9
请输入行数:6
print(s)
上述程序中划线处可选语句为( )
①b=n-2*i+1 ②b=(n-i)*2-1
③w=(n-b)%2 ④w=(n-b)//2
图1
①家用电饭锅的预约功能
②科考人员利用无人机进行地貌航拍
③通过语音向某智能音箱发出指令
④烟雾探测器探测到浓烟时自动启动喷淋系统
⑤某搜索引擎使用“识图”功能对上传的图片进行相似图片查找
Dim a(l To 100) As String
Private Sub Commandl_Click()
Dim c As Integer, t As String, ans As String
s = Textl. Text
k = Val(Text2. Text)
ans =“”
For i = 1 To Len(s) - k - 1
c = c + 1
a(c) = Mid(s, i, 1) + Mid(s, i + k + 1, 1)
If check(c) Then
ans = ans + a(c) + ","
Else
c = c - 1
End If
Next i
Text3. Text = ans
End Sub
Function check(k As Integer) As Boolean
Dim i As Integer
check = True
For i = 1 To k - 1
If a(i) = a(k) Then check = False: Exit For
Next i
End Function
若该程序段执行后,在文本框Text1中输入的字符串长度不超过10,文本框Text2中输入的值在0到8范围内(输入输出都不包括双引号本身),下列说法不正确的是( )
在使用计算机解决问题时,选择合适的算法,是有效解决问题的关键。
分析下面的问题,请选择最合适的算法:( )
搬砖问题:100块砖,100人搬,一个男人搬4块,一个女人搬3块,两个小儿抬1块,要求一次全搬完。请问需男、女、小儿各多少人?
Private Sub Command1_Click()
List1.Clear
List2.Clear
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) =
If Then
List1.AddItem Str(a(i))
Else
End If
Next i
End Sub
Dim a As Integer
Dim b As Integer
Dim r As Integer
a=98
b=63
r=a Mod b
Do While r <>0
a=b
b=r
r=a Mod b
Loop
Print b
程序运行后,输出结果为:。
数组元素f(1)到f (8)赋初值为0,代码略
Key = Int(Rnd*7)*2+3
i =1:j=8:c=0
Key = Val(Text1.Text)
Do While i<=j
m=(i+j)\ 2
f(m) = 1
If Key <= a(m) Then j =m-1 Else i=m+1
For n=1 To 8
c=c+f(n)
Next n
数组元素a(1)到a(8)的值依次为“3,7,9,10,15,15,15,20”,执行该程序段后,则( )