考生文件夹下有工程文件sjt4.vbp,窗体Form1上有1个名称为Command1的命令按钮和1个名称为Text1的文本框,各控件及其属性见窗体文件。 程序功能为:单击“开始”按钮,则随机产生20个不重复的英文大写字母,并将结果显示在’Fext

admin2020-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
0

最新回复(0)