| ) SetPosition k Exit For End If End Select Next k End Sub Private Sub SetPosition(pos As Integer) Text1.SelStart=pos-1 Text.SelLength= [14] Text1. [15] End Sub 2007年9月全国计算机等级考试二级VB参考答案 一、选择题 1-5 DBCAA 6-10 CCABA 11-15 BDCCA 16-20 BAACA 21-25 DBABC 26-30 BDCDB 31-35 DCDBA 二、填空题 1、无歧义性 2、白盒测试 3、顺序 4、ACBDFEHGP 5、实体集 6、Combol1.List(Combol1.ListIndex) 7、pos 8、HScroll1.value 9、CD1.FileName 10、ch 11、10 12、x 13、Text1.Text 14、1 15、SetFocus |
相关文章: