首页 > 大学专科> 电子信息

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

题目内容（请给出正确答案）

[主观题]

在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名

称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示：

在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【】、【】和【】处将程序补充完整。 Private Sub Combo1【】(Key Ascii As Integer) If Key Ascii=13 Then For i=0 TO Comb01.ListCount-1 If Combo1.Text=【】Then LabelCaption=“输入项已在组合框中” Exit Sub End If Next i LabelCaption=“已成功添加输入项” Combo1.【】Combo1.Text End If End Sub

答案

查看答案

发布时间：2020-09-07

更多“在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名”相关的问题

第1题

在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption，属性分别为“城市

名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”，如图16-3所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【】、【】和【】处将程序补充完整。 Private Sub Comhel【】(KeyAscii As Integer) If KeyAseii=13 Then For i=0 To Combol. ListCount-1 If Combol. Text=【】Then LabelCaption="输入项已在组合框中" Exit Sub End If Next i LabelCaption="已成功添加输入项" Combol.【】Combol. Text End If End Sub

在窗体上画一个名称为Combol的组合框，画两个名称分别为Label1和Label2及Caption

点击查看答案

第2题

在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属性分别为“城市名

称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”，如图20-3所示；如果存在，则在Labe12中给出提示“输入项已在组合框中”。请在【】、【】和【】处将程序补充完整。

在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11和Labe12及Caption属 Private Sub Combo1【】(KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1；ListCount-1 If Combo1．Text=【】Then LabeCaption="输入项已在组合框中" Exit Sub End If Next i LabeCaption="已成功添加输入项" Combo1．【】Combo1．Text End If End Sub

点击查看答案

第3题

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。（1) 在名称为Form1的窗体上画一个名称为H1

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

(1) 在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图19-1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm

(2) 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个子菜单项，名称分别为Cooy和Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把 Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图19-2所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

注意：下面出现的“考生文件夹”均为c：wexam25160001。（1) 在名称为Form1的

点击查看答案

第4题

在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编如下事件过程：Privat

A.1

B.5

C.27

D.45

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【】() Command1.Enabled=True End Sub

点击查看答案

第6题

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress（KeyAscii

在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(KeyAscii As Integer) …… End Sub 假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是______。

A．单击鼠标

B．双击文本框

C．鼠标滑过文本框

D．按下键盘上的某个键

点击查看答案

第7题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubcommand1clickIfx＞0Theny=x^2ElseEndIfPrintyEndsub程序运行后，单击命令按钮，窗体上显示的是（)。

A.-5

B.25

C.-1

D.1

点击查看答案

第8题

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，然后编写如下几个事件过程：

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程： Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval=【】 End Sub Private Sub Form_Click() Timer1.Enabled=【】 End Sub Private Sub Timer1_Timer() Label1.Caption=【】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，然后编写如下几个事件过程

点击查看答案

第9题

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，如图16－11所示，然后编写如下几个

在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，如图16-11所示，然后编写如下几个事件过程： Private Sub Form_Load() Timer1. Enabled=False Timer1. Interval=【】 End Sub Private Sub Form_Cliek() Timer1. Enabled=【】 End Sub Private Sub Timer1_Timer() Label1. Caption=【】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟改变一次。请填空。

在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，如图16－11所示，然后

点击查看答案

第10题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Comma

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。

A．4

B．5

C．6

D．7

点击查看答案

账号：尚未登录

登录没有账号？去注册

购买搜题卡

考试指南全部 >

期货从业人员资格考试科目基金从业资格证书查询入口官网基金从业资格证工资大概有多少 2024年银行初级职业资格考试考几科 2024年证券从业资格考试大纲证券从业资格证官网报名入口期货从业资格证可以做期货吗基金从业资格证考试可以只报一科吗初级银行从业考试报名时间 2024年证券从业考试哪科简单一点？

下载APP

关注公众号

TOP