首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹下有工程文件sjt3.vhp,控件及其属性见窗体文件。 程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移
(1)考生文件夹下有工程文件sjt3.vhp,控件及其属性见窗体文件。 程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移
admin
2019-05-21
68
问题
(1)考生文件夹下有工程文件sjt3.vhp,控件及其属性见窗体文件。
程序功能为:单击窗体,则先把数据集读入数组arr,再根据用户输入的值删除数组中对应的元素,并提示操作结果。删除元素分为三步完成:首先查找到要删除的元素,其次将其后续元素顺次前移,最后将数组大小减1。
请将程序代码中的注释符去掉,把?改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。
(2)考生文件夹下有工程文件sjt4.vbp,窗体Form1上有1个名称为Command1的命令按钮和1个名称为Text1的文本框,各控件及其属性见窗体文件。
程序功能为:单击“开始”按钮,则随机产生20个不重复的英文大写字母,并将结果显示在Text1中。上图为某一次的运行效果。
请将“开始”按钮Click事件过程中的注释符去掉,把?改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 参考答案(画线部分是需要填入的内容) Private Sub Form_Click() Dim arr() Dim x As Single Dim i As Integer,j As Integer arr=Array(23,6,9,12,5,8,20,35,6 2,46,56,200,10,7) For i=LBound(arr)To UBound(art) Text1.Text=Text1.Text+Sir(arr(i)) Next i x=Val(InputBox("输入要删除的值:",,0)) For i=LBound(arr)To UBound(arr) If x=
arr(i)
Then For j=i+1 To UBound(arr) arr(j-1)=
arr(j)
Nextj
ReDim Preserve
arr(LBound(arr)ToUBound(arr)-1) For k=LBound(arr) To UBound(arr) Text2.Text=Text2.Text+Str(arr(k)) Next k MsgBox"已完成删除操作!"
Exit Sub
End If Next i MsgBox"找不到删除的元素!" End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释“’”,将问号改为正确的内容。 参考答案(画线部分是需要填入的内容) Option Base 1 Private Sub Command1_Click() Dim s(20)As String*1,x As String * 1 Dim flag As Boolean Dim hum As Integer,i As Integer s(1)=Chr(Int(Rnd*26+65)) num=2 Do While num
<=20
x=Chr(Int(Rnd* 26+65)) flag=False For i=1 To num—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:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)通过For循环把数组arr中的数值依次显示在text1中;Val函数把输入的字符串转化为数值类型;将输入的需要删除的数据与arr数组中的每一个数进行比较,若相等,则把该数后面的每一个数依次向前移动一个位置,数组长度减1,此时需要重新分配数组的长度,如果不加Preserve选择项,会清除数组中的内容;找到所需删除的元素,进行相关的操作后,需要退出该事件。
(2)Chr函数是把产生的随机数值转化成对应的字母;在数组s中第一个字母不参与循环生成,由题目可知随机产生20个不重复的字母,所以循环条件是小于等于20,While判断条件为假时跳出循环;flag是用来判断循环是否开始的标志;当产生的随机数在数组中不存在时,就把随机数赋值到数组中,下标加1;Space()函数用来插入空格数,把生成的随机数以每隔一个空格的方式显示在text1中。
转载请注明原文地址:https://kaotiyun.com/show/4HUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=32:y=42CallPCS(x,y)Printx;yEndSubSubPCS(ByValnAsIntege
在名称为Form1,标题为“图片”的窗体上添加1个名称为Image1的图像框,其高为2500,宽为2000。请通过属性窗口设置适当属性,将考生文件夹下的图片文件pic1.jpg插入图像框,并使图片自动适应图像框的大小(如图所示)。注意:存盘时必须存放在考
考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形,直线Line1、Line2和IJne3的坐标值如下所示:名称X1Y1X2Y2Line160012001600300Line2600
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有一个计时器和两个命令按钮。计时器Timer1的初始状态为不可用;2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1,且能根据标题内容自动调整大小的标签,其标题为“Visual
在名称为Form1的窗体上添加一个名称为Label1的标签,使其初始内容为空,且能根据其标题内容自动调整标签的大小;再添加两个命令按钮,标题分别为“日期”和“时间”,名称分别为Command1、Command2。请编写两个命令按钮的Click事件过程,使得
在名称为Form1,标题为“练习”的窗体上添加一个名称为Frame1、标题为“效果”的框架。框架内含有三个复选框,其名称分别为Chk1、Chk2和Chk3,标题分别为“倾斜”、“加粗”和“下划线”。程序运行后的窗体如图所示。要求:存盘时必须存放在考生文
在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序PrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=TmeEndSubPrivateSubTime
设有下面程序代码:PrivateSubCommand1_Cliek()DimaAsVairanta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)m=a(0)n=mFork=1
在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。其功能是单击“输入数据”按钮,则可输入一个整数n(要求:8≤n≤12);单击“计算”按钮,则计算1!+2!+3!…+n!的值,并将计算结果显示在文本框中;单击“存盘”按钮,则把文本框中的结果保存到
在考生文件夹下有一个工程文件sjt4.vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Text1、Text2的两个文本框,用于接收输入的M和N(要求M<N)。单击名称为Command1、标题为“计算”的命令按钮,
随机试题
《抗日救国十大纲领》的颁布标志着抗日民族统一战线的形成,它的通过是在()。
以上哪项为溃疡样结肠炎较常见的镜下表现以上哪项为Crohn病较常见的镜下表现
局限性胸痛,按压后疼痛加重,提示病变主要累及的部位是
甲向乙租赁了房屋,向丙租赁了电视机,甲与乙的租赁合同为书面形式,签订于7月10日,约定7月15日乙向甲交付其所租赁房屋,租赁期为1年。乙依约定按时交付了租赁房屋。甲与丙的租赁合同为口头形式,同样约定租赁期为1年。对此,下列说法不正确的有:
下列关于长管的描述,正确的是()。
如果注册会计师提请被审计单位管理层在财务报表中披露导致对持续经营能力产生重大疑虑的主要事项或情况以及管理层拟采取的改善措施.然后依据披露情况决定其发表的审计意见类型,意味着注册会计师可能发表的审计报告的意见类型有()。
陈独秀说:“我们现在认定,只有这两位先生可以救治中国政治上、道德上、学术上、思想上一切的黑暗。”请问“这两位先生”是指()。
现代人养生要做到当喜则喜、当怒则怒,但是不可过度,过度就会有损健康。适当的喜,能“气和志达,荣卫通利”,可以消除因忧思所造成的“气机结滞”。但狂喜过度,就会“暴喜伤阳,乐极生悲”。常常有人因为大喜若狂,冲昏头脑。酿成不良后果,甚至导致猝死。再如悲,有悲伤之
下列情形中,应认定为自首的有()。
执行下列程序后,输出的结果是()。#include<stdio.h>#defineS(X)X*Xvoidmain(){inta=9,k=3,m=2;a/=S(k+m)/S(k+m);prin
最新回复
(
0
)