(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即

admin2018-09-19  30

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即可求出其最大值,并显示在窗体上。这个程序不完整,请把它补充完整,并能正确运行。
    要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的义件按原文件名存盘。

(2)在考生文件夹不有一个工程义件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出1~1000范围内能被7整除或被5整除的整数的个数,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被7整除或能被5整除的整数的个数的操作在通用过程Fun中实现,请编写该过程的代码。
    要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。

选项

答案(1)Rnd()函数用于产生一个小于1但大于或等于0的随机数。本题程序用变量Max记录最大数,最初把数组的第一个元素的值赋给Max,然后通过For循环语句将其后的元素依次与之比较,如果其值大于Max则将其赋值给Max,依次类推,最终Max的值就是数组各元素中的最大值。 步骤l:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Commandl_Click() Dim arrN(30)As:Integer Dim Max As Integer Randomize For i=l To 30 ‘aHN(i)=Int(Rnd*?) Next i ‘?=arrN(1) For i=2 To 30 ‘If? Then Max=arrN(i) End If Next i Print Max End Sub 程序结束 第1个?处填入:1000 第2个?处填入:Max 第3个?处填入:arrN(i)>Max或Max
解析
转载请注明原文地址:https://kaotiyun.com/show/MBFp777K
0

最新回复(0)