题目

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如92、4772是降序数，而7524不是降序数）。现编写VB程序实现如下功能：在文本框Text1中输入一个正整数，单击“判断”按钮 Command1，在标签Label2中显示出该数是不是降序数。程序运行界面如图所示。 （1） 代码Private Sub Command1_Click( )中 Command1是。（单选，填字母：A .对象名/B .事件/C .事件处理过程/D .方法）。 （2） 请完善下列程序代码： Private Sub Command1_Click( ) 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】A 【1】s = Text1.Text【2】If Mid(s, i-1, 1) < Mid(s, i, 1) Then flag = False【3】Loop

查看本题答案和解析