如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如:9632是降序数,而8516则不是降序数)。现编写如下程序,判断输入的正整数是否为降序数。 Private Sub Command1 Click( ) Dim n As Long Dim flag As Boolean n=InputBox("输入一个正整数") S=Trim(Str(n)) For i=2 To Len(s) If Mid(s,i-1,1)<Mid(S,i,1)Then Exit For Next i If i=Len(S)Then flag=True Else flag=False If flag Then Print n;"是降序数" Else Print n;"不是降序数" End If End Sub 运行以上程序,发现有错误,需要对给flag变量赋值的If语句进行修改。以下正确的修改是( )。
A.If i=Len(s)+1 Then flag=False Else flag=True
B.If i=Len(s)+1 Then flag=True Else flag=False
C.If i=Len(s)-1 Then flag=False Else flag=True
D.If i=Len(s)-1 Then flag=True Else flag=False
第1题:
阿拉伯数字在书写时,书写的顺序是由高位到低位,从左到右依次写出()数字。(五级、四级)
A个位数
B各数位
C各种数
D个数位
第2题:
2、学号、时间和摄氏温度这三个变量的数据类型分别属于
A.称名数据、顺序数据、等距数据
B.称名数据、顺序数据、等比数据
C.顺序数据、称名数据、等比数据
D.顺序数据、称名数据、等距数据
第3题:
编写一个函数Prime(n),从键盘中输入一个正整数n,判断该数是否为素数,如果是素数则输出“该数是素数”,如果不是,则输出“该数不是素数”。所谓素数是指一个正整数只能被1和自己整除,不能被其他任何整数整除。
第4题:
如果一个正整数的所有因子之和等于该正整数,则称这个正整数为完全数。编写程序读入n,输出不超过n的全部完全数。如6=1+2+3 28=1+2+4+7+14。
第5题:
一个n位的10进制正整数,使得删除k位(k<n)后剩余数字组成的正整数最小,用贪心算法实现该算法, 问该问题的贪心策略是什么?也就是每次要删除哪个数字?
A.每次从整数中删去数字最大者
B.每次从整数中找包含最高位的从左至右的一个最长的非递减序列,将该序列的最后一位删除
C.每次删除该整数的最高位数字
D.贪心算法不能有效解决该问题