black

登录

未知题型

设窗体上有一个名为Text1的文本框,并编写如下程序: Private Sub Form_Load() Show Text1.Text=' ' Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer,X As Single,Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print 'Visual Basic'; End Sub 程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗本上显示的内容是
A.Visual Basic
B.程序设计
C.Visual Basic程序设计
D.a程序设计

A.Text='
B.SetFocus
C.Visual
D.程序设计
C.Visual
【参考答案】

C
解析:本题考查鼠标和键盘的事件过程。题目程序实现的功能是,当在文本框中有输入时,触发Text1 KeyDow......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

相关考题

未知题型 邮寄送达中,挂号回执上注明的收件日期与送达回证上收件日期不一致的,送达日期应该是()。

未知题型 设在工程中有一个标准模块,其中定义了如下记录类型: Type Books Name As String *10 TelNum As String *20 End Type 在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是A.Private Sub Command1_Click() Dim B As Books Open 'c:/Person.txt' For Output As #1BName=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”) Write #1,BName,BTelNum Close #1 End SubB.Private Sub Command1_Click() Dim B As Books Open 'c:/Person.txt' For Input As #1B@Name=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”) Print #1,BName,BTelNum Close #1 End SubC.Private Sub Command1_Click() Dim B As Books ppen 'c:/Person.txt' For Output AS #1BName=InputBox(“输入姓名”)BTelNum=InputBox(“输入电话号码”) Write #1,B Close#1 End SubD.Privte Sub Command1_Click() Open 'c:/Person.txt' For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print#1,Name,TelNum Close #1 End Sub

未知题型 调解的双方当事人依照人民调解等法律,自调解协议生效之日起三十日内,可共同向()申请司法确认。

All Rights Reserved 版权所有©PP题库网库(pptiku.com)

备案号:湘ICP备14005140号-5

经营许可证号:湘B2-20140064