![[多项选择题] 在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮和一个文本框,命令按钮的名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,文本框为空,如图3—1所示。程序的,第1张 [多项选择题] 在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮和一个文本框,命令按钮的名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,文本框为空,如图3—1所示。程序的,第1张](/aiimages/%5B%E5%A4%9A%E9%A1%B9%E9%80%89%E6%8B%A9%E9%A2%98%5D+%E5%9C%A8%E8%80%83%E7%94%9F%E6%96%87%E4%BB%B6%E5%A4%B9%E4%B8%8B%E6%9C%89%E4%B8%80%E4%B8%AA%E5%B7%A5%E7%A8%8B%E6%96%87%E4%BB%B6sjt5.vbp%EF%BC%8C%E7%AA%97%E4%BD%93%E4%B8%8A%E6%9C%89%E4%B8%A4%E4%B8%AA%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AE%E5%92%8C%E4%B8%80%E4%B8%AA%E6%96%87%E6%9C%AC%E6%A1%86%EF%BC%8C%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AE%E7%9A%84%E5%90%8D%E7%A7%B0%E5%88%86%E5%88%AB%E4%B8%BACmd1%E5%92%8CCmd2%EF%BC%8C%E6%A0%87%E9%A2%98%E5%88%86%E5%88%AB%E4%B8%BA%E2%80%9C%E8%AE%A1%E7%AE%97%E2%80%9D%E5%92%8C%E2%80%9C%E5%AD%98%E7%9B%98%E2%80%9D%EF%BC%8C%E6%96%87%E6%9C%AC%E6%A1%86%E4%B8%BA%E7%A9%BA%EF%BC%8C%E5%A6%82%E5%9B%BE3%E2%80%941%E6%89%80%E7%A4%BA%E3%80%82%E7%A8%8B%E5%BA%8F%E7%9A%84.png)
[多项选择题] 在考生文件夹下有一个工程文件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=2 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 SubPrivate Sub Cmd2_Click()
’Call WriteData(,sum)
End Sub Sub WriteData(Filen
正确答案:① 对象主要属性设置如表E所示。表 E 对象
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)