单项选择题

在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command1 Click() 　　 Dim a 　　 a=Array(1，2，3，4) 　　 i=3：j=1 　　 Do While>=0 　　 s=s+a i)*j 　　 i=i-1 　　 j=j*1c 　　 Loop 　　 Print S 　　End Sub 　　运行上面的程序，单击命令按钮，则输出结果是( )。

A．4321
B．123
C．234
D．1234
<上一题 目录 下一题>
热门 试题

单项选择题
下列可以打开随机文件的语句是( )。
A．Open"file 1．dat"For Input As#1
B．Open"file1．dat"For Append As#1
C．Open"file1．dat"For Output As#1
D．Open"file1．dat"For Randow As#1 Len=20
单项选择题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Coinmand1 Click() Dim a$，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．ABCD123456
C．D6C584A321
D．A1B2C3D456
相关试题