①家用电饭锅的预约功能
②微信支付时采用指纹支付
③半导体集成电路技术
④最新研发的一项可穿戴技术，用来帮助用户保持身材，矫正坐姿和行走姿态
⑤在《我是未来》节目中能和人智能对话的“微软小冰”虚拟机器主持人
Const n = 6
Dim a(1 To n) As Integer
Dim i As Integer, j As Integer, t As Integer
Do While True
For i=1 to n-1
If a(i)>a(i+1) then Exit For
Next i
If i < n Then
For i = 1 To n
j = Int(Rnd * 6) + 1
t = a(j): a(j) = a(i): a(i) = t
Next i
Else
Exit Do
End If
Loop
数组中a(1)到a(6)的值依次为“56，34，48，87，65，96”，经上述程序段执行后a(1)到a(6)的值依次为（ ）
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, m As Integer
Dim key As Integer
i = 1: j = 10: key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If key < a(m) Then
j = m - 1
ElseIf key > a(m) Then
i = m + 1
Else
Do While m > 1
If a(m - 1) = key Then
m = m - 1
Else
Exit Do
End If
Loop
Exit Do
End If
Loop
数组中a(1)到a(10)依次为“1，1，2，3，3，3，3，4，4，4”，若在文本框Text1中输入值3，经上述程序段执行后变量m的值为（ ）
图c
（提示：RANK函数用于返回某个数字在一系列数字中相对于其他数字的排名。例如：＝RANK（E3，E3:E17）表示E3在数据区域E3:E17中的降序排名。）
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer, n As Integer
Dim max1 As Integer, max2 As Integer
s = Text1.Text: n = Len(Text1.Text)
If Mid(s, 1, 1) > Mid(s, 2, 1) Then
max1 = 1: max2 = 2
Else
max1 = 2: max2 = 1
End If
For i = 3 To n
ch = Mid(s, i, 1)
If ch > Mid(s, max1, 1) Then
max1 = i
ElseIf ch >= Mid(s, max2, 1) Then
max2 = i
End If
Next i
For i = 1 To n
If Then Text2.Text = Text2.Text & Mid(s, i, 1)
Next i
End Sub
为使动画一开始便能听到音乐，正确的操作是。
|
排序前 |
78 |
30 |
64 |
39 |
49 |
4 |
8 |
32 |
18 |
32 |
|
排序后 |
39 |
49 |
83 |
4 |
8 |
18 |
30 |
32 |
64 |
78 |
实现上述功能的VB程序如下，但加框处代码有误，请改正。
Const n = 10
Dim d(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
'读取一组正整数，存储在数组d中，代码略
i = 1
Do While i <= n - 1
For j = n To i + 1 Step -1
If d(j) Mod 2 = d(j - 1) Mod 2 Then
If 
Then '(1)
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
'(2)
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
i=i+1
Loop
'依次输出排序后的数据，代码略
End Sub
⑴ ⑵
⑴各像素点的颜色信息值（介于0至255之间的一个正整数），存储至数组a中。
⑵给定模糊处理的模糊中心位置p和模糊半径r（r>1），中心位置p即为半径为1的区域，
①确定模糊中心点在如下数阵中的位置。若模糊中心为36时，该模糊中心在数阵中对应位置为第4行第6列；
图a
②根据中心点和模糊半径确定模糊处理的像素点的范围。
⑶依序将模糊处理范围内的像素点进行模糊处理。模糊处理的方式为：最外侧的像素点颜色信息不变，中间各像素点的新颜色信息值为该像素点上下左右相邻四个像素点颜色信息值的平均值。
程序运行时，在文本框Text1中输入模糊的中心点p，在文本框Text2中输入模糊的半径r，窗体加载，通过列表框List1输出图像模糊处理前的信息，单击命令按钮Command1后通过列表框List2输出模糊后的图像信息。程序运行效果如图b所示。相应的模糊中心位置由椭圆圈注，中间各像素点由矩形框圈注
图b
实现上述功能的VB程序如下。请回答下列问题：
Const n = 10
Dim a(1 To n * n) As Integer '介于0至255之间的值，存储10*10图像像素点的颜色信息
Private Sub Form_Load()
'读取100个正整数，存储在数组a中以表示10*10图片的像素点颜色信息，代码略。
'并按右对齐方式将该图片的各像素点颜色信息输出至列表框List1中，代码略。
End Sub
Private Sub Command1_Click()
Dim r As Integer, p As Integer
Dim i As Integer, j As Integer, k As Integer
p = Val(Text1.Text) ：r = Val(Text2.Text)
i = 1
Do While j > n
j = j - n
i = i + 1
Loop
'确定模糊处理的范围，处理范围的起始行，结束行，起始列，结束列保存到i1，i2，j1，j2中，代码略
For i = i1+1 To i2-1 '中间像素点的模糊处理
For j = j1+1 To j2-1
a(k) = ave(k)
Next j
Next i
'并按右对齐方式将该图片的各像素点颜色信息输出至列表框List2中，代码略。
End Sub
Function ave(k As Integer) As Integer
ave =
End Function
