首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a 中。 ②单击“计算”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: ①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a 中。 ②单击“计算”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数
admin
2018-10-29
73
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:
①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个正整数读入数组a 中。
②单击“计算”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的平方,那么它就完全平方数。例如,36=62,所以36就是一个完全平方数),并计算这些完全平方数的平均值,最后将计算所得平均值截尾取整后显示在文本框Text1中。
在给出的窗体文件中已经有了全部控件(如图1-161所示),但程序不完整,要求完善程序使其实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩,最后把修改的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有两个命令按钮和一个计时器。两个命令按钮的初始标题分别是“演示”和“退出”;计时器Timer1的初始状态为不可用。请画一个名称为Label1,且能根据显示内容自动调整大小的标签,其标题为“Visual Basic程序设计”,显示格式为黑体小四号字。如图1-162所示。程序功能如下:
①单击“演示”按钮时,则该按钮的标题自动变换为“暂停”,且标签在窗体上从左向右循环滚动,当完全滚动出窗体右侧时,从窗体左侧重新进入;
②单击“暂停”按钮时,则该按钮的标题自动变换为“演示”,并暂停标签的滚动。
③单击“退出”按钮时,则结束程序运行。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt3.vbp,在代码编辑窗口的指定位置输入代码: 参考代码: Private Sub Command2_Click() ’考生编写 Dim sum As Integer, Aver As Single Dim n As Integer For i = 1 To 100 If Fix(Sqr(a(i))) = Sqr(a(i)) Then n = n + 1 sum = sum + a(i) End If Next i Aver = sum /n Text1.Text = Fix(Aver) End Sub 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键键运行程序,单击“读数据”按钮,然后单击“计算”按钮,最后通过窗体右上角的关闭按钮结束程序。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp,如表2-69画出控件并设置控件的相关属性。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: If Command1.Caption = "演示" Then Timer1.Enabled = True Timer1.Enabled = False If Label1.Left > Form1.Width Then Label1.Left = Label1.Left + 100 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/63Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为( )。
设有如下通用过程:PublicFunctionf(xAsInteger) DimyAsInteger x=20 y=2 f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下
现有如下一段程序:PrivateSubCommand1_Click() x=UCase(InputBox("输入:")) SelectCasex Case"A"To"C" Print"考核通过!"
下列打开"代码窗口"的操作中错误的是( )。
输入VisualBasic源程序时,若一个命令行中包含两个语句,则两个语句之间的分隔符应使用
为计算an的值,某人编写了函数power如下:PrivateFunctionpower(aAsInteger,nAsInteger)AsLong DimsAsLong p=a Fork=1Ton p=p*a Next
要使标签中的文本靠右显示,应将其Aligment属性设置为
为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为( )。
数据库设计中反映用户对数据要求的模式是( )。
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger n=2 Form=1To3 Printproc(n); NextmEndSubF
随机试题
A.黄色脂肪细胞B.棕色脂肪细胞C.二者均是D.二者均否细胞内含有脂滴的是()
患者,男,56岁,因左小腿丹毒复发到某医院就诊,医生给他开了价格较昂贵的新抗生素,患者要求改用对上次发病治疗有效而便宜的青霉素。因此,医生不耐烦地说:“是你说了算,还是我说了算?难道我还会害你?”患者无奈,只好百思不解地离去。请你对医生的言行进行医德评价,
现代城市规划体系的核心是()。
若某企业2003年末“预提费用”科目的借方余额为5000元,“待摊费用”科目的借方余额为20000元,则该企业期末资产负债表上应反映为( )。
根据下面的函数图象,写一段小作文说明这个图像的含义。
对班主任有较大的依赖性,不能离开班主任的监管独立地执行要求,这时的班集体处于形成阶段。()
在实用主义教育思潮介绍到中国的过程中,成为师范院校教育系的教科书和教育理论研究的重要的参考书的是
(2015年单选36)甲在某饭店醉酒闹事,饭店员工和就餐顾客纷纷躲闪,顾客乙躲闪不及被甲打伤。乙的损害应由()。
下列属于音频API接口的是______。 Ⅰ.OpenGL Ⅱ.A3D Ⅲ.D3D Ⅳ.DS3D Ⅴ.EAX
A、Aprojectaboutanactress.B、Aprojectaboutamoviedirector.C、Aprojectaboutamovie.D、AprojectaboutEurope.A选项中重复出现的
最新回复
(
0
)