[单选题]

窗体中有一个名称为txtNoteEdit的文本框和两个名称分别为cmdCut和cmdPaste的命令

按钮,编写如下程序段:

dimstasstring

PrivateSubcmdCut_Click()

st=txtNoteEdit.SelText

txtNoteEdit.SelText=""

E.ndSub

PrivateSubcmdPaste_Click()

txtNoteEdit.Text=Left(txtNoteEdit,txtNoteEdit.SelStart)+st+

Mid(txtNoteEdit,txtNoteEdit.SelStart+1)

E.ndSub

当单击cmdPaste命令按钮后,程序执行的效果是( )

A.将文本框txtNoteEdit中的所有内容插入到光标所在的位置,实现了粘贴

B.将st变量中的内容插入到光标所在的位置,实现了粘贴

C.将文本框txtNoteEdit选中的内容存放到st变量中,实现了剪切

D.以上说法都不正确

参考答案与解析:

相关试题

窗体中有一个名称为txtNoteEdit的文本框和一个名称为cmdCut的命令按

[单选题]窗体中有一个名称为txtNoteEdit的文本框和一个名称为cmdCut的命令按钮,编写如下程序段:PrivateSubcmdCut_Click()st=txtNoteEdit.SelTexttxtNoteEdit.SelText=""E.ndSub当单击命令按钮后,程序执行的效果是( )A.将txtNoteEdit中的所有内容存放到st变量中,并将txtNoteEdit选中的内容清除,实现了剪切B.将txtNoteEdit选中的内容存放到st变量中,并将txtNoteEdi

  • 查看答案
  • 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Comman

    [单选题]在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim x As Integer,n As Integer x = 1 n = 0 Do While x<20 x = x * 3 n = n + 1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是A.15和1B.2

  • 查看答案
  • 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command

    [单选题]在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是 ______。A.15和1B.27和3C.

  • 查看答案
  • 在窗体上画两个名称分别为Text1,Text2的文本框和一个名称为Command

    [单选题]在窗体上画两个名称分别为Text1,Text2的文本框和一个名称为Command1命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Text1.Text=str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是( )。A.15和1B.27和3C.195和3

  • 查看答案
  • 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Comman

    [单选题]在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0DoWhilex<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是()A . 15和1B . 27和3C . 195和3D . 600和

  • 查看答案
  • 在窗体上画两个文本框(名称分别为Text1和Text2)和—个命令按钮(名称为C

    [单选题]在窗体上画两个文本框(名称分别为Text1和Text2)和—个命令按钮(名称为Cotranand1),然后编写如下事件过程:Private Sub Command1_Click() x=0 Do While x<50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x)End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为______。A.1和0B.2和72C.3和50D.4和168

  • 查看答案
  • 窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Commandl

    [单选题]窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。设有如下的类型声明: Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。则能够正确地把数据写入文件的程序段是( )。A.Open"c:/Test29.dat"ForRan

  • 查看答案
  • 在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称

    [单选题]在窗体上画两个文本框(其名称分别为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 Visua

  • 查看答案
  • 在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command

    [单选题]在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:Private Type Personname As String*8mjot As String+20E.nd TypeD.im P As Person设文本框中的数据已正确地赋值给Person类型的变量P,当单击“保存”按钮时,能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是A.Open“c:\Test2.dat”ForOutpu

  • 查看答案
  • 窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1

    [单选题]窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型声明当单击“保存”按钮时.将两个文本框中的内容写入一个随机文件Test29.dat中设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是

  • 查看答案
  • 窗体中有一个名称为txtNoteEdit的文本框和两个名称分别为cmdCut和c