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

[主观题]

下列程序中有一个按钮Command1，一个文本框Text1，其属性MultiLine=True。当单击按钮后，文本框显示【

】行数据，其中第2行和第3行的数据分别是【】和【】。 Option Base 1 Private Sub Command1_Click() Dim a， s As String，i As Integer a=Array(1，3，5，7，2，4，6，8) s=" " For i=1 To Ubound(A) s=s + Str(a(i)+i)+ vbCrLf Next i Text1.Text=s End Sub

查看答案

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

您可能会需要：

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

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

更多“下列程序中有一个按钮Command1，一个文本框Text1，…”相关的问题

第1题

假设某个表单中有一个复选框（CheckBox1)和一个命令按钮Command1，如果要在Coranand1的Click事件代

假设某个表单中有一个复选框(CheckBox1)和一个命令按钮Command1，如果要在Coranand1的Click事件代码中取得复选框的值，以判断该复选框是否被用户选择，正确的表达式是

A．This．CheckBox1．Value

B．ThisForm．CheckBox1．Value

C．This．CheckBox1．Selected

D．ThisForm．CheckBox1．Selected

点击查看答案

第2题

在窗体中有一个命令按钮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

点击查看答案

第3题

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click（) Dim arr（)A

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【】。

点击查看答案

第4题

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：程序运行后单击命令按钮，则在两个标签中显示的内容分别为（）

A.BCD和10

B.1234和100

C.ABCD和100

D.1234和10

点击查看答案

第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题

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

点击查看答案

第7题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click（) Di

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。

点击查看答案

第8题

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本框，其中Tex

t1可多行显示。请画两个名称为Command1、Command2，标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下： ①单击“产生数组”按钮，则用随机函数生成10个0～100之间(不含0和100)互不相同的数值，并将它们保存到一准数组a中，同时也将这10个数值显示在Text1文本框内； ②单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则显示该数在数组中的位置。要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。

在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本