首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt4.vbp,窗体Form1上有1个名称为Command1的命令按钮和1个名称为Text1的文本框,各控件及其属性见窗体文件。 程序功能为:单击“开始”按钮,则随机产生20个不重复的英文大写字母,并将结果显示在’Fext
考生文件夹下有工程文件sjt4.vbp,窗体Form1上有1个名称为Command1的命令按钮和1个名称为Text1的文本框,各控件及其属性见窗体文件。 程序功能为:单击“开始”按钮,则随机产生20个不重复的英文大写字母,并将结果显示在’Fext
admin
2020-02-27
34
问题
考生文件夹下有工程文件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://kaotiyun.com/show/9WTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列不包含滚动条的控件是
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click() m=-3.6 IfSgn(m)Then n=Int(m) Else n=Abs(m) EndIf
窗体上有一个名称为Command1的命令按钮,并有如下程序代码:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerDimb
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
运行如下程序PrivateSubCommand1_Click() Dima(5,5)AsInteger Fori=1To5 Forj=1To4 a(i,j)=i*2+j Ifa(i,
以下叙述中正确的是()。
在窗体上画一个通用对话框控件CD1,则执行以下程序段后,在显示的"打开"文件对话框的"文件类型"框中显示的信息是CD1.Filter="所有文件|*.*|Word文件|*.Doc|文本文件|*.Txt"CD1.FilterIndex=2CD1
窗体上有1个名称为Textl的文本框,1个名称为Timerl的计时器,且已在属性窗口将Timerl的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Textl中显示一次当前时间。Priva
为组合框Combol增加一个列表项“电脑”,下列语句正确的是()。
在考生文件夹下有一个工程文件sit5.vbp,在该工程文件中已经定义了一个学生记录类型数据StudType。有三个标题分别为“学号”、“姓名”和“平均分”的标签;三个初始内容为空,用于接收学号、姓名和平均分的文本框Text1、Text2和Text3:一个用
随机试题
凝血过程的基本步骤是
患者,女,25岁,孕17周,诊断淋病入院。护士向其解释淋病对妊娠、分娩及胎儿和新生儿的影响后,孕妇出现下列哪一项表述时,表明护士仍需要对其进行健康教育?()
下列属于诉讼内调解的是()。
下列错误中能通过试算平衡查找的有()
243,217,206,197,171,(),151。
提高程序的可读性和易维护性的关键是使程序结构______。
一台交换机具有48个100Mbps全双工端口,它的端口总带宽应为()。
确定一个控件在窗体或报表上的位置的属性是()。
Thewavelengthsoflightandradiowaves,unlikehighenergygammaradiation,aremuchshorter.
TheIrvinegroupandtheir_____aretestingwhetherlasersdothejobbetter.
最新回复
(
0
)