搜题
网友您好,请在下方输入框内输入要搜索的题目:
搜题
题目内容 (请给出正确答案)
提问人:网友dwj2007 发布时间:2022-01-06
[主观题]

在窗体上画一个名称为 Combo1 的组合框,然后画两个名称分别为 Label1 、 Label2 ,标题分别

为 \" 城市名称 \" 和空白的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在 Label2 中给出提示 \" 已成功添加新输入页。 \" ,如图所示。如果输入的项目已存在,则在 Label2 中给出提示 \" 输入项已在组合框中。 \" 。请填空。

Private Sub Combol_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

For i=0 To Combo1  ListCount-1

If Combo1  Text= 【 12 】 Then

Label2  Caption=" 输入项已在组合框中。 "

Exit Sub

End If

Next i

Label2  Caption=" 已成功添加新输入项。 "

Combo1 ______ Combo1 Text

End If

End Sub

简答题官方参考答案 (由简答题聘请的专业题库老师提供的解答)
查看官方参考答案
更多“在窗体上画一个名称为 Combo1 的组合框,然后画两个名称分别为 Label1 、 Label2 ,标题分别”相关的问题
第1题
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程: Private Sub Command1_Click()   n = Text1.Text   Select Case n    Case 1 To 20:    x = 10    Case 2, 4, 6:    x = 20    Case Is < 10:    x = 30    Case 10:    x = 40   End Select   Text2.Text = x End Sub 程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是。 A. 10     B. 20    C. 30    D. 40
点击查看答案
第2题
以下叙述中正确的是()。

A.窗体的 Name 属性指定窗体的名称,用来标识一个窗体

B.窗体的 Name 属性值是显示在窗体标题栏中文本

C.可以在运行期间改变窗体的 Name 属性的值

D.窗体的 Name 属性值可以为空

点击查看答案
第3题
以下叙述中错误的是()。

A.打开一个工程文件时,系统自动装入与该工程有关的窗体文件

B.保存 Visual Basic 程序时,应分别保存窗体文件及工程文件

C.Visual Basic 应用程序只能以解释方式执行

D.窗体文件包含该窗体及其控件的属性

点击查看答案
第4题
在窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Label1),程序运行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容,以下可以实现上述操作的事件过程是()。

A.Private Sub Text1_Click()

Label1.Caption=Textl.Text

End Sub

B.Private Sub Text1_Change()

Label1.Caption=Text1.Text

End Sub

C.Private Sub Label1_Ctrange()

Label1.Caption=Text1.Text

End Sub

D.Private Sub Label1_Click()

Label1.Caption=Text1.Text

End Sub

点击查看答案
第5题
在窗体上面画一个命令按钮和一个标签,其名称分别为 Command1和 Label1,然后编写如下事件过程:

Private Sub Commandl_Click()

Counter=0

For i=1 To 4

For j=6 To 1 Step -2

Counter=Counter+1

Next j

Next i

Label1.Caption=Str(Counter)

End Sub

程序运行后,单击命令按钮,标签中显示的内容是()。 A.11

B.12

C.16

D.20

点击查看答案
第6题
在窗体上画一个命令按钮,名称为 Command1, 然后编写如下代码:

Option Base 0

Private Sub Command1_Click()

Dim A (4)As Integer,B(4) As Integer

For k=0 To 2

A(k+1)=InputBox(“ 请输入一个整数 ”)

B(3-k)=A(k+1)

Next k

Print B(k)

End Sub

程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输入结果为()。 A.0

B.2

C.3

D.4

点击查看答案
第7题
设有语句: Open \"d:\\Text.txt\" For OutputAs#1 ,以下叙述中错误的是()

A.若 d 盘根目录下无 Text.txt 文件,则该语句创建此文件

B.用该语句建立的文件的文件号为 1

C.该语句打开 d 盘根目录下一个已存在的文件 Text.txt ,之后就可以从文件中读取信息

D.执行该语句后,就可以通过 Print# 语句向文件 Text.txt 中写入信息

点击查看答案
第8题
以下叙述中错误的是()。

A.顺序文件中的数据只能按顺序读写

B.对同一个文件,可以用不同的方式和不同的文件号打开

C.执行Close 语句,可将文件缓冲区中的数据写到文件中

D.随机文件中各记录的长度是随机的

点击查看答案
第9题
下列程序的执行结果为()。 Private Sub Command1_Click() Dim s1 As String,s2 As String s1="abcdef" Call Invert(s1,s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String,ystr As String) Dim tempstr As String i=Len(xstr) Do While i>=1 tempstr=tempstr+Mid(xstr,i,1) i=i-1 Loop ystr=tempstr End Sub

A.fedcba

B.abcdef

C.afbecd

D.defabc

点击查看答案
第10题
单击窗体时,下列程序段的执行结果为()。 Private Sub Form_Crick() Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End Sub

A.在窗体上画一斜线,从斜线终点处开始打印两行符号

B.在窗体上画一斜线,从斜线起点处开始打印两行符号

C.在窗体上画一斜线,从窗体左上角开始打印两行符号

D.从窗体左上角开始打印两行符号,从符号结束处开始画一斜线

点击查看答案
重要提示: 请勿将账号共享给其他人使用,违者账号将被封禁!
查看《购买须知》>>>
重置密码
账号:
旧密码:
新密码:
确认密码:
确认修改
购买搜题卡查看答案
购买前请仔细阅读《购买须知》
请选择支付方式
微信支付
支付宝支付
点击支付即表示你同意并接受《服务协议》《购买须知》
立即支付
搜题卡使用说明

1. 搜题次数扣减规则:

功能 扣减规则
基础费
(查看答案)
加收费
(AI功能)
文字搜题、查看答案 1/每题 0/每次
语音搜题、查看答案 1/每题 2/每次
单题拍照识别、查看答案 1/每题 2/每次
整页拍照识别、查看答案 1/每题 5/每次

备注:网站、APP、小程序均支持文字搜题、查看答案;语音搜题、单题拍照识别、整页拍照识别仅APP、小程序支持。

2. 使用语音搜索、拍照搜索等AI功能需安装APP(或打开微信小程序)。

3. 搜题卡过期将作废,不支持退款,请在有效期内使用完毕。

请使用微信扫码支付(元)

订单号:

遇到问题请联系在线客服

请不要关闭本页面,支付完成后请点击【支付完成】按钮
遇到问题请联系在线客服
恭喜您,购买搜题卡成功 系统为您生成的账号密码如下:
重要提示:请勿将账号共享给其他人使用,违者账号将被封禁。
发送账号到微信 保存账号查看答案
怕账号密码记不住?建议关注微信公众号绑定微信,开通微信扫码登录功能
警告:系统检测到您的账号存在安全风险

为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!

- 微信扫码关注简答题 -
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
- 微信扫码关注简答题 -
请用微信扫码测试
欢迎分享答案

为鼓励登录用户提交答案,简答题每个月将会抽取一批参与作答的用户给予奖励,具体奖励活动请关注官方微信公众号:简答题

简答题官方微信公众号

简答题
下载APP
关注公众号
TOP