首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp,窗体Form1上有1个名称为Command1的命令按钮和1个名称为Text1的文本框,各控件及其属性见窗体文件。 程序功能为:单击“开始”按钮,则随机产生20个不重复的英文大写字母,并将结果显示在’Fext
考生文件夹下有工程文件sjt4.vbp,窗体Form1上有1个名称为Command1的命令按钮和1个名称为Text1的文本框,各控件及其属性见窗体文件。 程序功能为:单击“开始”按钮,则随机产生20个不重复的英文大写字母,并将结果显示在’Fext
admin
2020-02-27
28
问题
考生文件夹下有工程文件sjt4.vbp,窗体Form1上有1个名称为Command1的命令按钮和1个名称为Text1的文本框,各控件及其属性见窗体文件。
程序功能为:单击“开始”按钮,则随机产生20个不重复的英文大写字母,并将结果显示在’Fextl中。上图为某一次的运行效果。
请将“开始”按钮Click事件过程中的注释符去掉,把?改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 参考答案(画横线部分是需要填入的内容) Option Base 1 Private Sub Command1_Click() Dim s(20)As String *1,x As String *1 Dim flag As Boolean Dim Bum As Integer,i As Integer s(1)=Chr(Int(Rnd*26+65)) nun=2 Do While num
<=20
x=Chr(Int(Rnd*26+65)) flag=False For i=1 To hum-1 If s(i)
=x
Then flag=True Next i If
Not flag
Then s(num)=x num=
num+1
End If Loop For i=1 To 20 Text1.Text=Text1.Text+s(i)+Space(1) Next i End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Chr函数是把产生的随机数值转化成对应的字母;在数组s中第一个字母不参与循环生成,由题目可知随机产生20个不重复的字母,所以循环条件是小于等于20,While判断条件为假时跳出循环;flag是用来判断循环是否开始的标志;当产生的随机数在数组中不存在时,就把随机数赋值到数组中,下标加1;Space()函数用来插入空格数,把生或的随机数以每隔一个空格的方式显示在text1中。
转载请注明原文地址:https://jikaoti.com/ti/HIx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个名称为Command1的命令按钮和一个名称为Timer1的计时器,并有下面程序代码:PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=500E
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=2Ifa*b<10Thenb=b+1Elseb
有如下程序:PrivateSubForm_Click()DimiAsInteger,a(10)AsIntegerDimp(3)AsIntegerk=5Fori=0To10a(i)=iNextiFori=0To2
下面哪个属性不是框架控件的属性()。
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是( )。
假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是()。
已知A$=“Welcome”,下列语句操作能够正确执行的是()。
在结构化方法中,用数据流程图(DFD)作为描述工具的软件开发阶段是()。
在VisualBasic中,所有标准控件都具有的属性是( )。
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
女,45岁。近1年来盗汗、心悸、易怒,食量增加。检查:突眼,心率110次/分,血压126/84mmHg,甲状腺弥漫性肿大Ⅲ度,心律齐、无杂音,举手颤动明显。查血T3、T4高于正常值。诊为原发性甲亢,经抗甲状腺药物治疗后复发,拟行甲状腺双侧次全切除术。该
关于肾小球滤过膜的描述错误的是
会员制证券交易所下设()。Ⅰ.会员大会Ⅱ.理事会Ⅲ·监察委员会Ⅳ.董事会
下列选项中,哪项没有遵守银行业从业人员公平对待所有客户的行为准则?()
根据以下资料,回答77-80题。2006-2007年,北京市各年龄段的老年人口数增加最多的是()。
下列不属于货币市场的是()。
下列各进制的整数中,值最大的一个是()。
Readthetextbelowaboutcommunicatingingroups.Inmostofthelines41-52thereisoneextraword.Itiseithergrammaticall
Mr.Lineedstogetchangedandfreshenupafterhisshift.Mr.Zhangwantstoresearchhowthegoodsarecurrentlymanufacture
Throughouthistoryhas(1)changedhisphysicalenvironmentinordertoimprovehis(2)oflife.Withthetoolsoftechnologyhe
最新回复
(
0
)