现有如下一段程序： Option Base 1 Private Sub Cornmand1_Click() Dim a a=Array(3，5，7，9)：x=1 For i=4 To 1 Step－1 s=s+a(i)x：x=x1

admin2019-03-08 64

问题现有如下一段程序：
Option Base 1
Private Sub Cornmand1_Click()
  Dim a
  a=Array(3，5，7，9)：x=1
  For i=4 To 1 Step－1
s=s+a(i)*x：x=x*10
  Next
  Print s
End Sub
执行程序，单击Commandl命令按钮，执行上述事件过程，输出结果是

选项 A、9753
B、3579
C、35
D、79

答案B

解析本题考查数组的使用和循环结构。在Commandl的Click事件过程中，首先定义变量a，然后通过Array函数给变量a赋值。在循环内，s保存累加和，x表示权重，每次扩大10倍，随着循环次数增加x越来越大。循环结束后，s的值为3579。

转载请注明原文地址:https://kaotiyun.com/show/FZFp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

命令按钮Command1的单击事件过程如下：PrivateSubCommand1_Click()　　x＝10　　Printf(x)EndSubPrivateFunctionf(yAsInteger)　　f＝y*yEndF
窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为(　　)。
满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是(　)。
设a＝2，b＝3，c＝4，d＝5，下列表达式的值是(　　)。a＞bAndc＜=dOr2*a＞c
设窗体上有2个文本框Text1和Text2，并有下面的事件过程：DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger)　　If"A"
在窗体上画一个名称为Command1的命令按钮，编写如下事件过程：PrivateSubCommand1_Click()　　n＝0　　Fori＝0To10　　　　X＝2*i－1　　　　IfXMod3＝0Thenn＝n＋1　
已知：x＝－6y＝39则表达式"y\x*Sgn(x)"的值为(　　)。
(1)在名称为Form1的窗体上添加一个名称为Com-mand1的命令按钮，标题为“打开文件”，再添加一个名称为CDl的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：①设置适当属性，使对话框的标题
编写如下程序：PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入一个数值：")Printn;ff(n)EndSubFunctionff(xAs

随机试题

杂交瘤细胞分泌抗体的特性来源于
食积兼有痰多咳喘，宜选用食积兼淤血痛经，宜选用
根据香港特别行政区基本法和澳门特别行政区基本法，下列有关特别行政区立法权的表述哪一项是不正确的?()。
图示电路中，A1、A2、V1、V2均为交流表，用于测量电压或电流的有效值I1、I2、U1、U2，若I1=4A，I2=2A，U1=10V，则电压表V2的读数应为：
与网络计划相比较，横道图进度计划法的特点有()。
会计职业道德与会计法律制度一样，都是以国家强制力作为实施的保障。()
旅游过程中遭遇特殊或突发情况时，导游领队应()。
统计性歧视是指将一个群体的典型特征判断为群体中的个体具有的特征，并将此特征作为对个体特征的评价和描述。根据上述定义，下列选项中属于统计性歧视现象的是()。
对采用迭代或增量开发过程模型开发的产品进行集成测试时最适合采用的集成策略是______。
若x和y是程序中的两个整型变量，则下列if语句中正确的是()。

最新回复(0)

现有如下一段程序： Option Base 1 Private Sub Cornmand1_Click() Dim a a=Array(3，5，7，9)：x=1 For i=4 To 1 Step－1 s=s+a(i)*x：x=x*1

二级VB

NCRE全国计算机二级

命令按钮Command1的单击事件过程如下：PrivateSubCommand1_Click() x＝10 Printf(x)EndSubPrivateFunctionf(yAsInteger) f＝y*yEndF

窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。

满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是( )。

设a＝2，b＝3，c＝4，d＝5，下列表达式的值是( )。a＞bAndc＜=dOr2*a＞c

设窗体上有2个文本框Text1和Text2，并有下面的事件过程：DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger) If"A"

在窗体上画一个名称为Command1的命令按钮，编写如下事件过程：PrivateSubCommand1_Click() n＝0 Fori＝0To10 X＝2*i－1 IfXMod3＝0Thenn＝n＋1

已知：x＝－6y＝39则表达式"y\x*Sgn(x)"的值为( )。

编写如下程序：PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入一个数值：")Printn;ff(n)EndSubFunctionff(xAs

杂交瘤细胞分泌抗体的特性来源于

食积兼有痰多咳喘，宜选用食积兼淤血痛经，宜选用

根据香港特别行政区基本法和澳门特别行政区基本法，下列有关特别行政区立法权的表述哪一项是不正确的?()。

图示电路中，A1、A2、V1、V2均为交流表，用于测量电压或电流的有效值I1、I2、U1、U2，若I1=4A，I2=2A，U1=10V，则电压表V2的读数应为：

与网络计划相比较，横道图进度计划法的特点有()。

会计职业道德与会计法律制度一样，都是以国家强制力作为实施的保障。()

旅游过程中遭遇特殊或突发情况时，导游领队应()。

统计性歧视是指将一个群体的典型特征判断为群体中的个体具有的特征，并将此特征作为对个体特征的评价和描述。根据上述定义，下列选项中属于统计性歧视现象的是()。

对采用迭代或增量开发过程模型开发的产品进行集成测试时最适合采用的集成策略是______。

若x和y是程序中的两个整型变量，则下列if语句中正确的是()。

现有如下一段程序： Option Base 1 Private Sub Cornmand1_Click() Dim a a=Array(3，5，7，9)：x=1 For i=4 To 1 Step－1 s=s+a(i)x：x=x1

命令按钮Command1的单击事件过程如下：PrivateSubCommand1_Click()　　x＝10　　Printf(x)EndSubPrivateFunctionf(yAsInteger)　　f＝y*yEndF

窗体上有1个名称为Text1的文本框，1个名称为Label1的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为(　　)。

满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是(　)。

设a＝2，b＝3，c＝4，d＝5，下列表达式的值是(　　)。a＞bAndc＜=dOr2*a＞c

设窗体上有2个文本框Text1和Text2，并有下面的事件过程：DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger)　　If"A"

在窗体上画一个名称为Command1的命令按钮，编写如下事件过程：PrivateSubCommand1_Click()　　n＝0　　Fori＝0To10　　　　X＝2*i－1　　　　IfXMod3＝0Thenn＝n＋1　

已知：x＝－6y＝39则表达式"y\x*Sgn(x)"的值为(　　)。