首页 > 学历类考试

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

[单选题]

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、 Label2、Label3的标签，然后编写如下的事件过程：Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = zEnd Sub运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是

A.10 10 10

B.30 30 30

C.30 30 10

D.10 30

查看答案

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

您可能会需要：

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

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

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

第1题

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：Private

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是______。

A．1

B．5

C．27

D．45

点击查看答案

第2题

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程：

Private Sub Command1_Click()

s = 0

For i = 0 To 15

X = 2 * i - 1

If X Mod 3 = 0 Then s = s + 1

Next i

Label

1.Caption = s

End Sub

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

A.1

B.5

C.27

D.45

点击查看答案

第3题

在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编

写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（）。

A．Private Sub Text1_Change（）

Command1.Caption = "计算机等级考试"

End Sub

B．Private Sub Command1_ Click （）

Caption = "计算机等级考试"

End Sub

C．Private Sub Form1_ Click （）

Text1.Caption = "计算机等级考试"

End Sub

D．Private Sub Command1_ Click （）

Text1.Text = "计算机等级考试"

End Sub

点击查看答案

第4题

在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码：Private Sub Command1_Click（)

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer，arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n)；Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。

A．11 3

B．3 11

C．13 3

D．3 13

点击查看答案

第5题

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1 Click（）

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：

Private Sub Command1 Click（）

Static x As Variant

n=0

x=Array(1，2，3，4，5，6，7，8，9，10)

While n＜=4

x(n)=x(n+5)

Print x(n)：

n=n+1

Wend

End Sub

运行程序，单击命令按钮Command1，窗体上显示的是（）。

A.1 2 3 4 5

B.6 7 8 9 10

C.2 3 4 5 6

D.6 2 3 4 5

点击查看答案

第6题

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。（1) 在名称为Form1的窗体上画一个名称为H1

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。

(1) 在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图19-1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm

(2) 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个子菜单项，名称分别为Cooy和Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把 Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图19-2所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

点击查看答案

第7题

在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为

True，然后编写如下的事件过程： Private Sub Form_Click() Open“d：\test\smText1.txt"For lnput As1 Do While Not【】 Line lnput1，aspect＄ whole＄=wholes+aspect＄+Chr＄(13)+Chr＄(10) Loop Text1.Text=whole＄ Close1 Open“d：\test\smtexttxt"For Output As 1 Print 1，【】 Close1 End Sub 上述程序的功能是，把磁盘文件，mText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtexttxt。请填空。

点击查看答案

第8题

在窗体上添加一个命令按钮（名为Command1)，然后编写如下事件过程： Private Sub Command1_Click（)

在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：

Private Sub Command1_Click()

For i＝1 To 4

x＝4

For j＝1 To 3

x＝3

Fork＝1 To 2

x＝x+6

Next k

Next j

Next i

MsgBox x

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是()。

A．7

B．15

C．157

D．528

点击查看答案

第9题

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click（) Textl.

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click()

Textl.Text="VB程序设计"

End Sub

Private Sub Textl_Change()

Picturel.Print"VB programming"

End Sub

程序运行后，单击窗体，则在文本框中显示的内容是【】，而在图片框中显示的内容是【】。

点击查看答案

第10题

在窗体中有一个命令按钮command1，编写事件代码如下：Private Sub Command1_Click（)Dim s As Integ

在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是()。

A．15

B．20

C．25

D．35

点击查看答案

第11题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) a=0 For i=1 To 3

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

a=0

For i=1 To 3

For j=1 To 4