首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件Bjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
(1)在考生文件夹下有一个工程文件Bjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Clic
admin
2015-06-30
73
问题
(1)在考生文件夹下有一个工程文件Bjt3.vbp,请在窗体上添加两个单选按钮(名称分别为Option1和Option2,标题分别为“添加项目”和“删除项目”),一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。编写窗体的Click事件过程。程序运行后,如果选择“添加项目”单选按钮,然后单击窗体,则从键盘上输入要添加的项目内容(内容任意,不少于三个),并添加到列表框中;如果选择“删除项目”单选按钮,然后单击窗体,则从键盘上输入要删除的项目内容,将其从列表框中删除。程序的运行情况如图2所示。
在考生文件夹下的工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),可以实现上述功能。但这个程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程Sort将数组进行降序排序。程序运行后,分别向4个文本框中各输入一个整数(如图1所示),然后单击命令按钮,即可使数组按降序排序,并显示在文本框中(如图2所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件,并设置控件的属性。程序中用到的控件及属性见表3.107。 [*] 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form_Click() If Option1.Value = True Then Text1.Text = InputBox("请输入要添加的项目") ’List1.AddItem ? End If If Option2.Value = True Then Text1.Text = InputBox("请输入要删除的项目") ’For i = 0 To ? ’If List1.List(i) = ? Then ’List1.RemoveItem ? End If Next i End If End Sub 程序结束 参考答案 第1个?处填入:Text1 第2个?处填入:List1.ListCount - 1 第3个?处填入:Text1.Text 第4个?处填入:i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Sort(a() As Integer) Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer ’Start = ?(a) ’Finish = ?(a) ’For i = ? To 2 Step -1 ’For j = 1 To ? ’If a(j) ? a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i End Sub Private Sub Command1_Click() Dim arr1 Dim arr2(4) As Integer arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text)) For i = 1 To 4 arr2(i) = CInt(arr1(i)) Next i Sort arr2() Text1.Text = arr2(1) Text2.Text = arr2(2) Text3.Text = arr2(3) Text4.Text = arr2(4) End Sub 程序结束 参考答案 第1个?处填入:LBound 第2个?处填入:UBound 第3个?处填入:4 第4个?处填入:3 第5个?处填入:< 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Q8Qp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当VB执行下面语句后,A的值为()A=1IfA>0ThenA=A+1IfA>1ThenA=0
下面叙述中不正确的是______。
为了克服软件危机,人们提出了用______的原理来设计软件,这就是软件工程诞生的基础。
在VB中,语句定义符Const定义的是【】。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommAnd1_Click()Fori=1To4x=0Forj=1To3x=j
在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是doc文件,则正确的描述格式是
下列叙述中,不属于结构化分析方法的是()
下列叙述中正确的是
线性表的顺序存储结构和线性表的链式存储结构分别是
两个或两个以上模块之间联系的紧密程度称为()。
随机试题
“黄粱一梦”出自()
NewAnnotatedSherlockHolmesbyArthurConanDoylePrice:£28.00PublicationDate:30/11/2009Publisher’sdescrip
A.1000-2000mlB.3000-5000mlC.不少于2000mlD.不少于6000mlE.不少于7000ml大肠癌术前全肠道灌洗液量()
根据《中华人民共和国广告法》,可做广告的药品是
银行存款余额调节表,银行对账单应当保存()
关于投资性房地产转换日的确定,下列说法中正确的有()。
如图,正方体的底面与正四面体的底面在同一平面α上,且AB∥CD,正方体的六个面所在的平面与直线CE、EF相交的平面个数分别记为m、n,那么m+n=().
[*]
若数列(a1+a2)+(a3+a4)+…+(a2n-1+a2n)+…发散,则级数an___________。
设A是n阶矩阵,P是n阶可逆矩阵,n维列向量α是矩阵A的属于特征值λ的特征向量,那么在下列矩阵中①A2;②P-1AP;③AT;④。α肯定是其特征向量的矩阵个数为()
最新回复
(
0
)