设在窗体上有—个名称为Combol的组合框,含有5个项目,要删除最后一项,正确的语句是 ______。
A.Combo1.RemoveItem Combo1.Text
B.Combo1.Removeltem4
C.Combo1.RemoveItem Combo1.ListCount
D.Combo1.RemoveItem5
A.Combo1.RemoveItem Combo1.Text
B.Combo1.Removeltem4
C.Combo1.RemoveItem Combo1.ListCount
D.Combo1.RemoveItem5
(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
程序的功能是 : 在组合框的编辑区中输入文本后按回车键 , 则检查列表中有无与此文本相同的项目 , 若有 ,则把编辑区中的文本删除,否则把编辑区中文本添加到列表的尾部。请填空。
设窗体上有—个名称为Combo1的组合框,并有以下程序:
Privale Sub Combol_ KeyPress(KeyAscii As Integer)
If【 】 =13 Then 回车符的ASCII码是13
For k=0 To Combo1. ListCount-1
If Combo1.Text=Combol. List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1. Text<>" "Then
Combo1. AddItem 【 】
End If
End If
End Sub
程序的功能是:在组合框的编辑区中输入文本后按回车键,则检查列表中有无与此文本相同的项目,若有,则把编辑区中的文本删除,否则把编辑区中文本添加到列表的尾部。请填空。
窗体上有一个名称为Cbl的组合框,程序运行后,为了输出选中的列表项,应使用的语句是
A.Print Cbl.Selected
B.Print Cbl.List(Cbl.ListIndex)
C.Print Cbl.Selected.Text
D.Print Cbl.List(ListIndex)
窗体上有一个名称为Cb1的组合框,程序运行后,为了输出选中的列表项,应使用的语句是()。
A.Print Cb1.Selected
B.Print Cb1.List(Cbl.LisfIndex)
C.Print Cb1.Selected.Text
D.Print Cb1.List(ListIndex)
设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程: Private Sub Command1_Click() Static b As Variant b=Array(1,3,5,7,9) …… End Sub 此过程的功能是把数组b中的5个数逆序存放(即排列为9,7,5,3,1)。为实现此功能,省略号处的程序段应该是
A.Fori=0 T0 5-1\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
B.Fori=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
C.Fori=0 T0 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
D.For i=l To 5\2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next
Private Sub Commandl Click()
If Not Check(Comb01.Text)Then
MsgBox(”输入错误”)
Exit Sub
End If
For k=0 TO Comb01.ListCount一1
If Comb01.Text=Comb01.List(k)Then
MsgBox(”添加项目失败”)
Exit Sub
End If
Next k
. Comb01.AddItem Comb01.Text
MsgBox(”添加项目成功”)
End Sub
Private Function Check(ch As String)As Boolean
n=Len(ch)
For k=1 Ton
c$=UCase(Mid(ch,k,1))
If c<“A”Or c>”Z”Then
Cbeck=False
Exit Function
End If
Next k
Check—True
End Function
程序运行时,如果在组合框的编辑区中输入“Java”,则单击命令按钮后产生的结果是
A.显示“输入错误”
B.显示“添加项目失败”
C.显示“添加项目成功”
D.没有任何显示
设在窗体上有个文本框,然后编写如下的事件过程
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后,如果按【Shift+F2】,则在文本框中显示得是
A.Alt+F2
B.BBBBB
C.随机出几个数
D.文本框平均内容无变化
设在窗体上有个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)>0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后,如果按“Shift+F2”组合键,则在文本框中显示的是
A.Alt+F2
B.BBBBB
C.随机出几个数
D.文本框内容无变化
注意,保存时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。
2.在考生文件夹中有工程文件sjt4.vbp,其中包含窗体Form1,该程序是不完整的。请在有?号的地方填入正确内容,然后删除?及所有注释符(即'号),但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下:
在窗体上有三个名称分别为Text1、Text2、Text3的文本框,一个名称为Command1,标题
为“计算”的命令按钮(如图2—2所示)。要求程序运行后,在Text1和Text2中分别输入两个整数,单击“计算”按钮后,可把两个整数之间的所有整数(含着两个整数)累加起来并在Text3中显示出来。注意:保存时必须放在考生文件夹下,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。