首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command 1 Click() d=0:c=10:x=Array(10,12,2 1,32,24
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command 1 Click() d=0:c=10:x=Array(10,12,2 1,32,24
admin
2020-04-18
29
问题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command 1 Click()
d=0:c=10:x=Array(10,12,2 1,32,24)
For i=1 To 5
Ifx(i)>c Then
d=d+x(i):c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后,如果单击命令按钮,则在窗体上输出的内容为
选项
A、89
B、99
C、23
D、77
答案
C
解析
本题的循环中依次用数组的每个元素和c进行比较,如果比c大就将数组元素累加,并令数组元素成为新的c值;否则令累加和d减去c。在5次循环中d的累加过程为-10+12+21+32-32=23。
转载请注明原文地址:https://kaotiyun.com/show/XvTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("请输入一个整数")) fun(x)EndSubPrivate
VB应用程序不能把一个二维表格中的数据存入文件
设有如下一段程序:PrivateSubCommandl—Click()StaticaAsVarianta=Array(“one”,“two”,“three”,“four”,“five”)Printa(3)
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是( )。
能够存放组合框的所有项目内容的属性是( )。
下面关于数组声明:Dimarr()AsInteger的叙述中正确的是
在文本框控件中,将Text的内容全部显示为用户所定义的字符的属性是()。
窗体上有1个名称为Text1的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimer1_Timer()Static
随机试题
患者,男性,54岁。反复脓血便半年,每天3—4次,当地曾按痢疾治疗无明显效果。近1个月出现腹胀。伴阵发性腹痛。查体:消瘦,腹稍胀、软,下腹轻压痛,右下腹可扪及一肿块,质较硬,尚可活动。该患者首选的辅助检查是
2006年10月,西安某旅行社接待了来自北京的由28位老人组成的“夕阳红”旅游团队,该旅行社委派陈某作为该团的导游员。在参观游览过程当中,陈某对游客反复说,大家到古城西安来一次不容易,既然来了,就应该多看几个景点,以免留下遗憾。在只征得少数游客的同意后,陈
一个由R=3Ω、L=4H和C=1μF三个元件相串联的电路,若电路振荡,则振荡角频率为下列选项中的()。
现代化高速线材一体化连续生产线的工艺设备流程,排序正确的是()。
下列关于银行薪酬支付的表述中,不正确的是()。
根据企业所得税法的规定,企业的下列各项支出,在计算应纳税所得额时,准予从收入总额中直接扣除的是()。
《义务教育地理课程标准(2011年版)》规定:“义务教育地理课程分为四大部分:地球与地图、世界地理、中国地理、乡土地理。”谈谈你对这一规定的理解。
Intherelationshipofeducationtobusinessweobservetodayafinestateofparadox.Ontheonehand,theemphasiswhichmost
Marketersliketoworkonthedemandside—takewhat’sindemand,makeitcheaper,runalotofads,makeaprofit.Ifyoucanin
TOEFLiBTSpeaking.Inthisintegratedspeakingtask,youwilllistentoaconversation.Youwillthenbeaskedtotalkaboutth
最新回复
(
0
)