题目内容（请给出正确答案）

[主观题]

在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：Private Sub Text1 KeyPress（K

在窗体上有一个文本框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．pp

B．pP

C．PP

D．Pp

提问人：网友nhxy2005 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“在窗体上有一个文本框Text1，Text属性值为空，然后编写…”相关的问题

第1题

在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_KeyPress（K

在窗体上有一个文本框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．pp

B．pP

C．PP

D．Pp

点击查看答案

第2题

在窗体上有一个文本框控件，名称为Text l。同时，窗体加载时设置其计时器间隔为1s、计时器触发事件过

程则实现在Text1文本框中动态显示当前日期和时间，请补充完整。

Private Sub Form_Load()

Me.TimerInterval=1000

End Sub

Private Sub 【】

Me!text1=Now()

End Sub

。

点击查看答案

第3题

（18）在窗体上有一个文本框Text1、Text属性值为空，然后编写下列事件过程： Privte Sub Text1_KeyPre

ss(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.pp B.pP C.PP D.Pp

点击查看答案

第4题

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load（) Show Text1. Text=""

设窗体上有一个名为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 Sinqle) Print"程序设计" End Sub Private Sub Text1_Keynown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上最示的内容是

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

点击查看答案

第5题

窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1，设文本框Text1中内容为 12，文本

框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick() Text3.Text = Str＄(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End Sub

A．12

B．34

C．46

D．1234

点击查看答案

第6题

（28 ）窗体上有名称分别为 Text1 、 Text2 的 2 个文本框，要求文本框 Text1 中输入的数据小于

500 ，文本

框 Text2 中输入的数据小于 1000 ，否则重新输入。为了实现以上功能，在下列程序中问号（）处

应填入的内容是（）。

Private Sub Text1_LostFocus()

Call CheckInput(Text1,500)

End Sub

Private Sub Text2_LostFocus()

Call CheckInput(Text2,1000)

End Sub

Sub CheckInput(t As ？,x As Integer)

If Val(t.Text)＞x Then

MsgBox" 请重新输入 !"

End If

End Sub

A ） Text

B ） SelText

C ） Control

D ） Form

点击查看答案

第7题

窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框T

ext2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（）处应填入的内容是。

Private Sub Text1_LostFocus（）

Call CheckInput（Text1，500）

End Sub

Private Sub Text2_LostFocus（）

Call CheckInput（Text2，1000）

End Sub

Sub CheckInput（t As ？，x As Integer）

If Val（t.Text）＞x Then

MsgBox"请重新输入!"

End If

End Sub

A．Text

B．SelText

C．Control

D．Form

点击查看答案

第8题

在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程，Private Sub Form. Click（)x=In

在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程， Private Sub Form. Click() x=InputBox("请输入一个整数") Print x+Text1. Text End Sub 单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示是()。

A．123

B．456

C．579

D．123456

点击查看答案

第9题

在窗体上有若干控件，其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______ 。

A.TabStop

B.Enabled

C.Visible

D.Tablndex

点击查看答案