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

[主观题]

（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

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

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“（28 ）窗体上有名称分别为 Text1 、 Text2 …”相关的问题

第1题

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

点击查看答案

第2题

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

点击查看答案

第3题

窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性

1. 窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程： Private Sub Command1_Click() 　　For i＝0 To List1.ListCount－1 　　　　If List1.Selected(i)＝True Then 　　　　　　List2.AddItem Text 　　　　End If 　　Next End Sub 上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是()。 A) 将For循环的终值改为List1.ListCount B) 将List1.Selected(i)＝True 改为List1.List(i).Selected＝True C) 将List2.AddItem Text 改为List2.AddItem List1.List(i) D) 将List2.AddItem Text 改为List2.AddItem List1.ListIndex

A、A

B、B

C、C

D、D

点击查看答案

第4题

窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明：

Type Person name As String*8 major As String*20 End Type 当单击“Command1”按钮时，能够正确地把数据写入文件的程序段是______。

A．Private Sub Command1_Click() Dim p As Person p. name=Text1. Text p. major=Text2. Text Open"C:\data. dat" For Random As #1 Put #1, 1, p Close #1 End Sub

B．Private Sub Command1_Click() Dim p As Person p. name=Text1.Text p. major=Text2. Text Open"C:\data. dat" For Random As #1 Get #1, 1, p Close #1 End Sub

C．Private Sub Command1_Click() Dis p As Person p. name=Text1. Text p. major=Text2. Text open "C:\data. dat" For Random As #1 Len=Len(p) Put #1, 1, p Close #1 End Sub

D．Private Sub Command1_Click() Dim p As Person p. name=Text1. Text p. major=Text2. Text Open "C:\data. dat" For Random As #1=Len(p) Get #1, 1, p Close #1 End Sub

点击查看答案

第5题

在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。现有如

在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。

现有如下事件过程

Private Sub Text1_Change（）

Text 2．Text=Mid(Text1，1，5)

End Sub

运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（）。

A.DataA

B.DataB

C.aData

D.aBase

点击查看答案

第6题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form. Load（)Sho

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form. Load() Show Text1. Text="" TextText="" Text1. SetFocus End Sub Private Sub Text1_Change() TextText=Mid(Text1. Text, 8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是______。

A．Beijing

B．China

C．Beijing

D．BeijingC

点击查看答案

第7题

在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text然后编写如下程序： Private Sub Command1_Click（) a=InputBox（“请输入日期（1~31）”) t=”旅游景点：” _ & IIf （a >0 And a<= 10,”长城”,””) _ & iif （a >10 And a<= 20,”故宫”,””) _ &

A.旅游景点：长城故宫

B.旅游景点：长城颐和园

C.旅游景点：颐和园

D.旅游景点：故宫

点击查看答案

第8题

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

A.A

B.a

C.C

D.c

点击查看答案

第9题

在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Labe

l2，如图所示，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空。

Private Sub Combo1_Click（）

Call ShowItem（Combo1, Label1）

End Sub

Private Sub Combo2_Click（）

Call ShowItem（Combo2, Label2）

End Sub

Public Sub ShowItem（tmpCombo As ComboBox, tmpLabel As Label）

______.Caption =______.Text

End Sub

点击查看答案

第10题

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

点击查看答案

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

简答题

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

简答题

点击打开微信