题目

小明用VB编写了查找第二小的数的程序界面如图所示，程序随机产生50个范围在1~1000之间的随机整数，单击“查找”按钮能够在标签 Label1中显示第二小的数字。 Private Sub Command1_ Click( ) Dim n As Integer, i As Integer Dim a(1 To 50) As Integer Randomize For i=1 To 5 ① List1 AddItem Str(a(i)) Next i If a(1) < a(2) Then firstmin=a(1)secondmin =a(2) Else firstmin=a(2)secondmin=a(1) End if For i=3 To 50If a(i) < secondmin ThenIf ② then Secondmin = firstmin firstmin = a (i) Else ③End If End If Next i Label1. Caption = 第（题文）青藏地区是许多大江大河的发源地，下列河流不是发源于青藏地区的是A. 长江 B. 黄河C. 雅鲁藏布江 D. 珠江 D 【解析】青藏地区是许多大江大河的发源地，如长江、黄河、雅鲁藏布江、澜沧江的发源地，故答案选D。