题目内容 (请给出正确答案)
[单选题]

在窗体上画一个名称为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

答案
B、-1
如搜索结果不匹配,请 联系老师 获取答案
您可能会需要:
您的账号:,可能会需要:
您的账号:
发送账号密码至手机
发送
更多“在窗体上画一个名称为Command1的命令按钮和一个名称为T…”相关的问题

第1题

在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签,然后编写如下程序代码: Option Base 0 Private Sub Command1_Click() Dim a(5) As Integer, n As Integer For i = 0 To 5 a(i) = i n = n + a(i) Next i Label1 = n End Sub 运行程序,单击命令按钮,在标签中显示的内容是________。

A.5

B.10

C.15

D.20

点击查看答案

第2题

在窗体上画一个名称为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

点击查看答案

第3题

112、在VB开发实例一简单计算器的界面上,关于命令按钮,下列说法中不正确的是

A.这些命令按钮是一个名称为Command1的控件数组

B.在Office的VBA中也可以象VB这样创建控件数组

C.每个命令按钮都有一个Click事件,但这些命令按钮共用一个Click事件

D.这些命令按钮的名称为Command1(0) , Command1(1) , … , Command1(15)

点击查看答案

第4题

5、在VB开发实例一简单计算器的界面上,关于命令按钮,下列说法中不正确的是

A.这些命令按钮是一个名称为Command1的控件数组

B.在Office的VBA中也可以象VB这样创建控件数组

C.每个命令按钮都有一个Click事件,但这些命令按钮共用一个Click事件

D.这些命令按钮的名称为Command1(0) , Command1(1) , … , Command1(15)

点击查看答案

第5题

在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是________。

A.5和1

B.195和3

C.27和3

D.600和4

点击查看答案

第6题

在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是________。

A.600和4

B.195和3

C.5和1

D.27和3

点击查看答案

第7题

在窗体中添加一个命令按钮(名称为Command1),然后编写如下代码: Private Sub Command1_Click() a=0:b=5:c=6 MsgBox? a=b+c End Sub 窗体打开运行后,如果单击命令按钮,则消息框的输出结果为()。

A.11

B.a=11

C.0

D.假

点击查看答案

第8题

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

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案

第9题

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

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_Change

点击查看答案

第10题

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序代码: Option Base 1 Private Sub Command1_Click() Dim a(5) As String Dim i As Integer Dim b As Variant For i = LBound(a) To UBound(a) a(i) = Chr(Asc("a") + (26 - i)) Next i For Each b In a Print b; Next End Sub 程序运行时,单击Command1,则输出结果是________。

A.abcde

B.12345

C.zyxwv

D.出错

点击查看答案

第11题

在窗体上添加一个命令按钮,名称为Command1,编写如下事件过程: Private Sub Command1_Click() Dim arr arr = Array("武汉", "温州", "吉林", "哈尔滨", "北京") Print arr(2) End Sub 运行时,单击命令按钮后输出的结果是()。

A.温州

B.吉林

C.哈尔滨

D.北京

点击查看答案
发送账号至手机
密码将被重置
获取验证码
发送
温馨提示
该问题答案仅针对搜题卡用户开放,请点击购买搜题卡。
马上购买搜题卡
我已购买搜题卡, 登录账号 继续查看答案
重置密码
确认修改
温馨提示
每个试题只能免费做一次,如需多次做题,请购买搜题卡
立即购买
稍后再说
警告:系统检测到您的账号存在安全风险

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

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