问题 单项选择题

在窗体上有一个名称为Check1的复选框数组(含4个复选框),还有一个名称为Text1的文本框,初始内容为空。程序运行时,单击任何复选框,则把所有选中的复选框后面的方字罗列在文本框中(如下图所示)。下面能实现此功能的事件过程是( )

A.Private Sub Check1_Click(Index As Integer)
Text1.Text=" "
For k=0 To 3

If Checkl(k).value=1 Then

Text1.Text=Text1.Text & Cheek1(k).Caption &" "双引号中是空格

End If
Next k
End Sub
B.Private Sub Check1_Click(Index As Integer)
For k=0 To 3

If Check1(k).Value=1 Then

Text1.Text=Text1.Text & Check1(k).Caption &" "双引号中是空格

End If
Next k
End Sub
C.Private Sub Check1_Click(Index As Integer)
Text1.Text=" "
For k=0 To 3

If Checkl(k).Value=1 Then

Text1.Text=Text1.Text & Check1(Index).Caption &" "双引号中是空格

End If
Next k
End Sub
D.Private Sub Check1_Click(Index As Integer)
Text1.Text=" "
For k=0 To 3

If Cheekl(k).Value=1 Then

Text1.Text=Text1.Text & Check1(k).Caption & " "双引号中是空格

Exit For

End If
Next k
End Sub

答案

参考答案:A

解析: Text1.Text表示文本框的文本内容,Check1(k).value=1表示复选框被选中,For循环遍历所有复选框,若Check1(k).value=1。则Text1.Text=Text1.Text & Check1(k).Caption &" ",将Check1(k)的Caption即复选框后的文字添加到Text1中,每次添加文字后文字之间都由空格隔开。

单项选择题
开放性试题

2008年8月8日晚8时,承载着海内外中华儿女百年梦想的第29届奥运会,在北京国家体育场“鸟巢”揭开了她那神秘的盖头,恢弘壮观的气势,博大精深的文化,奇妙独特的构想,多彩艳丽的场景,震撼了中国,也震惊了世界。开幕式的文艺表演向全世界讲述了感动世界的中国故事。巨幅中国画卷,是承载

5000年灿烂文化的最佳载体。展示中华文化的价值理念,突出中华文化的和谐理念,世界给了我们16天,我们给了世界5000年!如果你所在的班级要开展一次“弘扬中 * * 文化,加强校园文化建设”的主题活动,请你完成以下内容:

(1)拟两句宣传民族文化的口号。

                                                                                                                                                            

(2)围绕上述活动主题设计两种切实可行的活动方式。 

                                                                                                                                                            

(3)请就如何加强你所在学校的校园文化建设,提出自己的意见。