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

在窗体上画2个命令按钮,名称分别为Command1、Command2,然后编写下列事件过程。Const n=5.m=4Dim a(

在窗体上画2个命令按钮,名称分别为Command1、Command2,然后编写下列事件过程。

Const n=5.m=4

Dim a(m,n)

Private Sub+Command1 Click()

k=1

For i=1 To m

For j=1 To n

a(i,j)=k

k=k+1

Next j

Next i

End Sub

Private Sub Command2 Click()

summ=0

For i=1 To m

For j=1 To n

If i=1 Or i=m Then

summ=summ+a(i,j)

Else

If j=1 Or j=n Then

summ=summ+a(i,j)

End If

End If

Next j

Next i

Print summ

End Sub

过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵;过程Command2 Click()的作用是()。

A.计算矩阵外围一圈元素的累加和

B.计算矩阵除外围一圈以外的所有元素的累加和

C.计算矩阵第1列和最后一列元素的累加和

D.计算矩阵第1行和最后一行元素的累加和

简答题官方参考答案 (由简答题聘请的专业题库老师提供的解答)
查看官方参考答案
更多“在窗体上画2个命令按钮,名称分别为Command1、Command2,然后编写下列事件过程。Const n=5.m=4Dim a(”相关的问题
第1题
在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然
后编写如下程序:

Function Fun(x As Integer,ByVal y As Integer)As Integer

x=x+y

If x<0 Then

Fun=x

Else

Fun=y

End If

End Function

Private Sub Command1_Click()

Dim a As Integer,b As Integer

a=-10:b=5

Text1.Text=Fun(a,b)

Text2.Text=Fun(a,b)

End Sub

程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是______和______。

点击查看答案
第2题
在窗体上画2个命令按钮,名称分别为Command1、command2,并编写如下程序 Constn=5,m=4 Dim

在窗体上画2个命令按钮,名称分别为Command1、command2,并编写如下程序

Const n=5,m=4

Dim a(m,n)

Private Sub Command1_Click()

K=1

For i=1 To m

For j=1 To n

a(i,j)=k

k=k+1

Next j

Next i

Private Sub Command2_Click()

Summ=0

For i=1 To m

For j=1 To n

If i=1 Or i=m Then

Summ=summ+a(i,j)

Else

If j=I Or j=n Then

Summ=summ+a(i,j)

End If

End If

Next j

Next i

Print summ

End Sub

过程Command1_Click()的作用是二维数组a 中存放1个 m行n列的矩阵;过程Command2_Click()的作用是()。

A.计算矩阵外围一圈元素的累加和

B.计算矩阵除外一圈以外的所有元素的累加和

C.计算矩阵第1列和最后一列元素的累加和

D.计算矩阵第1行和最后一行元素的累加和

点击查看答案
第3题
在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码:Dim Save All

在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码:

Dim Save All As String

Private Sub Commandl_C1iCk()

Text1.Text=Left(UCase(SaveAU),4)

End Sub

Private Sub Textl_KeyPress(KeyAscii As Intege)

SaveA11=Save All+Chr(KeyAscii)

End Sub

程序

点击查看答案
第4题
在窗体上画三个命令按钮,其名称分别为Command1、Command2和Command3,然后编写如下事件过程:Privat

在窗体上画三个命令按钮,其名称分别为Command1、Command2和Command3,然后编写如下事件过程: Private Sub Command1 Click() Command2.Enabled = False Command3.Visible = False End Sub程序运行后,单击命令按钮Command1,则执行的操作是______。

A.命令按钮Command2和Command3禁用

B.命令按钮Command2和Command3隐藏

C.命令按钮Command2隐藏,Command3禁用

D.命令按钮Command2禁用,Command3隐藏

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

在窗体上画一个命令按钮和一个标签,其名称分别为Commandl和Labell,然后编写如下事件过程: Private Sub Commandl_Click() Counter=0 Fori=1T04 Forj=6 To 1 Step-2 Counter=Counter+1 Nextj Nexti Labell.Caption=Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是

A.11

B.12

C.16

D.20

点击查看答案
第6题
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:DimSa

在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:

Dim SaveAll As String

Private Sub Command1_Click()

Text1.Text=Left(UCase(SaveAll),4)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

SaveAll=SaveAll+Chr(KeyAscii)

End Sub

程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。

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

在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labell,然后编写如下事件过程: Private Sub Command1_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后,单击命令按钮,标签中显示的内容是______。

A.11

B.12

C.16

D.20

点击查看答案
第8题
(6)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然后

(6)在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为 Text1、Label1 和 Command1,然

后编写如下两个事件过程:

Private Sub Command1_Click()

S$=InputBox("请输入一个字符串")

Text1.Text=S$

End Sub

Private Sub Text1_Change()

Label1.Caption=UCase(Mid(Text1.Text, 7))

End Sub

程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,

则在标签中显示的内容是 【6】 。

点击查看答案
第9题
在窗体上画两个文本框(名称分别为Text1和Text2)和—个命令按钮(名称为Cotranand1),然后编写如下事

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

A.1和0

B.2和72

C.3和50

D.4和168

点击查看答案
第10题
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写下列事

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写下列事件过程:

Private Sub Command1 Click()

x=0

DO While x<50

x=(x+2)*(x+3)

n=n+1

Loop

Text1.Text=Str(n)

Text2.Text=Str(x)

End Sub

程序运行后,单击命令按钮,在两个文本框中显示的值分别为()。

A.1和0

B.2和72

C.3和50

D.4和168

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

1. 搜题次数扣减规则:

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

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

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

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

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

订单号:

遇到问题请联系在线客服

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

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

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

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

简答题官方微信公众号

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