.jpg)
Private Sub Commandl Click()
If Not Check(Comb01.Text)Then
MsgBox(”输入错误”)
E.xit Sub
E.nd If
F.or k=0 TO Comb01.ListCount一1
If Comb01.Text=Comb01.List(k)Then
MsgBox(”添加项目失败”)
E.xit Sub
E.nd If
Next k
. Comb01.AddItem Comb01.Text
MsgBox(”添加项目成功”)
E.nd Sub
Private Function Check(ch As String)As Boolean
n=Len(ch)
F.or k=1 Ton
c$=UCase(Mid(ch,k,1))
If c<“A”Or c>”Z”Then
C.beck=False
E.xit Function
E.nd If
Next k
C.heck—True
E.nd Function
程序运行时,如果在组合框的编辑区中输入“Java”,则单击命令按钮后产生的结果是
A.显示“输入错误”
B.显示“添加项目失败”
C.显示“添加项目成功”
D.没有任何显示
[单选题]以下程序运行后的窗体如图所示,其中组合框的名称是Combol,已有列表项如下图所示;命令按钮的名称是Command1。程序运行时,如果在组合框的编辑区
[单选题]肾脏正常结构如图所示,以下各部位正确的名称是()A . A—皮质,B—髓质B . C—髓质,D—肾乳头C . E—肾大盏,F—肾小盏D . C—肾乳头,H—输尿管E . H—肾盂,G—肾被膜
[单选题]肾脏正常结构如图所示,以下各部位正确的名称是()A .A—皮质,B—髓质B .C—髓质,D—肾乳头C .E—肾大盏,F—肾小盏D .C—肾乳头,H—输尿管E .H—肾盂,G—肾被膜
[单选题]窗体上有1个名称为List的列表框,其中已经输入了若干个项目(如图所示):还有2个文本框,名称分别为Text1、Text2, 1个名称为 Command1的命令按钮,并有以下程序Private Sub Command1_Click()D.im str As String, s As String, k As Integers=Text1Str=””F.or k=List1.ListCount-1 to 0 Step-1If InStr(List.List(k),s)>0 thenstr=s
[单选题]在PowerPoint2007中,如图所示的版式名称是()。A . 标题和内容B . 比较C . 两栏内容D . 内容与标题
[单选题]按如图所示创建的动态块,其动作名称是什么()。A.拉伸B.极轴拉伸C.坐标拉伸D.直接拉伸
[单选题]按照GB4728规定,如图所示图形符号代表的元件名称是()。A.避雷器;B.熔断器式开关;C.交流继电器的线圈;D.热继电器的驱动器件
[单选题]按照GB4728规定,如图所示图形符号代表的元件名称是()。A.直流电;B.接近传感器;C.接触传感器;D.接近敏感开关动合触点
[单选题]按照GB4728规定,如图所示图形符号代表的元件名称是()。A.二相插头;B.警铃;C.缓慢吸合继电器的线圈;D.缓吸和缓放继电器的线圈