题目
窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。设有如下的类型声明: Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是()。
A.Open"c:\Test29.dat"ForRandom As #1 Put#1,1,p Close#1
B.Open"c:\Test29.dat"ForRandomAs#1 Get#1,1,p Close#1
C.Open"c:\Test29.dat"ForRandomAs#1Len=Len(p) Put#1,1,p Close#1
D.Open"c:\Test29.dat"ForRandomAS#1Len=Len(p) Get#1,1,p Close#1
第1题
A.A
B.a
C.C
D.c
第2题
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode)) Text2.Text=Chr(Asc(C+2) ) End Sub 当向文本框Text1中输入小写字母a时,文本框Text2中显示的是()。
A.A
B.a
C.C
D.c
第3题
窗体上有一个名为List1的列表框,其中已经输入了若干个项目(如图所示);
还有两个文本框,名称分别为Text1、Text2,一个名称为Command1的命令按钮,并有以下程序: Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)>0 Then str=str&List1.List(k)&" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时,在Text1中输入“京”,单击命令按钮,则在Text2中显示的内容是______。
A.京
B.北京 南京
C.南京 北京
D.没有匹配的项目
第4题
Private Sub Text1_ _________() TextText=Text1.Text End Sub
A.SetFocus
B.Change
C.GetFocus
D.Click
第5题
当单击“保存”按钮时.将两个文本框中的内容写入一个随机文件Test29.dat中设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是
A.
B.
C.
D.
第6题
要求程序运行后,在Text1和Text2中分别输入两个整数,单击“计算”按钮后,可把两个整数之间的所有整数(含着两个整数)累加起来并在Text3中显示出来。
要求:
在有问号“?”的地方填入正确内容,然后删除“?”及所有注释符…”,但不得修改其他部分。保存时不得改变文件名和文件夹。
第7题
第8题
在考生文件夹中有一个工程文件execise31.vbp(相应的窗体文件为execise31.frm)。窗体Form1上有两个标签Lab1和Lab2,标题分别为“密码”和“允许次数”;一个命令按钮Cmd1:标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入密码(输入时,显示“*”),无初始内容,Text2的初始内容为3。已给出了Cmd1的事件过程,但不完整,要求去掉程序中的注释符“'”,把程序中的问号“?”改为正确内容,使得在运行时,在Text1中输入密码后,单击“确定”按钮,如果输入的是“abcdef”则在Text1中显示“密码正确”;如果输入其他内容,单击“确定”后,弹出如下图所示的错误提示对话框,并且Text2中的数字减1。最多可输入3次密码,若3次都输入错误,则禁止再次输入。
注意:
不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
第9题
Private Sub Command1_Click() TextSelStart=0 Text________=Len(TextText) Text_______ End Sub
A.SelLength SetFocus
B.SelText SetFocus
C.SelLength GetFocus
D.SelText GetFocus
第10题
程序功能:单击“运行”按钮,则产生50个不重复的介于0~100之问(含0和100)的随机数,且以每行10个数的形式显示在窗体上;最后将这些随机数中的最大数和最大数所处的位置显示在Text1和Text2中。如图所示为某一次的运行效果。请将“运行”命令按钮的Click事件过程中的注释符去掉,把?改为正确内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!