首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
1. 在名称窗体为Form1,KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图2—1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内
1. 在名称窗体为Form1,KeyPreview属性为True的窗体上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图2—1所示。编写窗体的KeyDown事件过程。程序运行后,如果按“A”键,则从键盘上输入要添加到列表框中的项目(内
admin
2009-03-17
19
问题
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://jikaoti.com/ti/HWq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读下列代码段,选出该代码段的正确文件名()。classA{voidmethod1(){System.out.println("method1inclassA");}
Java程序的解释执行过程分为()。
下面的说法中正确的是()。Ⅰ:有float型数据定义floatf1=100.00f;FloatF1=newfloat(f1),要把float型转换为double型时用Doubled1=F1.doubleValue()。Ⅱ:有
数据库设计有两种方法,它们是()。
与Applet生命周期相关的方法的数量是()。
如下图所示的4棵二叉树中:不是完全二叉树的是()。
设x=1,y=2和z=3,则表达式y+=z--/++x的值是
下列叙述中,正确的是()
在深度为5的完全二叉树中,度为2的结点数最多为【】。
表达式(10*49.3)的类型是______型。
随机试题
理解下面这首词,写一篇不少于200字的赏析文字。蝶恋花柳永伫倚危楼风细细,望极春愁,黯黯生天际。草色烟光残照里,无言谁会凭阑意?拟把疏狂图一醉,对酒当歌
阅读下文,回答问题。
在肾小球病的发病机制中,下列哪种说法不正确
卵巢周期性变化正确的是:
孕妇,24岁,G1P0,孕40周。下腹阵痛6小时入院,胎方位LSA。肛门检查:宫颈管消失,宫口开大2cm,行胎心监护。如出现变异减速,最可能的原因是下列哪项
小儿腹泻轻度脱水的临床表现是
对某化合物进行毒性评价时,检出该化合物的LD50为160mg/kg体重,用定期递增剂量法获LD50为500mg/kg体重,其慢性毒性试验结果见下表注:*、**、***与对照组比较显著性差异分别为P<0.05、P<0.01、P<0.001。该化合物的
甲公司为境内上市公司,2017年甲公司发生的导致净资产变动的交易或事项如下:①接受其大股东捐赠500万元;②当年将作为存货的商品房改为出租,甲公司对投资性房地产采用公允价值模式进行后续计量,转换日,商品房的公允价值大于其账面价值800万元;③按照持股
下列关于附等待期的股份支付会计处理的表述中,正确的有()。(2014年)
患者在意识障碍情况下出现“语词杂拌”,这种症状是()。
最新回复
(
0
)