单选题
以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表框如图所示；命令按钮的名称是Command1。
以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表框如图所示；命令按钮的名称是Command1。
Private Sub Command1_Click()
If Not Check(Combo1.Text) Then
MsgBox ("输入错误")
Exit Sub
End If
For k = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(k) Then
MsgBox ("添加项目失败")
Exit Sub
End If
Next k
Combo1.AddItem Combo1.Text
MsgBox ("添加项目成功")
End Sub
Private Function Check(ch As String) As Boolean
n = Len(ch)
For k = 1 To n
c$ = UCase(Mid(ch, k, 1))
If c < "A" Or c > "Z" Then
Check = False
Exit Function
End If
Next k
Check = True
End Function
程序运行时。如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。
发布于 2022-05-11 10:17:48
登录后免费查看答案
关注者
0
被浏览
15
1 个回答
推荐阅读
-
以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。 Private，Sub Command1_Click（ ）If Not Check(Combo1．Text)ThenMsgBox("输入错误")Exit SubEnd IfFor k=0 To Comb01．ListCount-1If Comb01．Text=Combo1．List(k)ThenMsgBOX("添加项目失败")Exit SubEnd IfNext kCornbol．AddItem Combo1．TextMsgBOX("添加项目成功")End SubPrivate Function Check(ch As String)As Booleann=Len(ch)For k=1 To nc$=Ucace(Mid(ch，k，1))If c<"A"Or c>"Z"ThenCheck=FalseExit FunctionEnd IfNext kCheck=TrueEnd Function程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。
2022-05-11 关注 0 浏览10 1答案
-
设窗体上有一个名称为Combo1的组合框，并有以下程序：Private Sub Combol_KeyPress (KeyAscii As Integer)If ______ =13 Then ' 回车符的ASCII码是13For k=0 To Combo1.ListCount-1If Combo1.Text=Combo1.List(k) ThenCombo1.Text = ""Exit ForEnd IfNext kIf Combo1.Text <> "" ThenCombo1.AddItem ______End IfEnd IfEnd Sub程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。
2022-05-11 关注 0 浏览12 1答案
-
Private Sub Command1_Click() Text1 = Combo1.Text' Command2. ? = TrueEnd SubPrivate Sub Command2_Click()' Combo1.List( ? ) = Text1 Text1 = "" Command2.Enabled = FalseEnd SubPrivate Sub Command3_Click()' ? Text1End Sub
2022-05-11 关注 0 浏览30 1答案
-
下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是（ ）。Private Sub Command1Click（ ）Dim cout(25)As Integer，ch As Stringch=Ucase(Int,utBox("请输入字母字符串"))For k=1 To i en(ch)．n=ASC(Mid(ch，k，1))-Asc("A")If n>=0 Thencount(n)=count(n)+1End IfNext km=count(0)For k=1 To 25If m<COUNT(K)THENm=count(k)End IfNext kPrint mEnd Sub
2022-05-11 关注 0 浏览13 1答案
-
下列程序的输出结果是（ ）。Private Sub Command1_Click( )ch＄="ABCDEF"proc ch∶Print chEnd SubPrivate Sub proc(ch As String)s=“ “For k=Len(ch) To 1 Step -1s=s&Mid(ch,k,1)Next kch=sEnd Sub
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别为 " 城市名称 " 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 " 已成功添加新输入页。 " ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 " 输入项已在组合框中。 " 。请填空。 Private Sub Combol_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenFor i=0 To Combo1.ListCount-1If Combo1.Text= ______ ThenLabel2.Capti_dj=" 输入项已在组合框中。 "Exit SubEnd IfNext iLabel2.Capti_dj=" 已成功添加新输入项。 "Combo1.______ Combo1.TextEnd IfEnd Sub
2022-05-11 关注 0 浏览11 1答案
-
下面程序运行时，若输入“visual basic programming”，则在窗体上输出的是private sub comand1_click()dim count(25) as integer, ch as stringch=ucase(inputbox("请输入字母字符串"))for k=1 to len(ch)n=asc(mid(ch,k,1))-asc("a")if n>=0 thencount(n)=count(n)+ 1end ifnext km=count(0)for k=1 to 25if mm=count(k)end ifnext kprint mend sub
2022-05-11 关注 0 浏览17 1答案
-
窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。如单击图1中的“重庆”，则与“北京”交换，得到图 2的结果。以下是可实现此功能的程序，请填空。 Private Sub Combo1_Click( )Dim temptemp=Combo1.Text______ =Combo1.List(0)Combo1.List(0)=tempEnd Sub
2022-05-11 关注 0 浏览17 1答案
-
窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2, 1个名称为 Command1的命令按钮，并有以下程序 Private Sub Command1_Click()Dim str As String, s As String, k As Integers=Text1Str=””For k=List1.ListCount-1 to 0 Step-1If InStr(List.List(k),s)>0 thenstr=str&List.List(k)&” ”End IfNext kIf str=””ThenText2=”没有匹配的项目”ElseText2=strEnd IfEnd Sub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是( )
2022-05-11 关注 0 浏览15 1答案
-
下面程序的输出结果是（ ）。Private Sub Co mmand1＿Click（）ch$＝＂ABCDEF＂proc ch Print chEnd SubPrivate Sub proc（ch As Stri ng）S＝＂＂For k ＝Len（ch）To 1Step －1s ＝s ＆Mid（ch ，k ，1）Next kch ＝sEnd Sub
2022-05-11 关注 0 浏览13 1答案
