2007年9月全国计算机等级考试二级VB笔试试卷(2)

（14）执行以下程序后输出的是

Private Sub Command1_Click()

Ch$=”AABCDEFGH”

Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)

End Sub

A)CDEFGH    B)ABCD    C)FG    D)AB

（15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是

A)Prvate Sub List1_Click()            B)Private Sub Form1_Click()

Print List1.Text                       Print List1.Text

End Sub                            End Sub

C)Private Sub List1_Click()           D)Private Sub Form1_Click()

Print Form1.Text                    List1.Print List1.Text

End Sub                           End Sub

（16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指

A)按钮左端到窗体左端的距离   B)按钮左端到图片框左端的距离

C)按钮中心点到窗体左端的距离 D)按钮中心点到图片框左端的距离

（17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是

A)CD1.DialogTitle=“对话框窗口”       B)CD1.Action=“对话框窗口”

C)CD1.FileName=“对话框窗口”        D)CD1.Filter=“对话框窗口”

（18）在窗体上有如右图所示的控件，各控件的名称

与其标题相同，并有如下程序：

Private Sub Form_Load()

Command2.Enabled=False

Check1.Value=1

End Sub

刚运行程序时，看到的窗体外观是：

（19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是  

A)Private Sub Command1_Click()

List1.Clear

End Sub

B) Private Sub Command1_Click()

List1.Clear List1.ListIndex

End Sub

C) Private Sub Command1_Click()

List1.Removeltem List1.ListIndex

End Sub

D) Private Sub Command1_Click()

List1.Removeltem

End Sub

（20）某人设计了如下程序用来计算并输出7!（7的阶乘）

Private Sub Command1_Click()

t=0

For k=7 To 2 Step -1

t=t*k

Next

Print t

End Sub

执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是

A）把t=0改为t=1

B）把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1

C）把For k = 7 To 2 Stip-1改为Fork=1 To 7

D）把Next改为Nexi k

（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是

A）把所有单选按钮的Index属性改为相同值

B）把所有单选按钮的Index 属性改为连续的不同值

C）把所有单选按钮的Caption属性值改为相同

D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。