题目内容 (请给出正确答案)
[主观题]

在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后, Com

mand1 为禁用(灰色),此时如果在文本框中输入字符,则命令按钮 Command1 变为可用。请填空。

Private Sub Form_Load()

Command1  Enabled=False

End Sub

Private Sub Text1_ ________ ()

Command1  Enabled=True

End Sub

提问人:网友zhaoxingcang 发布时间:2022-01-07
参考答案
查看官方参考答案
如搜索结果不匹配,请 联系老师 获取答案
更多“在窗体上有一个名称为 Command1 的命令按钮和一个名称…”相关的问题
第1题
在长度为 64 的有序线性表中进行顺序查找,最坏情况下需要比较的次数为()。

A.63

B.64

C.6

D.7

点击查看答案
第2题
数据库技术的根本目标是要解决数据的()。

A.存储问题

B.共享问题

C.安全问题

D.保护问题

点击查看答案
第3题
在窗体上画一个名称为 \"Command1\" 的命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim a As String

A="123456789"

For i=1 To 5

Print Space(6-i);Mid $ (a,______ ,2*i-1)

Next i

End Sub

程序运行后,单击命令按钮,窗体上的输出结果是

5

456

34567

2345678

123456789

请填空。

点击查看答案
第4题
在窗体上画一个名称为 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

点击查看答案
第5题
以下叙述中正确的是()。

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

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

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

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

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

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

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

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

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

点击查看答案
第7题
在窗体上画一个文本框(其名称为 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

点击查看答案
第8题
在窗体上面画一个命令按钮和一个标签,其名称分别为 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

点击查看答案
第9题
在窗体上画一个命令按钮,名称为 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

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

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

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

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

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

点击查看答案
账号:
你好,尊敬的用户
复制账号
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改
欢迎分享答案

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

简答题官方微信公众号

警告:系统检测到您的账号存在安全风险

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

微信搜一搜
简答题
点击打开微信
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
微信搜一搜
简答题
点击打开微信