首页 > 建设工程> 房地产经纪人

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

[主观题]

设窗体上有text1文本框和Command1命令按钮，并有以下程序：Private Sub Command1_Click（) Temp$=””

设窗体上有text1文本框和Command1命令按钮，并有以下程序：

Private Sub Command1_Click()

Temp$=””

For k=1 to len(text1)

Ch$=mid(text1,k,1)

If not found(temp,ch)then

Temp=temp&【13】

End If

Next k

Text1=【14】

End Sub

Private function found(str as string,ch as string)as Boolean

For k=1 to len(str)

If ch=mid(str,k,1)then

Found=【15】

Exit function

Next k

Found=false

End function

运行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“设窗体上有text1文本框和Command1命令按钮，并有以…”相关的问题

第1题

在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：程序运

在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：程序运行后，单击命令按钮，在文本框中显示的是（）。

A. 2

B. 3

C. 4

D. 5

点击查看答案

第2题

窗体上有一个文本框Text1，为了在程序运行后将其隐藏，应使用语句（）。

A.Text1.Clear

B.Text1.Visible=False

C.Text1.Hide

D.Text1.Enabled=False

点击查看答案

第3题

在窗体上有一个命令按钮和一个文本框，其名称分别为Command1和text1，把文本框的Text属性设置为空白，然后编写如下事件过程：PrivatesubCommand1_click()A=inputbox(“Enteraninteger”)B=inputbox(“Enteraninteger”)Text1.text=b+aEndsub程序运行后，单击命令按钮，如果在输入对话框里输入8和10，则文本框中显示的内容是()。

A.108

B.18

C.810

D.出错

点击查看答案

第4题

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

点击查看答案

第5题

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：DimSa

在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：

Dim SaveAll As String

Private Sub Command1_Click（）

Text1.Text=Left（UCase（SaveAll），4）

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

SaveAll=SaveAll+Chr（KeyAscii）

End Sub

程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。

点击查看答案

第6题

在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称

在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。

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

点击查看答案

第7题

在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称

为command1的命令按钮，编写如下代码：

Private Sub Command1_Click()

Dim x!, y!, z!, t!

x = Text1

y = Text2

z = Text3

If x< y then

t = x

x = y

y = t

End If

If y< z then

t = y

y = z

z = t

If x< y then

t = x

x = y

y = t

End If

End If

Label1.Caption = x & "," & y & "," & z

End Sub

当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为()

A.3,5,8

B.5,3,8

C.8,5,3

D.3.8.5

点击查看答案

第8题

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序

： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = TextText c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是

A．abcEFG

B．abcefg

C．ABCefg

D．ABCEFG

点击查看答案

第9题

在窗体上画1个文本框，名称为Text1，然后编写如下程序： PrivateSubForm_Load（） Open"d:\te

在窗体上画1个文本框，名称为Text1，然后编写如下程序：

Private Sub Form_Load（）

Open"d:\temp\dat.txt"For Output As#1

Text1.Text=""

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

lf【13】=13 Then

If UCase（Text1.Text）=______Then

Close 1

End

Else

Write#1,______

Text1.Text=""

End If

End If

End Sub

以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。

点击查看答案

第10题

在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编

写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（）。

A．Private Sub Text1_Change（）

Command1.Caption = "计算机等级考试"

End Sub

B．Private Sub Command1_ Click （）

Caption = "计算机等级考试"

End Sub

C．Private Sub Form1_ Click （）

Text1.Caption = "计算机等级考试"

End Sub

D．Private Sub Command1_ Click （）

Text1.Text = "计算机等级考试"

End Sub

点击查看答案

长沙找帮办信息科技有限公司版权所有 ©2024

湘ICP备2021011892号湘公安备案43019002002176号营业执照

违法和不良信息举报电话：400-118-7898

举报/反馈/投诉邮箱：deng＃ujigu.com（请将＃替换成@）