①利用语音方式控制机器人
②使用智能手机在微信传输语音
③电饭锅的自动保温功能
④使用面部识别技术解锁手机
⑤停车场自动计费系统的汽车牌照识别功能
实现上述功能的VB代码如下。
Dim a(1 To 50) As Integer
Private sub Command1_Click()
Dim i As Integer
k=0: i=3
Do While i<= 100
If Not prime(i) Then
k=k+1
End If
i=i+2
Loop
For i=2 To k
If Then
List1 AddItem Str(a(i-1))+"和"+ Str(a(i))
End if
Next i
End Sub
Function prime (x As Integer)As Boolean
prime=False
For i=2 To Int(sar(x))
If x Mod i=0 Then
prime=True
Exit for
End If
Next i
End Function
a, b=2,1
while a>=b:
b=a*b
a=2*a
print(a, b)
Dim a(1 To 1000) As Integer
Dim n As Integer
Private Sub Form_Load()
'确定n的值和数组a的各个元素值,即每根棍子的长度值,代码略
End Sub
Function max (x As Integer, y As Integer) As Integer
If x>y Then
max=x
Else
max=y
End If
End Function
Private Sub Command1_Click()
Dim i As Integer, J As Integer, K As Integer
Dim ans As Integer, c As Integer, longest As Integer,
rest As Integer
ans=0
'让i<j<k,保证棍子不会被重复选中
For i=1 To n
For j=i+1 To n
For k=j+1 To n
c=a(i)+a(j)+a(k)
longest=
'①
rest=c-longest 'rest 保存最短的两条边的和
If
Then '②
ans=max(ans, c)
End If
Next k
Next j
Next i
Print ans
End Sub
n=int((“请输入一个三位数:”))
a=n//100
b=
c=n % 10
print(“个位和十位对调后的三位数为:”,)
n=0
For i=1 To Len(Text1.Text)
c=Mid(Text1.Text,i,1)
If c>=“0”And c<=“9”Then m=1 Else m=2
a(m)=a(m)+1
If a(m)=1 Then n=n+1
Next i
数组a中各元素的初始值都为0,文本框Textl中的内容为“Happy2017”。执行该程序段后,变量n的值为( )
则下列说法正确的是( )

data=open("txm.txt")
#班级选课人数存放在列表xknum中,代码略
kmmc="物理化学生物政治历史地理技术"
line=data.readline()
kmnum=[0]*7 #用于存放实际参与教学调查每个选科人数
while line:
for i in range(3): #统计每科参考投票的人数
km=int(line[])-1 #(选填字母,从下列A、B、C、D四个选项中选取一项)
kmnum[km]=kmnum[km]+1 a
line=data.readline()
s=""
for i in range(7):
if : #(填程序代码)
s=s+kmmc[i*2:(i+1)*2]+" "
print("无效的科目有:",s)
划线①处的选项:
A .9+i*2:9+i*2 B .9+i*2:11+i*2
C .8+i*2:9+i*2 D .8+i*2:10+i*2
