K5VB应用程序的调试与运行 文本框中 降序数 代码中的

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如9752、9772是降序数，而7524不是降序数）。现编写VB程序实现如下功能：在文本框Text1中输入一个正整数，单击“判断”按钮Command1，在标签Label2中显示出该数是不是降序数。程序运行界面如图所示。
（1）代码“Command1_Click（）”中的Click是______。（填字母：A．对象名／B．属性名／C．事件名／D．方法名）
（2）请完善下列程序代码；
Private Sub Command1_Cliek（）
Dim I As Integer，s As String，flag As Boolean
①______
flag＝True：i＝2
Do While i＜＝Len（s）And flag
②______
i＝i＋1
③______
If flag Then
Label2．Caption＝s＋“是降序数！”
Else
Label2．Caption＝s＋“不是降序数！”
End If
End Sub


(1)C  （1分）
(2)①s=Text1．text  （1分）
②If Mid(s，i-1，1)③Loop  （1分）

【本题解析】

本题考查VB程序语言基础知识。
 (1) Click属于事件名称，故选C。(2)①接收从文本框Text1中传递的内容到字符串变量s中。②如果第i个字符大于第i-1个字符，即后面的数大于前面的数，可据此判断为非降序数，故置flag为false，并退出循环。③本空是VB语言语法的需要，此处Loop和Do While搭配形成循环语句。