首页 > 计算机 > 计算机考试 正文

[问答题] 以下程序运行后的窗体如图所示。其中组合框的名称是Combo1,已有列表框如图所示;命令按钮的名称是Command1。 Private Sub Command 1_Click() If

时间:2021-07-20 17:24:33 解答: 72 次

[问答题] 以下程序运行后的窗体如图所示。其中组合框的名称是Combo1,已有列表框如图所示;命令按钮的名称是Command1。

Private Sub Command 1_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”,则单击命令按钮后产生的结果是( )。A 显示“输入错误”


B

正确答案:

B

参考解析:

本题程序的功能是:向组合框的文本输入区输入一个单词,若其中含有非字母字符则利用消息框输出“输入错误”,若其已经在组合框的列表项中存在则输出“添加项目失败”,否则将其加入到组合框的列表项中并显示“添加项目成功”。

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-02 03:50:14

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-02 03:50:14

←请使用微信扫码支付