网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

( 17 )设窗体中有一个文本框 Text1 ,若在程序中执行了 Text1.SetFocus ,则触发

A ) Text1 的 SetFocus 事件

B ) Text1 的 GotFocus 事件

C ) Text1 的 LostFocus 事件

D )窗体的 GotFocus 事件


参考答案

更多 “ ( 17 )设窗体中有一个文本框 Text1 ,若在程序中执行了 Text1.SetFocus ,则触发A ) Text1 的 SetFocus 事件B ) Text1 的 GotFocus 事件C ) Text1 的 LostFocus 事件D )窗体的 GotFocus 事件 ” 相关考题
考题 在窗体上有一个文本框控件,名称为Text l。同时,窗体加载时设置其计时器间隔为1s、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间,请补充完整。Private Sub Form_Load()Me.TimerInterval=1000End SubPrivate Sub 【 】Me!text1=Now()End Sub。

考题 设窗体中有一个文本框Textl,若在程序中执行了Textl.SetFocus,则触发A.Textl的SetFocus事件B.Textl的GotFocus事件C.Textl的LostFocus事件D.窗体的GotFocus事件

考题 设窗体上有一个文本框Text1和一个命令按钮Command1,并有下列事件过程: Private Sub Command1_Click() Dim s As String,Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1,k,1) s=ch+s Next k Text1.Text=s End Sub 程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是( )。A.BasicB.cisaBC.BASICD.CISAB

考题 设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发( )。A.Text1的SetFocus事件B.Text1的GotFocus事件C.Text1的LostFocus事件D.窗体的GotFocus事件

考题 窗体上有一个文本框,其Name属性为Text1,如图1所示,并有如下事件过程:上述程序的运行结果是( )。A. 在文本框Text1中输出55B. 在文本框Text1中输出0C. 语法错误D. 在文本框Text1中输出不定值

考题 在窗体上有一个文本框Text1,Text属性值为空,然后编写下列事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str)。 Text1.Text=String(n,str) End Sub 程序运行后,若在文本框中输入单字母“p”,则在文本框Text1中显示的内容为( )。A.A.pp B.pP C.pp D.PpB.

考题 在窗体上有一个文本框Text1,Text属性值为空,然后编写下列事件过程:Private Sub Text1 KeyPress(KeyAscii As Integer)Dim str As String,n As Integerstr=UCase(Chr(KeyAscii))n=Len(str)Text1.Text=String(n,str)End Sub程序运行后,若在文本框中输入单字母“p”,则在文本框Text1中显示的内容为( )。A.ppB.pPC.PPD.Pp

考题 在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程:Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后,若在文本框中输入单字母“p”,则在文本框Text1中显示的内容为( )。A.ppB.pPC.PPD.Pp

考题 ( 12 )在窗体上有一个文本框控件,名称为 Text1 。同时,窗体加载时设置其计时器间隔为 1 秒、计时器触发事件过程则实现在 Text1 文本框中动态显示当前日期和时间。请补充完整。Private Sub Form_Load( )Me.TimerInterval =1000End SubPrivate Sub 【 12 】Me!text1 = Now( )End Sub