题目
(7 )设窗体上有一个名称为 Combol 的组合框,并有以下程序:
Private Sub Combol_KeyPress(KeyAscii As Integer)
If 【 9 】 =13 Then ‘ 回车符的 ASCII 码是 13
For k=0 To Combol.ListCount-1
If Combol.Text= Combol.List(k) Then
Combol.Text= ” ”
Exit For
End If
Next k
If Combol.Text <> “” Then
Combol.AddItem 【 10 】
End If
End If
End Sub
程序的功能是 : 在组合框的编辑区中输入文本后按回车键 , 则检查列表中有无与此文本相同的项目 , 若有 ,则把编辑区中的文本删除,否则把编辑区中文本添加到列表的尾部。请填空。
第1题
Dim [7] As Integer
Private Sub Form_Load()
pos=HScroIII.Value
End Sub
Private Sub HScroIII_Change()
Print [8] -pos
pos=HScroIII.Value
End Sub
第2题
A.A.k
B.B.Checkl.Caption
C.C.Checkl(k)
D.D.Checkl(Index).Caption
第3题
A.text1.maxlength=0
B.text1.enabled=flase
C.text1.visible=flase
D.text1.width=0
第4题
设窗体上有一个名称为HSI的水平滚动条,如果执行了语句:HS1.Value=(HS1.Max·HS1.Min)2+HS1.Min,则()。
A.滚动块处于最左端
B.滚动块处于最右端
C.滚动块处于中间位置
D.滚动块可能处于任何位置。具体位置取决于Max、Min属性的值
第5题
A.Text1.Maxength=0
B.Text1.Enabled=False
C.Text1.Visible=False
D.Text1.Width=0
第6题
(15)设窗体上有一个名称为HS1的水平滚动条,如果执行了语句:
HS 1.Value=(HS 1.Max-HS l .Min)/2+HS1.Min则:
A)滚动块处于最左端
B)滚动块处于最右端
C) 滚动块处于中间位置
D) 滚动块可能处于任何位置,具体位置取决于Max、Min属性的值
第7题
A.Text1. MaxLength=0
B.Text1. Enabled=False
C.Text1. Visible=False
D.Text1. Width=0
第8题
A.Textl.MaxLength=0
B.Textl.Enabled=False
C.Textl.Visible=False
D.Textl.Width=0
第9题
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1_ 【 7 】 ()
Command1.Enabled = True
End Sub
第10题
A.Text1.MaxLength=0
B.Text1.Enabled=Flase
C.Text1.Visible=Flase
D.Text1.Width=0
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!