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

admin2015-08-13 22

问题设有以下程序：
  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/D960FFFM

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

二级VB

NCRE全国计算机二级

相关试题推荐

为了建立窗体的Click事件过程，即Form_Click，应先在代码窗口的【】栏中选择Form，然后在【】栏中选择Click。
如果想在程序中反复使用一个日期型数据"01/01/2000"，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用：()
文本框的SerollBars属性值为3一Both，但在文本框中却看不见水平与垂直滚动条，可能的原因是()
以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。PrivateSubForm_diek()Dimx,yAsSingleDimzAsintegerx
以下循环的执行次数是【】。k=0DoUntilk＞=10k=k+1Loop
设A="12345678"，则表达式Val(Len(A,4)+Mid(A,4,2))的值为______。
表达式26/4*3的值是______。
程序段：x=0Fora=1to5step2x=x+a^2NextaPrinta语句x=x+a^2执行的次数和最后a的值分别为______。
在面向对象方法中，()描述的是具有相似属性与操作的一组对象。
设A="12345678"，则表达式Val(Left(A，4)+Mid(A，4，2))的值为______。

随机试题

Kerberos系统从攻击的角度来看，存在的问题有()
慢性苯中毒主要累及
患者，男，35岁。右上第一磨牙牙髓治疗后劈裂，拔牙过程中牙冠碎裂至龈下，牙根与周围骨质粘连。拔牙过程中发现其腭侧根消失，牙槽窝空虚。此时应当
李先生，65岁，7年前曾患心肌炎，近2年逐渐出现体力活动后心悸、气急、咳嗽、不能平卧入睡及下肢水肿。稍一活动即感气短，临床考虑为扩张型心肌病。上述临床表现提示李先生发生了
(　　)表用于承包单位接到项目监理部的“监理工程师通知单”(B1)，并己完成了监理工程师通知单上的工作后，报请项目监理部进行核查。
期货公司风险监管标准不符合规定标准的，中国证监会派出机构应当在(　　)个工作日内对公司进行现场检查。
《中华人民共和国立法法》(以下简称《立法法》)规定全国人民代表大会及其常务委员会的立法程序主要有：①法律的公布②法律草案的审议③法律议案的提出④法律议案的表决和通过上述立法程序按照时间先后顺序排列正确的是()。
根据下列统计资料回答问题。2014年1—11月，某市累计接待入境游客397．4万人次，比上年同期下降5．4％。其中，接待外国游客340．4万人次，下降6．1％；接待港澳台游客56．9万人次，下降0．9％。从主要客源国情况看，1—11月，累计接待美
将考生文件夹下PAINT文件夹中的文件USER．TXT移动到考生文件夹下JINK文件夹中，并改名为TALK．TXT。
Iwasparkedinfrontofthemallwipingoffmycar.Comingmywayfromacrosstheparkinglotwas【C1】______societywouldconsid

最新回复(0)

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

二级VB

NCRE全国计算机二级

为了建立窗体的Click事件过程，即Form_Click，应先在代码窗口的【】栏中选择Form，然后在【】栏中选择Click。

如果想在程序中反复使用一个日期型数据"01/01/2000"，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语句，可以采用：()

文本框的SerollBars属性值为3一Both，但在文本框中却看不见水平与垂直滚动条，可能的原因是()

以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。PrivateSubForm_diek()Dimx,yAsSingleDimzAsintegerx

以下循环的执行次数是【】。k=0DoUntilk＞=10k=k+1Loop

设A="12345678"，则表达式Val(Len(A,4)+Mid(A,4,2))的值为______。

表达式26/4*3的值是______。

程序段：x=0Fora=1to5step2x=x+a^2NextaPrinta语句x=x+a^2执行的次数和最后a的值分别为______。

在面向对象方法中，()描述的是具有相似属性与操作的一组对象。

设A="12345678"，则表达式Val(Left(A，4)+Mid(A，4，2))的值为______。

Kerberos系统从攻击的角度来看，存在的问题有()

慢性苯中毒主要累及

患者，男，35岁。右上第一磨牙牙髓治疗后劈裂，拔牙过程中牙冠碎裂至龈下，牙根与周围骨质粘连。拔牙过程中发现其腭侧根消失，牙槽窝空虚。此时应当

李先生，65岁，7年前曾患心肌炎，近2年逐渐出现体力活动后心悸、气急、咳嗽、不能平卧入睡及下肢水肿。稍一活动即感气短，临床考虑为扩张型心肌病。上述临床表现提示李先生发生了

( )表用于承包单位接到项目监理部的“监理工程师通知单”(B1)，并己完成了监理工程师通知单上的工作后，报请项目监理部进行核查。

期货公司风险监管标准不符合规定标准的，中国证监会派出机构应当在( )个工作日内对公司进行现场检查。

将考生文件夹下PAINT文件夹中的文件USER．TXT移动到考生文件夹下JINK文件夹中，并改名为TALK．TXT。

Iwasparkedinfrontofthemallwipingoffmycar.Comingmywayfromacrosstheparkinglotwas【C1】______societywouldconsid

(　　)表用于承包单位接到项目监理部的“监理工程师通知单”(B1)，并己完成了监理工程师通知单上的工作后，报请项目监理部进行核查。

期货公司风险监管标准不符合规定标准的，中国证监会派出机构应当在(　　)个工作日内对公司进行现场检查。