首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
1. 在名称窗体为Form1,KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图2—1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内
1. 在名称窗体为Form1,KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图2—1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内
admin
2009-03-17
39
问题
1. 在名称窗体为Form1,KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图2—1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内容任意,不少于三个);如果按“D”键,则从键盘上输入要删除的项目,将其从列表框中删除。程序的运行情况如图2—2所示。
在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),可以实现上述功能。但这个程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的?改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
2.在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个命令按钮和一个文本框。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被?整除的整数的个数,并在文本框中显示出来。在窗体的代码窗口中,已给出了部分程序,其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任伺内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
选项
答案
① 解析:判断按键可以在窗体的 KeyDown事件下用Chr函数将按键代码转换成字符与给定字符进行比较。 ② 使用AddItem方法向列表框中添加列表项目,使用RemoveItem方法从列表框中删除列表项目。程序中用到了InputBox(),其格式为: InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context]) prompt:是一个字符串,其长度不得超过 1024个字符,它是在对话框内显示的信息,用来提示用户输入。 title:字符串,它是对话框的标题,显示在对话框顶部的标题区。 default:字符串,用来显示输入缓冲区的默认信息。 xpos,ypos:是两个整数值,分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos),它们的单位为twip。 helpfile,context:helpfile是一个字符串变量或字符串表达式,用来表示帮助文件的名字;context是一个数值变量或表达式,用来表示相关帮助主题的帮助目录号。 ③ 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表3。 表 3控 件 属 性 设置值 Form1 KeyPreview True Listbox Name List1 文本框 Name Text1 第二步:编写程序代码。 程序提供的代码: Private Sub Form_ KeyDown (KeyCode As Integer, Shift As Integer) If Chr(KeyCode)="A"Then Text1.Text=InputBox("请输入要添加的项目") ’ List1.AddItem ? End If If Chr(KeyCode)="D"Then Text1.Text=InputBox("请输入要删除的项目") ’ For i=0 To ? ’ If List1. List (i)=? Then ’ List1. RemoveItem ? End If Next i End If End Sub 参考代码: Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) If Chr(KeyCode)="A" Then Text1. Text=InputBox("请输入要添加的项目") List1. AddItem Text1 End If If Chr(KeyCode)="D"Then Text1. Text=InputBox ("请输入要删除的项目") For i=0 To List1.ListCount—1 If List1. List (i) = Form1.Text1 Then List1. RemoveItem (i) End If Next i End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 2.① 程序中用到的Mod是取模的运算符,如:N Mod 7=0则说明余数为0,N能被7整除,否则N不能被7整除;程序中的变量 num统计的不能被7整除的个数,当I Mod 70时,num则加1,表示当前有一个不可以被7整除的数;题目要求文本框里显示不能被 7整除的数的个数,而num保留的是要求的结果,所以赋给文本框的值是num(Text1.Text=num)。 ② 解题步骤: 第一步:编写程序代码。 程序提供的代码: Sub SaveData( ) Open App. Path & "\" & "outtxt.txt" For Output As #1 Print #1,Text1.Text Close #1 End Sub Function Fun() End Function Private Sub Command1_Cliek() d=Fun() SaveData End Sub 参考代码: Sub SaveData() Open App. Path & "\" & "outtxt. txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub Function Fun() Dim i As Integer, hum As Integer For i=0 To 1000 If i Mod 70 Then num=num+1 End If Next i Text1. Text=num End Function Private Sub Command1_Click() d=Fun() SaveData End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/9j1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有关系R及关系S,它们分别有p、q个元组,则关系R与S经笛卡儿积后所得新关系的元组个数是()。
给出下面的代码段,下面的哪些陈述为真?()publicvoidcreate(){VectormyVect;myVect=newVector();}Ⅰ:第2行的声明不
下列各项中不是JDBCAPI向JDBCDriverManager发出请求的内容的是()。
下面各项语句中会产生编译错误的是()。
对于建立良好的程序设计风格,下面有关数据说明描述错误的是()。
能将程序补充完整的选项是class Person{private int a;public int change(intm){returnm;}}publicclassTeacherex
如果对一个关系实施了一种关系运算后得到了一个新的关系,而且新的关系中属性个数少于原来关系中属性个数,这说明所实施的运算关系是()
下列构造函数中创建了一个为20行,30列的文本区的是()。
设一棵二叉树的中序遍历结果为DBEAFC,前序遍历结果为ABDECF,则后序遍历结果为【】。
创建图形用户界面韵步骤是先创建代表图形化用户界面容器,再添加需要的组件,创建需要的接口,然后创建【】,并建立它和所对应的接口组件之间的联系,使得接口可以接纳用户事件。
随机试题
患者,男性,18岁,颏下无痛性缓慢生长圆球状肿物3年,大小5cm×6cm×4cm,表面光滑,界限清、质地似面团样,可活动、无触痛,肿物不随吞咽而活动,口底黏膜下未见异常。术后为消灭无效腔防止形成血肿选用的包扎是
属于双面嵌体的是()
与喷水室相比,表面式换热器具有的特点是( )。
常用低压控制和保护电器中,封闭式熔断器的特点有()。
以下属于物流系统目标的是()
()主张教学的最终目标是促进学生对学科结构的一般理解。
已知,XA+2B=AB+2X,求X2017.
在考生文件夹下打开WORD1.docx,按照要求完成下列操作并以该文件名(WORD1.docx)保存文档。【文档开始】甲A第20轮前瞻戚务生和朱广沪无疑是国产教练中的佼佼者,就算在洋帅占主导地位的甲A,他俩也出尽风头。在他们的统领下,云南红塔
Describetheproceduresofsettlementbypaymentcreditaccordingtothenumbersgiveninthefollowingcharter.Writeyouransw
A、Ithelpsimprovethephysicalhealth.B、Itisgoodforasoundsleep.C、Ithelpsdevelopmentaltoughness.D、Ithelpslosewei
最新回复
(
0
)