单项选择题

如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如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．Ifi=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=InputBox("Today","Tomorrow","Yesterday”,,,"Day before yesterday",5) 将显示一个对话框，在对话框的输入区中显示的信息是______。

编写如下程序： Private Sub Command1_Click() Dim a(3, 3) As Integer, s As Integer For i=1 To 3 For j=1 To 3 a(i, j)=i*j+i Next j Next i s=0 For i=1 To 3 s=s+a(i, 4-i) Next i Print s End Sub 程序运行后，单击命令按钮Command1，输出结果为

下列程序执行后，其输出结果为 ____ 。 Dim a(5) For i=0 To 4 a(i)=i+1 m=i+1 If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i) If i=2 Then a(i-1)=a(m-3) a(4)=i Print a(i); Next i

有如下程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

下列程序的执行结果为______。

下列说法正确的是______。

对于如下图所示的二叉树，其后序遍历序列是________。

在一个工程的窗体中有如下代码： Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该工程的标准模块的声明部分有如下代码： Public a As Integer Private b As Integer 关于上述代码，以下叙述中错误的是______。

关于水平滚动条，如下叙述中错误的是______。

在E-R图中，用来表示实体联系的图形是______。

在软件设计中，不属于过程设计工具的是______。

下列与拖放操作无关的是

为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是

如果在C盘当前文件夹下已存在名为StuData.dar的顺序文件，那么执行语句Open“C: StuData.dar” For Append As #1之后将______ 。

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyaseii as integer) …… End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是

在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Dim n%,b,t t=1:b=1:n=2 Do b=b*n t=t+b n=n+1 Loop Until n＞9 Print t End Sub 此程序计算并输出一个表达式的值，该表达式是______。

求1!+2!+……+10!的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer, y As Long For i=1 To 10 ______ Next Print y End Sub 为实现功能要求，程序的括号中应该填入的内容是

如果x为整数且|x|＞=100，则打印“OK”，否则打印“Error”，表示这个条件的单行格式If语句是______。

阅读程序： Private Sub Form_Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是______。

下列程序段的执行结果为 ______。 X=5 Y=-20 If Not X＞0 Then X=Y-3 Else Y＝X+3 Print X-Y；Y-X

在数据管理技术发展过程中，文件系统与数据库系统的主要区别是数据库系统具有 ______。

算法的有穷性是指 ____ 。

下面不属于软件需求分析阶段主要工作的是______。

设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是

以下叙述中错误的是______。

以下关于图片框控件的说法中，错误的是______。

执行如下语句：
a=InputBox("Today","Tomorrow","Yesterday”,,,"Day before yesterday",5)
将显示一个对话框，在对话框的输入区中显示的信息是______。

编写如下程序：
Private Sub Command1_Click()
Dim a(3, 3) As Integer, s As Integer
For i=1 To 3
For j=1 To 3
a(i, j)=i*j+i
Next j
Next i
s=0
For i=1 To 3
s=s+a(i, 4-i)
Next i
Print s
End Sub
程序运行后，单击命令按钮Command1，输出结果为

下列程序执行后，其输出结果为 ____ 。
Dim a(5)
For i=0 To 4
a(i)=i+1
m=i+1
If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i)
If i=2 Then a(i-1)=a(m-3)
a(4)=i
Print a(i);
Next i

有如下程序：
Option Base 1
Private Sub Form Click()
Dim arr，Sum
Sum =0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为

在一个工程的窗体中有如下代码：
Public x As Integer
Private Sub Form_Load()
Dim y As Integer
End Sub
在该工程的标准模块的声明部分有如下代码：
Public a As Integer
Private b As Integer
关于上述代码，以下叙述中错误的是______。

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：
Private Sub TxtA_KeyPress(keyaseii as integer)
……
End Sub
若焦点位于文本框中，则能够触发KeyPress事件的操作是

在窗体上画一个名称为Command1的命令按钮，并编写以下程序：
Private Sub Command1_Click()
Dim n%,b,t
t=1:b=1:n=2
Do
b=b*n
t=t+b
n=n+1
Loop Until n＞9
Print t
End Sub
此程序计算并输出一个表达式的值，该表达式是______。

求1!+2!+……+10!的程序如下：
Private Function s(x As Integer)
f=1
For i=1 To x
f=f*i
Next
s=f
End Function
Private Sub Command1_Click()
Dim i As Integer, y As Long
For i=1 To 10
______
Next
Print y
End Sub
为实现功能要求，程序的括号中应该填入的内容是

阅读程序：
Private Sub Form_Click()
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后，单击窗体，输出结果是______。

下列程序段的执行结果为 ______。
X=5
Y=-20
If Not X＞0 Then X=Y-3 Else Y＝X+3
Print X-Y；Y-X