首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
1. 在名称窗体为Form1,KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图2—1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内
1. 在名称窗体为Form1,KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图2—1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内
admin
2009-03-17
60
问题
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全国计算机二级
相关试题推荐
Applet生命周期包括Applet的创建、运行和【】几个状态。
字符串分为两大类,一类是字符串常量,使用String类的对象表示,另一类是字符串变量,使用【】类的对象表示。
如果一个JavaApplet源程序文件中只定义了一个类,该类的类名为MyApplet,则存储该源程序文件的文件名应为【】。
数据库的设计通常可以分为4个步骤:需求分析、概念设计、【】和物理设计。
给出下面的代码段,下面的哪些陈述为真?()publicvoidcreate(){VectormyVect;myVect=newVector();}Ⅰ:第2行的声明不
面向对象程序设计有许多特性,下列选项中用来尽可能隐蔽对象的内部细节的是()。
下列叙述中正确的是()。
当检索一个压缩文件时,首先要建立压缩文件输人流对象,该对象()
若a是float型变量,且a=6,则表达式a/2+(int)(a+1)%2的值为【】。
下列各项中代表单精度浮点数的是()。
随机试题
甲市某县环保局与水利局对职责划分有异议,双方协商无法达成一致意见。关于异议的处理,下列说法中正确的是()。
白×,女,症见精神恍惚,心神不宁,悲忧善哭,时时欠伸,舌质淡,苔薄白,脉弦细,属郁证中的哪一证候
患者眩晕耳鸣,头胀痛,每因烦劳或恼怒而增剧,急躁易怒,少寐多梦,舌红苔黄,脉弦数。治疗应首选
牙髓电活力测验可以判断牙髓的
患者,女,28岁,在门诊候诊时突然感到腹痛难忍、出冷汗、四肢冰冷、呼吸急促。妇科病房当班护士为患者准备麻醉护理盘,无菌巾内不需准备的物品是
下列行为引发的争议哪个属于行政诉讼的受案范围?()
下列表述中,正确的是()。
Ethernet交换机是利用______进行数据交换的。
设x是整型变量,与函数IIf>0,-x,x)有相同结果的代数式是
ThereislittledoubtthattheartsinAmericawillbegreatly________bythelargenumbersofEuropeanartistswhoaretaking
最新回复
(
0
)