题目内容

在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim aS,b$,c$,k%
a=”ABCD”
b=”123456”
c=””
k=1
Do While k<=Len(a) Or k<=Len(b)
If k<=Len(a)Then
c=c&Mid(a,k,1)
End If
If k<=Len(b)Then
c=c&Mid(a,k,1)
End If
k=k+1
Loop
Print c
End Sub
运行程序,单击命令按钮,输出结果是()。

A. 123456ABCD
B. ABCDl23456
C. D6C584A321
D. A182C3D456

查看答案
更多问题

下列可以打开随机文件的语句是()。

A. Open”filel.dat”For Input As#1
B. Open”filel.dat”For Append As#1
C. Open”filel.dat”For Output As#1
D. Open”filel.dat”For Randow As#1 Len=20

Fibonacci数列的规律是:前2个数为1,从第3个数开始,每个数是它前2个数之和,即1,1,2,3,5,8,13,2l,34,55,89,…某人编写了下面的函数,判断大于1的整数X是否是Fibonacci数列中的某个数,若是,则返回True,否则返回False。
Function Isfab(x As Integer)As Boolean
Dim a 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

请阅读程序:
Private Sub Form_Click()
m=1
For i=4 To 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. * ** *** ****

下列关于投资者投资偏好的说法,不正确的是()。

A. 综合理财规划
B. 投资规划
C. 投资产品分析
D. 财务策划

答案查题题库