)
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

相关文章:

  • 2021-10-01
  • 2021-08-14
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2021-07-01
猜你喜欢
  • 2022-02-23
  • 2021-12-18
  • 2021-05-27
  • 2021-11-23
  • 2021-08-09
  • 2022-02-01
相关资源
相似解决方案