首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框,并编写如下程序: Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish
在窗体上画一个名称为Text1的文本框,并编写如下程序: Option Base 1 Private Sub Form_Click() Dim arr Dim Start As Integer,Finish
admin
2015-08-13
19
问题
在窗体上画一个名称为Text1的文本框,并编写如下程序:
Option Base 1
Private Sub Form_Click()
Dim arr
Dim Start As Integer,Finish As Integer
Dim Sum As Integer
arr=Array(12,4,8,16)
Start=LBound(arr)
Finish=UBound(arr)
Sum=0
For i=Start To Finish
Sum=Sum+arr(i)
Next i
c=Sum/Finish
Text1.Text=c
End Sub
运行程序,单击窗体,则在文本框中显示的是( )。
选项
A、40
B、10
C、12
D、16
答案
B
解析
程序中将变量arr初始化为有4个元素的数组,使用LBound和UBound函数分别获取数组下标的上下限,然后将数组中的元素值相加,用整除运算求它们的平均值。算式可写为(12+4+8+16)/4=(40)/4=10。所以答案为B。
转载请注明原文地址:https://jikaoti.com/ti/FC60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
把窗体的KeyPreview属性设置为True,并编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintKeyCode;En
为了建立窗体的Click事件过程,即Form_Click,应先在代码窗口的【】栏中选择Form,然后在【】栏中选择Click。
在显示字体对话框之前必须设置【】属性,否则,将发生字体不存在的错误。
在菜单编辑器中建立一个菜单,其主菜单项的名称为nmuEdit,Visible属性为False。程序运行后,如果用鼠标右键单击窗体,则弹出与mnvEdit对应的菜单。以下是实现上述功能的程序,请填空。PrivateSubForm【】(But
使用目录列表框的______属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。
下列程序的功能是:将数据1,2,..,8写入顺序文件Num.txt中请补充完整。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOut
当我们输入代码时,VisualBasic可以自动检测______错误。
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读人数据”、“计算并输出”和“存盘”),然后再添加一个文本框,名称为Textl,MultiLine属性设置为True,scrollBars属性设置为2(如图42—6所示)。程序运行后
在最坏情况下,冒泡排序的时间复杂度为【】。
表达式(7\3+1)*(18\-1)的值是______。
随机试题
下列电信业务中,属于增值电信业务的是()业务。
双眼睑下垂常见于()
患者,女,38岁。颈部结块如梅李,大小不等,与表皮粘连,质硬,推之活动差,皮色暗红,中心变黑,触之波动,伴情志抑郁,心烦易怒,潮热盗汗,舌红,少苔,脉细数。诊断为
对房地产市场销售状况与销售潜力的调研,属于()。
民用建筑基地路面的横向坡度是:[2010年第34题]
生产经营单位的职业健康安全管理体系审核应主要考虑()。
某水利水电工程项目的原施工进度网络计划(双代号)如图1F400000-1所示。该工程总工期为18个月。在上述网络计划中,工作C、F、J三项工作均为土方工程,土方工程量分别为7000m3、10000m3、6000m3,共计23000m3,土方单价
有一些事物,是在语言之外却又不亚于语言的,笑,便是其中之一。因为,笑尽管没有言辞,却是除人以外任何动物都发不出来的。一只狗,躺卧在炉前地毯上,因痛哭而呜咽,或因欢乐而吠叫,我们自会明白它的意思,而不觉有什么怪异之处。然而,假如它放声大笑呢?假如,当你走进房
“文化发展论”和“内化论”是()提出的。
Sorry,dear!Ihavesomeworktodotonight.Canwechangeourplanto______?
最新回复
(
0
)