首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮和一个文本框,命令按钮的名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,文本框为空,如图3—1所示。程序的功能是在运行时,单击“计算”命令按钮,系统随机产生20个只有两位数的正整
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮和一个文本框,命令按钮的名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,文本框为空,如图3—1所示。程序的功能是在运行时,单击“计算”命令按钮,系统随机产生20个只有两位数的正整
admin
2009-03-17
48
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮和一个文本框,命令按钮的名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,文本框为空,如图3—1所示。程序的功能是在运行时,单击“计算”命令按钮,系统随机产生20个只有两位数的正整数,将其存入到一个数组中,再将这20个数相加的结果在文本框中显示出来。单击“存盘”命令按钮,将相加的结果存入“out5.txt”文件中。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能。
注意:不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的程序以原文件名存盘。
sjt5.frm文件内容如下:
Option Base1
Dim sum As Integer
Private Sub Cmd1_ClickO
Dim art(20)As Integer
’Dim f1 As?
Randomize
arr(1)=Int (Rnd * 90)+10
’sum=?
For i=3 To 20
Do
a=Int(Rnd * 90)+10
’f1=?
For j=1 To i—1
If arr(j)=a Then f1=True:Exit For
Next j
Loop While f1
arr(i)=a
sum=sum+arr(i)
Next i
Text1. Text=sum
End Sub
Private Sub Cmd2_Click()
’Call WriteData(?,sum)
End Sub
Sub WriteData(Filename As String,Num As Integer)
Open App.Path & "\"& Filename For Output As #1
Print #1,Num
Close #1
End Sub
选项
答案
① 对象主要属性设置如表5所示。 [*] ② 分析:窗体上有两个命令按钮和一个文本框,它们的属性按表5的内容进行设置。 f1为逻辑变量,在程序中起到一个开关作用,其初值为False。变量sum为整型窗体变量,用它存放各数组值之和,其初值为第一个产生的随机数。WriteData过程有两个参数,其中第一个参数的作用是传递文件名。在该程序中,从第二个随机数开始,海产生一个随机数,都要与数组中原有的数据进行比较,若有重复,重新产生一个,直到与每一个数据都不重复为止。 ③ 编程代码: Option Base 1 Dim sum As Integer Private Sub Cmd1_Click() Dim arr(20)As Integer Dim f1 As Boolean Randomize art(1)=Int (Rnd * 90)+10 sum=arr (1) For i=2 To 20 Do a=Int(Rnd * 90) +10 f1=False For j==1 To i—1 If arr(j)=a Then f1=True: Exit For Next j Loop While f1 arr(i)=a sum=sum+arr(i) Next i Text1.Text=sum End Sub Private Sub Cmd2_Click() Call WriteData (" Out5. txt ",sum) End Sub Sub WriteData (Filename As String, Num As Integer) Open App. Path & "\" & Filename For Output As #1 Print #1,Num Close #1 End Sub
解析
转载请注明原文地址:https://kaotiyun.com/show/gk1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
源程序文档化要求程序加注释。注释一般分为序言性和【】。
java.lang.object类中实现线程通信的两个方法是()。
源程序文档化要求程序应加注释。注释一般分为序言性注释和【】。
在编写JavaApplet程序时,若需要对发生的事件作出响应和处理,一般需要在程序的开头写上()语句。
下列安全控制命令中,属于现实证书缓存区和密钥表项命令的是()。
设执行下面的赋值语句a=Float.valueOf("34").floatValue()之后,a的值是()。
关系数据库管理系统能实现的专门关系运算包括()。
如果一个JavaApplet源程序文件只定义有一个类,该类的类名为MyFirstApplet,则存储该源程序的文件名必须为【】。
算法的空间复杂度是指算法执行过程中所需要的【】。
对建立良好的程序设计风格,下面描述正确的是()
随机试题
若润滑油颜色变为(),说明油中悬浮有机酸、金属盐及机械杂质。
幂级数的收敛域为________.
血栓素A2(TXA2)主要来自
由普通硅酸盐水泥拌制的混凝土,其受冻临界强度为设计强度的:
物业服务企业与业主之间基于物业服务合同形成交易关系,双方交易的标的物是()。
国民经济偿债率的计算公式为()。
从我国的基本国情出发,对出境旅游业务经营权实行特许制度,国家旅游局应遵循( )的原则。
墨菲定律是工程师爱德华•墨菲作出的著名论断,主要内容是:事情如果有变坏的可能,尽管这种可能性偏小,但它偏偏会发生。根据上述定义,下列没有反映墨菲定律的是:
由基本形式SELECT-FROM-WHERE组成语句的功能是()。
In1787.
最新回复
(
0
)