单选

如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如: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)

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
参考答案
您可能感兴趣的试题

有弹出式菜单的结构如右表,程序运行时,单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是(  )。

  • A.Private Sub Vorm Click(  )    PopupMenu cut
  • End Sub
  • B.Private Sub Command1 Click(  )    PopupMenu edit
  • End Sub
  • C.Private Sub Form. Click(  )    PopupMenu edit
  • End Sub
  • D.Private Sub Form. Click(  )    PopupMenu cut    PopupMenu paste
  • End Sub

下述关于数据库系统的叙述中,正确的是(  )。

  • A.数据库系统减少了数据冗余
  • B.数据库系统避免了一切冗余
  • C.数据库系统中数据的一致性是指数据类型一致
  • D.数据库系统比文件系统能管理更多的数据
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服