单项选择题

在窗体上建立一个名称为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

A．政治化学生物
B．无显示
C．英语物理语文
D．生物
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Option Base 1 Private Sub fun(a()As Integer,n As Integer) ReDim Preserve a(n) a(6)=a(1)+a(2)+a(3)+a(4)+a(5) n=3 End Sub Private Sub Command1_Click() Dim arr1()As Integer，k As Integer ReDim arr1(5) For i=1 To 5 arr1(i)=i Next i k=6 Call fun(arr1，k) Print arr1(1)；arr1(k)；arr1(6) End Sub
A．1 3 6
B．1 3 0
C．1 3 15
D．出错
单项选择题
程序代码如下，当单击窗体上的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
相关试题