单项选择题

程序代码如下,当单击窗体上的Command1控件时,窗体上输出的结果是( )。
Private Sub Command1_Click()
Dim Y As Integer,I As Integer
Dim A(7)As Integer
Y=18:I=0
Do
A(I)=Y Mod 2
I=I+1
Y=Y\2
Loop Until Y<1
For j=I-1 To 0 Step-1
Print A(j);
Next j
End Sub

A.1 0 0 0
B.1 0 0 1 0
C.0 0 1 1 0
D.1 0 1 0 0
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。 Private Sub func(a As Integer) Static m As Integer m=m+a Print m; End Sub, Private Sub Command1_Click() Dim k As Integer k=4 Call func(k) Call func(k) End Sub
A.4 8
B.4 4
C.8 8
D.8 4
单项选择题
在窗体上建立一个名称为List1的列表框、一个名称为Text1文本框和一个名称为 Command1的命令按钮,如图20-12如示。程序代码如下,如果在程序运行过程中单击命令按钮,则在文本框中显示的内容是( )。 Private Sub Command1_Click() Dim i As Integer Text1.Text= For i=0 To List1.ListCount If i Mod 2=1 Then Text1.Text=Text1.Text+List1.List(i) End If Next i End Sub Private Sub Form_Load() List1.AddItem 英语 List1.AddItem 政治 List1.AddItem 物理 List1.AddItem 化学 List1.AddItem 语文 List1.AddItem 生物 End Sub
相关试题
  • 下列程序的作用是:输入一个字符串,将其逆...
  • 下列程序的功能是:单击窗体时将随机生成1...
  • 下列程序的运行结果是 【6】 。 X=9...
  • 在窗体上画一个名称为Command1的命令按钮...
  • 关系的数据操纵语言按照表达式查询方式可分...