重要提示： 请勿将账号共享给其他人使用，违者账号将被封禁！
查看《购买须知》>>>
当前位置： 首页 > 大学网课 > 大学网课
网友您好， 请在下方输入框内输入要搜索的题目：
搜题

题目

[单选题]

在窗体上画一个名称为List1的列表框和一个名称为Text1的文本框，然后编写如下两个事件过程： Private Sub Form_Load（) List1.AddItem "100" List1.AddItem "200" List1.AddItem "300" List1.AddItem "400" Text1.Text = "" End Sub Private Sub List1_DblClick（) a = List1.Text Print a + Text1.Text End Sub 程序运行后，在文本框中输入"500"，然后双击列表框中的"400"，则输出结果为________

A.500400

B.400500

C.900

D.0

答案
For i = 0 To List1.ListCount – 1 ... Next
更多“在窗体上画一个名称为List1的列表框和一个名称为Text1的文本框，然后编写如下两个事件过程： Private Sub Form_Load（) List1.AddItem "100" List1.A…”相关的问题

第1题

在窗体上画一个名称为List1的列表框和一个名称为Text1的文本框，然后编写如下两个事件过程： Private Sub Form_Load（) List1.AddItem "100" List1.AddItem "200" List1.AddItem "300" List1.AddItem "400" Text1.Text = "" End Sub Private Sub List1_DblClick（) a = List1.Text Print a + Text1.Text End Sub 程序运行后，在文本框中输入"500"，然后双击列表框中的"400"，则输出结果为________。

A.500400

B.400500

C.900

D.0

点击查看答案

第2题

在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。在改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案

第3题

在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。在改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案

第4题

在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。在改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案

第5题

在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。在改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案

第6题

1、在宏中引用窗体“新冠肺炎抗疫”（该窗体名称为F1)中文本框“Text1”的值，其完整的语法格式是（）。

A.[Forms]![F1]![Text1]

B.[Form]![F1]![Text1]

C.[F1]![Text1]

D.[Text1]

点击查看答案

第7题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写以下程序代码： Private Sub sub1（ByRef d（), ByRef m1 As Integer) Dim i As Integer m1 = d（LBound（d)) For i = LBound（d) + 1 To UBound（d) If m1 ＜ d（i) Then m1 = d（i) Next i End Sub Private Sub Command1_Click（) Dim n1 As Integer n1=-1 Dim data（) data = Array（10, 20, -20, 50, 15, -5) Call sub1（data（), n1) Text1.Text = n1 End Sub 程序运行过程中，当单击命令按钮Command1时，则在文本框Text1中显示的结果为________

A.0

B.-1

C.-5

D.50

点击查看答案

第8题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写以下程序代码： Private Sub sub1（ByRef d（), ByRef m1 As Integer) Dim i As Integer m1 = d（LBound（d)) For i = LBound（d) + 1 To UBound（d) If m1 ＜ d（i) Then m1 = d（i) Next i End Sub Private Sub Command1_Click（) Dim n1 As Integer n1=-1 Dim data（) data = Array（10, 20, -20, 50, 15, -5) Call sub1（data（), n1) Text1.Text = n1 End Sub 程序运行过程中，当单击命令按钮Command1时，则在文本框Text1中显示的结果为________。

A.0

B.-1

C.-5

D.50

点击查看答案

第9题

在窗体上添加一个文本框，名称为text1，然后编写如下的load事件过程，则程序的运行结果是__________。 Private Sub Form_Load Text1.Text="" Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End Sub

A.在文本框中显示120

B.文本框中仍为空

C.在文本框中显示1

D.出错

点击查看答案

第10题

窗体上有1个名称为List1、含有3个项目的列表框，1个名称为Text1的文本框，以及1个Interval属性值为1000的计时器控件Timer1。某人编制了以下程序，希望程序运行时，每隔1秒， List1中的3个项目能够依次在Text1中循环显示。 Private Sub Timer1_Timer（) Dim i As Integer Text1.Text = List1.List（i) i = i + 1 If i = List1.ListCount Then i = 0 End If End Sub 运行程序，发现有错误。以下正确的修改是________。

A.将If语句的条件修改为 i ＜= List1.ListCount

B.将Interval属性值改为100

C.将语句Dim i As Integer修改为Static i As Integer

D.将语句Text1.Text = List1.List(i)与i = i + 1交换位置

点击查看答案

第11题

在窗体上画一个文本框（名称text1)和一个标签（其名称为label1)，要求程序运行时，如果在文本框中输入字符，则立即在标签中显示相同内容。可以实现上述操作的事件过程是

A.Private Sub Text1_Change()

B.Private Sub Text1_Click()

C.Private Sub Label1_Change()

D.Private Sub Label1_Click()

点击查看答案
相关内容
沟通是一个信息交流的过程，如果双方所掌握的信息不足或不对称，将大大降低沟通效果。() 瞳孔的大小是由动眼神经的__和颈上交感神经节的__共同调节的 28岁男性，反复双眼睑浮肿3年，一直未做系统检查和治疗。最近为了解其肾功能做了下列检查，则哪项最能反映肾功能损害的程度（） EEPROM2817A是（）的存贮的芯片。 MC146818有三种中断方式，分别是（），（）和（）。 对于以现金结算的股份支付，可行权日后相关负债公允价值发生变动的，其变动金额应在资产负债表日计入财务报表的__项目（）
考试指南 全部 >
江苏省二建合格分数及标准 2023年一级建造师的合格分数 贵州一级建造师报名官网入口：中国人事考试网 2024山西二级建造师考试准考证打印入口 广东二建成绩合格标准 山西注安建筑实务真题估分 重庆中级注册安全工程师准考证打印时间 中级注册安全师考试报名时间 中级注册安全工程师资格证报名时间 二级建造师怎么报名多少钱
    首页 · 考试指南 · 大学网课 · 热门问题 · 考试题库 · 充值
    赏学吧APP
    TOP
    分类： 全部 财会类 职业资格 公务员 医卫类 建筑工程 大学 行业知识 大学网课 热门问题 考试题库
    重置密码
    账号：
    旧密码：
    新密码：
    确认密码：
    确认修改
    购买搜题卡查看答案
    购买前请仔细阅读《购买须知》
    请选择支付方式
    微信支付
    支付宝支付
    点击支付即表示你同意并接受《服务协议》和《购买须知》
    立即支付
    搜题卡使用说明

    1. 搜题次数扣减规则：

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

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

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

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

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

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

    - 微信扫码关注赏学吧 -
    警告：系统检测到您的账号存在安全风险
    抱歉，您的账号因涉嫌违反赏学吧购买须知被冻结。您可在“赏学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。
    - 微信扫码关注赏学吧 -
    请用微信扫码测试
    温馨提示
    每个试题只能免费做一次，如需多次做题，请购买搜题卡
    立即购买
    稍后再说
    尊敬的用户，您尚未绑定微信号
    扫码关注微信公众号，将会重置密码，开通微信扫码登录功能
    您可能还需要：
    重置密码 查看订单 联系客服
    赏学吧