for i in range(5, 1):
print(i,end=" ")
![]()
B .
D .
s=Text1.Text
For i=1 To Len(s)
t=Asc(Mid(s,i,1))-64
If t>32 Then t=t-32
s1=Chr((t+2)Mod 26+65)+s1
Next i
Text1.Text=s1
在文本框Text1中输入“wWxY”( )已知“a”的ASCⅡ值为97,“A”的ASCⅡ值为65),执行该程序段后,则变量s1的值为( )
①家用电饭锅的预约功能
②微信支付时采用指纹支付
③半导体集成电路技术
④最新研发的一项可穿戴技术,用来帮助用户保持身材,矫正坐姿和行走姿态
⑤在《我是未来》节目中能和人智能对话的“微软小冰”虚拟机器主持人
A. “1234” B. “12” “34” C. “46” D. 46
程序界面如图所示,左边列表框List1中显示同学的编号和姓名,单击“抽奖”按钮(Command1),在标签Label3 中显示抽中的编号,同时在标签Label4中显示“恭喜***同学”,其中具体同学的姓名从数组b中获取。
解决此问题的程序段如下:
Dim a(1 To 50) As Integer
Dim b(1 To 50) As String
Function search(m As Integer) As Integer
search= 0
For i=1 To 50
If m=a(i) Then
search=a(i)
End If
Next i
End Function
Private Sub Command1_ Click()
Dim c As Integer, t as integer
Randomize
①
Label3. Caption= Str(c)
t= search(c)
If t<>0 Then
Label4. Caption=“恭喜”+ ② +“同学”
End If
End Sub
Private Sub Form_ Load()
'此过程用于对数组a和数组b进行初始赋值,代码略
End Sub
① ②

If temp >= a(n) Then
a(n + 1) = temp
Else
j = n
Do While j >= 1 And temp < a(j)
①
j = j -1
Loop
②
End If