栏目分类:
子分类:
返回
名师互学网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
名师互学网 > IT > 面试经验

[多项选择题] 在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮和一个文本框,命令按钮的名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,文本框为空,如图3—1所示。程序的

面试经验 更新时间: 发布时间: IT归档 最新发布 模块sitemap 名妆网 法律咨询 聚返吧 英语巴士网 伯小乐 网商动力

[多项选择题] 在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮和一个文本框,命令按钮的名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,文本框为空,如图3—1所示。程序的

[多项选择题] 在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮和一个文本框,命令按钮的名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,文本框为空,如图3—1所示。程序的功能是在运行时,单击“计算”命令按钮,系统随机产生20个只有两位数的正整数,将其存入到一个数组中,再将这20个数相加的结果在文本框中显示出来。单击“存盘”命令按钮,将相加的结果存入“out5.txt”文件中。

[多项选择题] 在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮和一个文本框,命令按钮的名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,文本框为空,如图3—1所示。程序的

要求:去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功能。
注意:不能修改程序中的其他部分,也不能修改控件的其他属性。最后把修改后的程序以原文件名存盘。
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 对象

问题解析:

解析无
转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/252277.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 (c)2021-2022 MSHXW.COM

ICP备案号:晋ICP备2021003244-6号