首页 > 计算机等级考试

题目内容（请给出正确答案）

[主观题]

在窗体上画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行和最后一行元素的累加和

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体上画2个命令按钮，名称分别为Command1、Comm…”相关的问题

第1题

在窗体上画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

程序

点击查看答案

第2题

在窗体上画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，单击命令按钮，则文本框中显示的内容是______。

点击查看答案

第3题

在窗体上画一个命令按钮和一个标签，其名称分别为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

点击查看答案

第4题

在窗体上画两个文本框（其名称分别为Textl和Text2)和一个命令按钮（其名称为 Command1)，然后编写如

在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change() TextText=UCase(Text1.Text) End Sub 程序运行后，单击命令按钮，则在Text2文本框中显示的内容是

A．Microsoft Visual Basic

B．microsoft visual basic

C．MICROSOFT VISUAL BASIC

D．空字符串

点击查看答案

第5题

在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置

在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码： Dim SaveAll As String Private Sub Form. Load（） Show Text1．Text="" Text1．SetFocus End Sub Private Sub Command1 Click（） Text1．Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form. KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为（）。

A.vbVB

B.不显示任何信息

C.VB

D.出错

点击查看答案

第6题

在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框（其名称分别为Text1和Text2)，新建一

在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form. 2的窗体，则在两个文本框中应分别输入______。

A．a 1

B．a a

C．1 a

D．1 1

点击查看答案

第7题

在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和CommonDialogl，然后编写如下事件

过程：

Private Sub Commandl_CUck()

CommonDialog1.______="打开文件"

CommonDialog1.Filter="All Files(*.*)|*.*"

CommonDialog1.InitDir="C:\"

CommonDialog1.ShowOpen

End Sub

该程序的

点击查看答案

第8题

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Priv

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,a)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

点击查看答案

第9题

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：Sub S（x As

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：

Sub S(x As Integer，Y As Integer)

Static z As Integer

y=x*x+z

z=y

End Sub

Private Sub Command1_Click()

Dim i As Integer，z As Integer

m=0

z=0

For i=1 To 3

S i，z

m=m+z

Next i

Label1．Caption=Str(m)

End Sub

程序运行后，单击命令按钮，在标签中显示的内容是

A．50

B．20

C．14

D．7

点击查看答案

第10题

在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序：Private Sub Co

在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是

A．旅游景点：长城故宫

B．旅游景点：长城颐和园

C．旅游景点：颐和园

D．旅游景点：故宫

点击查看答案

长沙正则教育科技有限公司版权所有 ©2024

湘ICP备20014704号-1 营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）