以下程序的功能是：将文本框Text1中的文本，逆序在Text2中输出。 - 搜考题

违法和不良信息举报联系客服

免费注册登录

题目

以下程序的功能是：将文本框Text1中的文本，逆序在Text2中输出。

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

（ 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

正确答案：C
（ 28 ）【答案】 C ）
【解析】该题考查内容为控件参数。在一个通用过程中设置相同性质控件所需要的属性，然后用不同的控件调用此过程。

第2题：

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

正确答案：C
解析：由过程Text1_LostFocus及过程Text2_LostFocus中对过程CheckInput的调有可知，CheckInput的第一个参数应为TextBox类型或其父类型，在所有选项中C符合要求。Contro1为所有控件的基类型。

第3题：

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

Private sub command1_click()

A=text1.value+text2.value

Msgbox a

End sub

Private sub form_load()

Text1.value= ””

Text2.value= ””

End sub

程序运行时，在文本框 text1 中 78 ，在文本框 text2 中输入 87 ，单击命令按钮，消息框中输出的结果为____ 11 ___

正确答案：

第4题：

以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。

Private Sub Command1_Click（）

Dim k As Integer

Dim sum As Single, max As Single, min As Single

sum = Text1（0）

max = Text1（0）

min = ______

For k = ______ To 6

If max < Text1（k） Then

max = Text1（k）

End If

If min > Text1（k） Then

min = Text1（k）

End If

sum = sum + Text1（k）

Next k

Text2 = （______） / 5

正确答案：

text1(0)　1　(sum-max-min)

第5题：

在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：

PrivateSubText2_KeyPress(KeyAsciiAsInteger)

DimstrAsString,nAsInteger

str=Ucase(Chr(KeyAscii))

n=Len(str)

Text1=String(n,str)

EndSub

程序运行后，如果在TEXT2中通过键盘上输入单字母"k"，则在文本框Text1中显示的内容为( )

A.k

B.K

C.KK

D.Kk

正确答案：B

第6题：

在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：

Private Sub Form_Load()

Text1.Text=""

Text1.SetFocus

For i=1 To 9

Sum=Sum=i

Next i

Text1.Text=Sum

End Sub

上述程序的运行结果是

A．在文本框Text1中输出45

B．在文本框Text1中输出0

C．出错

D．在文本框Text1中输出不定值

正确答案：C
解析：由于Form_load事件是在窗体加载时发生，所以此时窗体还没有显示，不能用“Text1.SetFocus”语句获得焦点，故出错。如要改正，需要在此语句前加入“Me.Show”，显示窗体，则可以看到文本框已获得焦点，并执行循环语句，输出“45”。

第7题：

在窗体上画一个文本框(其中Name属性为Text1)，然后编写如下事件过程： Private Sub Form_ Load() Text1.Text=“” Text1.SetFocus For i=1 To 10 Sum=Sam+ i Next i Text1.Text=Sam End Sub上述程序的运行结果是______ 。

A．在文本框Text1中输出55

B．在文本框Text1中输出0

C．出错

D．在文本框Text1中输出不定值

正确答案：C

第8题：

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

正确答案：C

该题考查内容为控件参数。在一个通用过程中设置相同性质控件所需要的属性，然后用不同的控件调用此过程。

第9题：

在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中（见下图）。请填空。

Private Sub Command1_Click（）

Dim r As Integer, n As Integer

n = Text1

r = Text2

Text3 = fun（n） / fun（______） / fun（r）

End Sub

Function fun（n As Integer） as long

Dim t As Long

 ______

For k = 1 To n

t = t * k

Next

fun = t

End Function

正确答案：

n-r　t=1

第10题：

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：

Private Sub Form_Load（）

Show

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Text1_Change（）

Text2.Text = Mid（Text1.Text, 8）

End Sub

程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是（）。

A．BeijingChina

B．China

C．Beijing

D．BeijingC

正确答案：B

更多相关问题

相关内容