首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画出如图3—46所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Line1、Line2,并画出直线Line3,从而组成如图
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画出如图3—46所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Line1、Line2,并画出直线Line3,从而组成如图
admin
2017-03-27
46
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画出如图3—46所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Line1、Line2,并画出直线Line3,从而组成如图3—46所示的三角形。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上画一个名称为List1的列表框,并任意输入若干列表项;再画一个名称为Text1的文本框,无初始内容。请编写List1和Text1的Click事件过程。程序运行后,如果单击列表框中的某一项,则在文本框中显示该项相应的顺序号,若单击第一项,则在文本框中显示1;若单击第二项,则在文本框中显示2,以此类推(如图3—47所示);如果单击文本框,则把该列表项的内容显示在文本框中。注意:要求程序中不得使用变量,事件过程中只能写一条语句。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
第1小 步骤1:新建一个“标准EXE”工程,按表4—29在窗体中画出控件并设置其相关属性。 [*] 步骤2:按要求将文件保存至考生文件夹中。 第2小题 步骤1:新建一个“标准EXE”工程,按表4—30在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写列表框和文本框的单击事件过程。 参考代码: Prirate Sub LiSt1_Click() TexL1.Text=List1.ListIndex+1 End Sub Private Sub Text1_C1ick() Text1.Text= List1.List(LiSt1.ListIndex) End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
第1小题:本题只需按要求画出控件并设置相关属性。
第2小题:列表框的ListIndex可用于设置或返回在列表框中当前选择项同的索引号,该索引号是从0开始的。要实现本题所要求的功能,应在列表框的单击事件中,令文本框中的内容等于列表框的ListIndex属性加1:在文本框的单击事件中,令文本框的内容等于列表樵的对应选中项的内容,即
List1.List(Listl.ListIndex)。
转载请注明原文地址:https://www.kaotiyun.com/show/JhGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列数据结构中,属于非线性的是()。
要使标签能够显示所需要的文本,则在程序中应设置()属性的值。
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度:1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTyPeAngKAsIntegerSinxAsSin
数据结构分为逻辑结构和存储结构,循环队列属于【】结构。
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中______的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
在程序代码中将图片文件mypic.jpg装入图片框Picture1的语句是_________。
产生[10,27]之间的随机整数的VisualBasic表达式是
随机试题
Whichofthefollowingisastativeverb(静态动词)?
所谓多媒体是指()。
营养性巨幼红细胞性贫血的临床特点为()。
治疗鼻源头痛,除哪一味药外均可治疗
关于建设工程监理主要文件资料,不包括的是()。
根据凯恩斯货币需求理论,人们持有货币的动机包括()。
校长:老师:园丁()
在1982年9月,邓小平提出了( )的命题。
心理学家提出了“发展关键期”或“最佳期”的概念,这说明个体身心发展具有()
You’dbetter______thewholearticleatonce.
最新回复
(
0
)