首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
1. 在名称窗体为Form1,KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图2—1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内
1. 在名称窗体为Form1,KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图2—1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内
admin
2009-03-17
41
问题
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全国计算机二级
相关试题推荐
下列哪一项不是J2ME中的Profile所定义的内容?()
下列安全控制命令中,用于管理密钥库和证书的是()。
请选择下面File参数书写正确的一项()。
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){intn=4,sum=0;
以下内容属于存储在计算机内有结构的数据集合的是()。
在面向对象方法中,类之间共享属性和操作的机制称为【】。
关于集合,下列叙述错误的是______。
若a是float型变量,且a=6,则表达式a/2+(int)(a+1)%2的值为【】。
表达式(10*49.3)的类型是______型。
若某二叉树的前序遍历访问顺序是abdgcefh,中序遍历访问顺序是dgbaechf,则其后序遍历的结点访问顺序是()。
随机试题
气血亏虚,气不摄血引起的血证有( )
A.赤色B.白色C.黄色D.青色E.黑色主虚寒,失血证面色为()
任何单位和个人不得占用()进行建设和建筑其他建筑物。
某承包人承揽一房屋建筑项目,现已按合同约定通过竣工验收。在缺陷责任期内,发包人发现部分卫生间存在漏水现象。对这一缺陷,()。
对于经电缆、管道等方式输送进出口的货物,如水、原油、电力、天然气等,应该由经营人按主管海关的要求,定期向海关申报。()
赵某购买一套价格为100万元的住房,法定最低首付款比例为30%,住房公积金贷款最高额度为50万元,住房公积金贷款年利率为4.5%,商业银行贷款年利率为6.5%,最长贷款期限为30年。根据以上资料,回答下列问题:若赵某可用足其住房公积金贷款额度,则
信贷规模调控意在控制货币供给的增长,央行可以控制货币供应,但却难以控制私人部门的货币需求,而货币需求的变化可能导致数量型调控政策达不到预期最终目标,美联储自20世纪80年代以来放弃了直接针对货币供应量的调控,就是出于货币需求的变化会对政策效果产生难以预期的
处理服务对象申述,接受那些不满意被督导者的决策而要求与更高层级谈话的服务对象的申请,是扮演的()角色。
经营者要缴纳基本年薪2倍数额的风险抵押金是()模式。
构成体能的身体形态、机能、素质都是相互独立,互不影响的。()
最新回复
(
0
)