设有以下程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) If y Mod 5=0 Then

admin2016-08-24 56

问题设有以下程序：
Private Sub Form_Click()
x=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )。

选项 A、100
B、50
C、120
D、70

答案A

解析程序的作用是输入的数如果是5的倍数就累加，如果不是就每次加50或与上次是5的倍数的那个数相累加。因此最终a的值是15+15+35+35=100,，

转载请注明原文地址:https://jikaoti.com/ti/5jJ0FFFM

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

二级VB

NCRE全国计算机二级

相关试题推荐

在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()　　Fori=1To4　　　　x=4　　　　Forj=1To3　　　　　　x=3　　　　　　F
窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：DimyAsIntegerPrivateSubCommand1_Click()DimxAsInteger　　x=2
当变量x=2，y=5时，以下程序的输出结果为()。DoUntily＞5　　x=x*y　　y=y+1Loopprintx
如果将文本框的Locked属性设置为True，则以下说法正确的是
设Y是整形变量，能判断Y为奇数的表达式是
下面的程序运行结果是()。PrivateSubForm_Click()　i=0　Do　　i=i+1　　ifi＞10thenExitDo　LoopUntili＜10　Print
控件数组的名字由Name属性指定，而数组中的每个元素由______属性指定。
下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。SubPR()　Randomize　Dima(10)　Forj=1To10　a(i)=In
要在命令按钮控件上显示图像应（）。
将一个窗体设置为MDI子窗体的方法是

随机试题

男，32岁，因患再生障碍性贫血需要输血，当输入红细胞悬液约200毫升时，突然畏寒，发热，呕吐一次，尿呈酱油样，血压10.0／6.0kPa(75／45mmHg)。该患者最有可能是下列哪一种输血不良反应(并发症)
高血压患者伴有隐性糖尿病，不宜选用哪种药物
根据《中华人民共和国城乡规划法》，近期建设规划应当以()为重点内容，明确近期建设的时序、发展方向和空间布局。①重要基础设施；②公共服务设施；③中低收入居民住房建设；④生态环境保护
基金管理人依法发售基金份额，募集基金，应当向国务院证券监管机构提交()，并经管理机构核准。
旅行社在组织旅游者旅游之前应与其签订合同。合同中应约定()等内容。
王某，男性，33岁，已婚，硕士研究生，单身在外工作(夫妻分居)。自我陈述：担心、紧张、烦躁不安、怀疑自己生病2年，自己就诊。2年前，由于工作应酬陪客人喝酒。可能是喝多的原因，我糊涂地与一个歌厅小姐发生了一次性关系，以后再未往来，也无其他类似经历，但我在
法国著名教育家卢梭的教育著作是()
某学生学习英语“t”时，发出的总是汉语拼音“t”的音，这种心理现象是()。
刑法分则条文的结构是()。
【B1】【B6】

最新回复(0)

设有以下程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) If y Mod 5=0 Then

二级VB

NCRE全国计算机二级

在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click() Fori=1To4 x=4 Forj=1To3 x=3 F

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：DimyAsIntegerPrivateSubCommand1_Click()DimxAsInteger x=2

当变量x=2，y=5时，以下程序的输出结果为()。DoUntily＞5 x=x*y y=y+1Loopprintx

如果将文本框的Locked属性设置为True，则以下说法正确的是

设Y是整形变量，能判断Y为奇数的表达式是

下面的程序运行结果是()。PrivateSubForm_Click() i=0 Do i=i+1 ifi＞10thenExitDo LoopUntili＜10 Print

控件数组的名字由Name属性指定，而数组中的每个元素由______属性指定。

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。SubPR() Randomize Dima(10) Forj=1To10 a(i)=In

要在命令按钮控件上显示图像应（）。

将一个窗体设置为MDI子窗体的方法是

男，32岁，因患再生障碍性贫血需要输血，当输入红细胞悬液约200毫升时，突然畏寒，发热，呕吐一次，尿呈酱油样，血压10.0／6.0kPa(75／45mmHg)。该患者最有可能是下列哪一种输血不良反应(并发症)

高血压患者伴有隐性糖尿病，不宜选用哪种药物

根据《中华人民共和国城乡规划法》，近期建设规划应当以()为重点内容，明确近期建设的时序、发展方向和空间布局。①重要基础设施；②公共服务设施；③中低收入居民住房建设；④生态环境保护

基金管理人依法发售基金份额，募集基金，应当向国务院证券监管机构提交()，并经管理机构核准。

旅行社在组织旅游者旅游之前应与其签订合同。合同中应约定()等内容。

法国著名教育家卢梭的教育著作是()

某学生学习英语“t”时，发出的总是汉语拼音“t”的音，这种心理现象是()。

刑法分则条文的结构是()。

【B1】【B6】

在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()　　Fori=1To4　　　　x=4　　　　Forj=1To3　　　　　　x=3　　　　　　F

窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：DimyAsIntegerPrivateSubCommand1_Click()DimxAsInteger　　x=2

当变量x=2，y=5时，以下程序的输出结果为()。DoUntily＞5　　x=x*y　　y=y+1Loopprintx

下面的程序运行结果是()。PrivateSubForm_Click()　i=0　Do　　i=i+1　　ifi＞10thenExitDo　LoopUntili＜10　Print

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。SubPR()　Randomize　Dima(10)　Forj=1To10　a(i)=In