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

[主观题]

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

输入的数据小于1000，否则重新输入。为了实现上述功能，在下划线处应填入的内容是()。 Private Sub Textl_ostFocus() Call Checklnput(Textl,500) End Sub Private Sub Text2_LostFocus() Call Checklnput(Text2,1000)

A．Text

B．SelText

C．Control

D．Form

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

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“窗体上有名称分别为Textl、Text2的2个文本框，要求文…”相关的问题

第1题

在窗体上画两个文本框（其名称分别为Textl和Text2)和一个命令按钮（其名称为 Command1)，然后编写如

在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change() TextText=UCase(Text1.Text) End Sub 程序运行后，单击命令按钮，则在Text2文本框中显示的内容是

A．Microsoft Visual Basic

B．microsoft visual basic

C．MICROSOFT VISUAL BASIC

D．空字符串

点击查看答案

第2题

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：Dim y As IntegerPrivate

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：

Dim y As Integer

Private Sub Command1_Click()

Dim x As Integer

x=2

Text1.Text=p2(p1(x),y)

Text2.Text=p1(x)

End Sub

Private Function p1(x As Integer)As Integer

x=x+y:y=x+y

p1=x+y

End Function

Private Function p2(x As Integer,y As Integer)As Integer

p2=2*x+y

End Function

当单击1次和单击2次命令按钮后，文本框Textl和Text2内的值分别为()。

A．2 4 2 4

B．2 4 4 8

C．4 4 8 8

D．10 10 58 58

点击查看答案

第3题

在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文

本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。

在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年

点击查看答案

第4题

窗体上有两个名称分别为 Text1 、 Text2 的文本框。 Text1 的 KeyUp 事件过程如下: Private Sub Text1_KeyUp（）

A.A

B.a

C.C

D.c

点击查看答案

第5题

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：Private Sub Text1_KeyUp

窗体上有两个名称分别为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

点击查看答案

第6题

在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：Private Su

在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：

Private Sub Commandl_Click()

a=Textl．Value+Text2．Value

MsgBox a

End Sub

Private Sub Form_Load()

TextI．Value=“”

Text2．Value=””

End Sub

程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【】。

点击查看答案

第7题

窗体上有一个名为List1的列表框，其中已经输入了若干个项目（如图所示)；还有两个文本框，名称分别为

窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；

窗体上有一个名为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．没有匹配的项目

点击查看答案

第8题

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

500 ，文本

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

应填入的内容是（）。

Private Sub Text1_LostFocus()

Call CheckInput(Text1,500)