单项选择题

请阅读程序：
Private Sub Form Click（　　）
  m=1
  For i=4To 1 Step-1
  Print Str(m)； m=m+1
For j=1 To i
Print"*"：
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是（　　）。

A.1**** 2***3**4*
B.4****3***2**1*
C.**** ******
D.**********
<上一题 目录 下一题>
热门 试题

单项选择题
Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。 Function Isfab(x As Integer)As Boolean Dim ii As Integer，b As Integer，C As Integer，flag As Boolean flag=False a=1：b=1 Do While x<b c=a+b a=b b=c If x=b Then flag=True Loop Isfab=flag End Function 测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是（ ）。
A.把a=b与b=C的位置互换
B.把c=a+b移到b=C之后
C.把Do While x<b改为Do While x>b
D.把If x=b Then flag=True改为If x=a Then flag True
单项选择题
设a=5，b=6，c=7，d=8，执行语句x=IIf((a>b)And(c>d)，10，20)后，X的值是（ ）。
A.10
B.20
C.30
D.200
相关试题