首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框。在组合框的文本输入区输入字符串并按回车后,检查该字符串是否在组合框中已存在。若不存在,则将其添加到组合框中。相关的事件过程如下: Private Sub Combo1_KeyPress(KeyAscii As Int
窗体上有一个名称为Combo1的组合框。在组合框的文本输入区输入字符串并按回车后,检查该字符串是否在组合框中已存在。若不存在,则将其添加到组合框中。相关的事件过程如下: Private Sub Combo1_KeyPress(KeyAscii As Int
admin
2020-02-27
94
问题
窗体上有一个名称为Combo1的组合框。在组合框的文本输入区输入字符串并按回车后,检查该字符串是否在组合框中已存在。若不存在,则将其添加到组合框中。相关的事件过程如下:
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim flag As Boolean
If KeyAscii = 13 Then
flag = False
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(i) Then
flag = True
Exit For
End If
Next i
If flag = False Then
Combo1.AddItem Combo1.Text
End If
End If
End Sub
对于上述事件过程,以下叙述中错误的是
选项
A、程序有错,不应该使用Exit For
B、flag为True时,表明输入的字符串已存在
C、参数KeyAscii表示输入字符的ASCII码
D、flag = False的含义是组合框中没有与输入字符串相同的表项
答案
A
解析
判断是否回车,可通过判断当前按键ASCII码是否为13, C选项表述正确。通过For循环,利用 If Combo1.Text = Combo1.List(i)语句,依次将输入的文本与组合框中的选项逐一比较,若输入文本和其中一个选项相同,那么flag赋值为True,表明该字符串在组合框中已存在。如果For循环完毕,flag仍为False,意味着字符串在组合框中不存在,则通过Combo1.AddItem Combo1.Text语句将其添加到组合框中。这个程序中,For循环是必要的,A选项表述错误,B,D选项表述正确。
转载请注明原文地址:https://kaotiyun.com/show/vHTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序运行时,若输入395,则输出结果是()。PrivateSubCmd1_Click()Dima%a=InputBox("请输入一个3位整数")PrintaMod10,a\100,(aMod100)\10EndSub
有如下函数过程:Functionfl(xAsInteger)AsLongDimSAsLongDimiAsIntegerS=0Fori=1ToxS=S+iNext
某人在窗体模块中定义了如下自定义类型:TypeRecnumAsIntegernameAsStringEndType但发现程序不能运行,关于这一问题,下面叙述中正确的是
在排序过程中,每一次数据元素的移动会产生新的逆序的排序方法是()。
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是( )。
在关系模型中,每一个二维表称为一个
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
A、选择B、投影C、交D、并D关系T中的元素与关系R和关系S中不同元素的总和,因此为并操作。
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是( )。
设某二叉树的后序序列为CBA,中序序列为ABC,则该二叉树的前序序列为
随机试题
手工研磨圆柱面时,两手握住扳杠两端上拉、下推,不左右旋转。()
副根管是指
火器伤清创后,伤口缝合应在清创后
企业重大经济活动,从内容上看来,主要包括()。
生态系统的基本功能是由()来实现的。
2013年末我国二级及以上公路里程共:
下列关于我国人大代表选举的表述,不正确的是:
WhowontheWorldCup1994footballgame?WhathappenedattheUnitedNations?Howdidthecriticslikethenewplay?【C1】______a
GiantStructuresItisanimpossibletasktoselectthemostamazingwondersofthemodernworldsinceeveryyearmore【C1】__
A—profitmarginG—procedureofarbitrationB—trademarkH—riskofcontaminationC—seaworthyexportpackingI—settlementonaccou
最新回复
(
0
)