For i=1 To 3
For j=i+1 To 7
If a(j)< a(i) Then
k= a(j): a(j)= a(i): a(i)=k
c=c+1
End If
Next j
s= Str(a(i))+s
Next i
Text1.Text=Str(c) & ":" & s
数组元素a(1)至a(7)中值分别为3,9,1,5,8,6,2,该程序段运行后,文本框Text1中显示的内容是( )
①上海世博会的进展情况通过电视和网络传遍全世界
②中央电视台播报天气预报
③游客到商场购物
④班主任将“端午节”放假的消息通知给所有的同学
| 图书编号 | 图书名称 | 借阅人 | 借书日期 | 还书日期 | 是否损坏 |
| JS0001 | Python编程从入门到实践 | 黄晓琳 | 2019-5-14 | 2019-6-5 | 否 |
| JS0002 | 深入理解Java虚拟机 | 李语敏 | 2019-11-21 | 2019-12-25 | 是 |
| …… | …… | …… | …… | …… | …… |
| JX0712 | 历史的原声 | 王甜甜 | 2020-1-19 | 2020-6-1 | 否 |
以下有关“小微图书管理系统”和Access数据表结构设计描述正确的是( )
Dim a(0 To 7) As Integer
a(0)=1:a(1)=1:a(2)=2:a(3)=2:a(4)=2:a(5)=3:a(6)=3:a(7)=5
i = 0:j=7:n=0
Key=Int(Rnd*7)
Do Whilei <=j
m=(i+j+1)\2
If a(m) = Key Then
Exit Do
ElseIf a(m) < Key Then
i=m+1:n=n-1
Else
j=m-1:n=n+1
End If
Loop
Print (n)
执行该程序,输出结果可能的是( )
Private Sub Command1_Click( )
Dim a As Integer, s As String
Dim. n As Integer, t As Integer, v As Integer
n= Val(Text1. Text)
t=0
s= “”
Do While n >0
a= n Mod 2
n=n\2
t= ①
s=Str(a)+ s
Loop
v=t Mod 2
Text2. Text =s
Label3. Caption=校验位值: “+ ②
End Sub
① ②