首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件相应的窗体文件为sjt3.frm。其功能是产生30个0~1000的随机整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出
(1)在考生文件夹下有一个工程文件相应的窗体文件为sjt3.frm。其功能是产生30个0~1000的随机整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出
admin
2018-10-29
30
问题
(1)在考生文件夹下有一个工程文件相应的窗体文件为sjt3.frm。其功能是产生30个0~1000的随机整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出来(如图1-128所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7 整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算不能被7整除的整数的个数的操作在通用过程Fun 中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在FunctionFun()和 End Function之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?” 改为正确的内容。 参考代码: arrN(i) = Int(Rnd * 1000) Min = arrN(1) If arrN(i) < Min Then 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt4.vbp,在代码编辑窗口,编辑Fun函数的内容。 参考代码: For i = 1 To 1000 If i Mod 7 <> 0 Then Y = Y + 1 End If Next i Fun = Y 步骤2:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/2Dm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()DimscoreAsIntegerscore=86Ifscore>85Thenr=1ElseIfscore>
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为( )。
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
在窗体上画一个组合框,其名称为Combo1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.Text="1"Fori=1To10Sum=Sum+iNe
假定有如下程序:PrivateSubForm_Click()DimNAsInteger,JAsIntegerN=0J=1DoUntilN>2N=N+1
假定在窗体上添加了一个通用对话框控件,其名称为CD1,并有如下程序段:CD1.ShowOpenCD1.DefaultExt="doc"在打开文件的对话框中选择了"c:\file1.txt"文件,则FileTitle属性的值是
下面不是键盘事件的是( )。
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
随机试题
社会治安综合治理的要点有()。
下列属于战略信息特点的是()
根据我国《行政诉讼法》规定,下列选项中不属于人民法院受理范围的是()
引起伪膜性肠炎的病原菌是
路基施工前,应对路基基底土进行相关试验。每公里至少取()个点。
近年来,全球各主要市场均开设了()交易,使开放式基金也可以在交易所市场挂牌交易。
()是资金的需求者和证券的供应者。
简述最近发展区的含义及其教育意义。
[2009年1月]在36人中,血型情况如下:A型12人,B型10人,AB型8人,O型6人。若从中随机选出两人,则两人血型相同的概率是()。
—Ittakesmejusttwentyminutestoreachthecityfromhere.—Doyoureallydrive______?
最新回复
(
0
)