题目
[多项选择题]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图4所示。程序功能如下：
①单击“渎数据”按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a中。
②单击“计算”按钮，则根据从名称为Combo1的组合框中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。
“读数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程，实现上述功能。
注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。
[题目提供的源程序]
Dima(100)AsInteger
PrivateSubCommand1_Click()
DimkAsInteger
OpenApp.Path&"in4.dat"ForInputAs#1
Fork=1To100
Input#1,a(k)
Nextk
Close#1
EndSub
PrivateSubCommand2_Click()
’考生应编写的程序
EndSub
提示：未搜索到的试题可在搜索页快速提交，您可在会员中心"提交的题"快速查看答案。
答案
查看答案
搜题
相关试题
FlashMX2004的数据集成包含数据校验
在计算机网络中，数据资源共享指的是____。
- A.各种文件数据的共享
- B.各种应用程序数据的共享
- C.各种数据文件和数据库的共享
- D.各种表格文件和数据库文件的共享
[填空题]如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。
PrivateSubCommand1_Click()
DimkAsInteger，nAsInteger，foundAsBoolean
found=False
n=Len(______)
k=0
Whilek＜List1.ListCountAndNotfound
IfText1=Lefts(List1.List(k)，n)Then
Text2＝______
found＝True
EndIf
k＝k+1
Wend
IfNotfoundThen
Text2＝“查无此人”
EndIf
EndSub
PrivateSubCommand1_Click()
DimkAsInteger，nAsInteger，foundAsBoolean
found=False
n=Len(______)
k=0
Whilek＜List1.ListCountAndNotfound
IfText1=Lefts(List1.List(k)，n)Then
Text2＝______
found＝True
EndIf
k＝k+1
Wend
IfNotfoundThen
Text2＝“查无此人”
EndIf
EndSub
[单项选择题]关于面向对象的程序设计，下列叙述中错误的是()。
A．任何一个对象构成一个独立的模块
B．一个对象不是独立存在的实体，各个对象之间有关联，相互依赖
C．下一层次的对象可以继承上一层次对象的某些属性
D．上述三种说法都正确
A．任何一个对象构成一个独立的模块
B．一个对象不是独立存在的实体，各个对象之间有关联，相互依赖
C．下一层次的对象可以继承上一层次对象的某些属性
D．上述三种说法都正确
备注数据类型所允许存储的内容可长达
- A.3,2000个字符
- B.6,4000个字符
- C.12,8000个字符
- D.25,6000个字符