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

(21 )命令按钮 Command1 的单击事件过程的代码如下:Private Sub Command1_Click()Dim a (30 )

(21 )命令按钮 Command1 的单击事件过程的代码如下:

Private Sub Command1_Click()

Dim a (30 ) As Integer

For i=1 To 30

a(i)=Int(Rnd*100)

Next

For Each arrItem In a

If arrItem Mod 7=0 Then Print arrItem;

If arrItem>90 Then Exit For

Next

End Sub

对于该事件过程,下列叙述中错误的是()。

A ) a 数组中的数据是 30 个 100 以内的整数

B )语句 For Each arrItem In a 有语法错误

C ) If arrItem Mod 7=0 …… 语句的功能是输出数组中能够被 7 整除的数

D ) If arrItem>90 …… 语句的作用是当数组元素的值大于 90 时退出 For 循环

简答题官方参考答案 (由简答题聘请的专业题库老师提供的解答)
查看官方参考答案
更多“(21 )命令按钮 Command1 的单击事件过程的代码如下:Private Sub Command1_Click()Dim a (30 )”相关的问题
第1题
(21)窗体上有 Command1、Command2 两个命令按钮。现编写以下程序: Option Base 0 Dim a() As Inte

(21)窗体上有 Command1、Command2 两个命令按钮。现编写以下程序:

Option Base 0

Dim a() As Integer, m As Integer

Private Sub Command1_Click()

m=InputBox("请输入一个正整数")

ReDim a(m)

End Sub

Private Sub Command2_Click()

m=InputBox("请输入一个正整数")

ReDim a(m)

End Sub

运行程序时,单击 Command1 后输入整数 10,再单击 Command2 后输入整数 5,则数组a 中元素的个数是

()。

A)5

B)6

C)10

D)11

点击查看答案
第2题
在窗体上添加一个命令按钮,名为Command1,一文本框,名为text1,则执行如下事件过程后,文本框中的输出为For i=1 To 3For j=1 To 3For k=1 To 2x=x+3Next k,j,iText1.Text=str(x)

A.21

B.42

C.54

D.72

点击查看答案
第3题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()D

在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim al(4,4),a2(4,4) For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=al(i,j)+i+j Next j Next i Print al(3,3);a2(3,3) End Sub 程序运行后,单击命令按钮,在窗体上输出的是

A.6 6

B.10 5

C.7 21

D.6 12

点击查看答案
第4题
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Opinion Base 1Private Sub Command1

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Opinion Base 1 Private Sub Command1_ Click() d = 0 c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) > c Then d = d + x(i) Else d = d - c End if Next i Print d End Sub程序运行后,如果单击命令按钮,则在窗体上输出的内容为______。

A.89

B.99

C.23

D.77

点击查看答案
第5题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()D

在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dima1(4,4)a2(4,4) Dim i As Integer, j As Integer For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后,单击命令按钮,在窗体上输出的是______。

A.6 6

B.10 5

C.7 21

D.6 12

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

在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:

Private Sub Command1_Click()

Dim a1(4, 4), a2(4, 4)

For i = 1 To 4

For j = 1 To 4

a1(i, j) = i + j

a2(i, j) = a1(i, j) + i + j

Next j

Next i

Print a1(3, 3); a2(3, 3)

End Sub

程序运行后,单击命令按钮,在窗体上输出的是()。

A.6 6

B.10 5

C.7 21

D.6 12

点击查看答案
第7题
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click
() Dim a1(4,4),a2(4,4) For i=1 To 4 For j=1 To 4 al(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print al(3,3);a2(3,3)End Sub 程序运行后,单击命令按钮,在窗体上输出的是()。A.6 6 B.10 5 C.7 21 D.6 12

点击查看答案
第8题
在窗体上添加一个命令按钮,名为 command1,一文本框,名为text1,则执行如下事件过程后,文本框中的
输出为______。 For i = 1 To 3 For j = 1 To 3 For k = 1 To 2 x=x+ 3 Next k Next j Next i TextText =str (x)

A. 21

B.42

C.54

D.72

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

在窗体上画一个名称为Commandl的命令按钮,然后编写如下代码: Option Base 1 Prirate Sub Command1 Click() d = 0 c = 10 x=Array(10, 12, 21, 32,24) For i=1 To 5 If x(i) > c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为

A.89

B.99

C.23

D.77

点击查看答案
第10题
若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文本框,且文本

若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框,且文本框的内容为空,然后编写如下事件代码:

Private Function f(X As Long)As Boolean

If x Mod2=0 Then

f=True

Else

f=False

End If

End Function

Private Sub Command1_ Click()

Dim n As Long

n=Val(Me!text1)

p=Ⅱf(f(n),"Even number","Odd number")

Me!Labell.Caption=n &"is"& p

End Sub

窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为【 】。

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

1. 搜题次数扣减规则:

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

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

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

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

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

订单号:

遇到问题请联系在线客服

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

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

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

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

简答题官方微信公众号

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