写出下面这段函数实现的功能。 Private Sub Command1_Click（） Dim inData As String Text1.Text="" Open"./smtext1.txt"For InputAs#1 Do While Not EOF（1） Input#1，inData Text1.Text=Text1.Text&inData Loop Close#1 End Sub

题目

写出下面这段函数实现的功能。 Private Sub Command1_Click（） Dim inData As String Text1.Text="" Open"./smtext1.txt"For InputAs#1 Do While Not EOF（1） Input#1，inData Text1.Text=Text1.Text&inData Loop Close#1 End Sub

相似考题

1.在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是（ ）。A．Private Sub Command1_Click（）Text1.Left=100End SubB．Private Sub Command1_Click（）Text1.Left= Text1.Left-100End SubC．Private Sub Command1_Click（）Text1.Move.Text.Left+100End SubD．Private Sub Command1_Click（）Text1.Move.Text.LeftEnd Sub

2.执行下面的程序段，x的值为【 】。Private Sub Command1_Click()For i=1 To 9a=a+iNextx=Val(i)MsgBox xEnd Sub

3.在窗体上有—个名称为Text1的文本框和一个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮—次，文本框向右移动—定的距离。下面能够正确实现上述功能的程序是 ______。A．Private Sub Command1_Click() Text1.Left=100 End SubB．Private Sub Command1_Click() Text1.Left=Text1.Left-100 End SubC．Private Sub Command1_Click() Text1.Move Text1.Left+100 End SubD．Private Sub Command1_Click() Text1.Move Text1.Left End Sub

4.下面程序运行后，窗体中显示【 】。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"For k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintEnd Sub

更多“写出下面这段函数实现的功能。 Private Sub Comm”相关问题

  • 第1题：

    （ 25 ）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

    A ）

    Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

    Y As Single ）

    Print X,Y

    End Sub

    B ）

    Private Sub P1_MouseDown （ Button AS Integer,Shift As Integer,X As Single,

    Y As Single ）

    Picture.Print X,Y

    End Sub

    C ）

    Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

    Y As Single ）

    P1.Print X,Y

    E n d S u b

    D ）

    Private Sub Form_MouseMove （ Button AS Integer,Shift As Integer,X As Single,

    Y As Single ）

    P1.Print X,Y

    End Sub


    正确答案：C

  • 第2题：

    要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

    A．Private Sub P1_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) Print X，Y End Sub

    B．Private Sub P1_M0useDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture．Print X，Y End Sub

    C．Private Sub P1_MouscMove(Button As integer，Shift As Integer，X As Single，Y As Single) P1．Print X．Y End Sub

    D．Private Sub Form_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) P1．Print X．Y End Sub


    正确答案：C
    解析：鼠标在图片框中移动，对象应为图片框控件，而不是窗体，选项D)是错误的；鼠标移动触发的是MouseMove事件，选项B)是错误的；在图片框内显示坐标，Print的对象名为图片框，如果没有对象名，则默认输出到窗体上，所以正确的答案为C)。

  • 第3题：

    窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。

    A.Private Sub Form1 Click（ ）

    End Sub···

    B.Private Sub Form1. Click（ ）

    End Sub···

    C.Private Sub Command1 click（ ）

    End Sub···

    D.Private Sub Command Click（ ）

    End Sub···


    正确答案：B
    B。【解析】窗体单击事件为Form—Click事件。

  • 第4题：

    下面过程运行后，变量N的值为( )。 PRIVATE SUB MAINSUB( ) DIM N AS INTEGER N=9 CALL GET. DATA(N) END SUB PRIVATE SUB GETDATA(BYREF M AS INTEGER) M=M*3+SC-N(-9) END SUB

    A．25

    B．26

    C．27

    D．28


    正确答案：B
    解析：通过参数传递CALLGETDATA(N)语句，将N值赋予M，所以M=N=9。而SGN函数为返回参数的正负号，SGN(-9)=-1。因而M=M*3+SGN(-9)=9*3+(-1)=27-1=26。

  • 第5题：

    下面程序实现将预先装载在Picture1中的图形清除，在横线上填写正确的语句。

    Private Sub Form_Load()

    Picture1．Picture=LoadPicture("face.bmp")

    End Sub

    Private SubCommand1 Click()

    【 】

    End Sub


    正确答案：Picture1. Picture＝LoadPieture(" ")
    Picture1. Picture＝LoadPieture(" ") 解析：LoadPicture函数用来加载图形。上面程序中先在Form的Load事件中加载图片，那么类似的要清除图片，设置LoadPicture的参数为空串即可。

  • 第6题：

    设有菜单结构如表所示

    要求在运行时，当鼠标单击菜单项“大图标”时，在这个菜单项前面就添加一个“√”， 下面正确的事件过程是

    A．Private Sub Bigicon Click() Bigicon.Checked＝False End Sub

    B．Private Sub Bigicon Click() Me.Appear.Bigicon.Checked＝True End Sub

    C．Private Sub Bigicon Click() Bigicon.Checked＝True End Sub

    D．Private Sub Bigicon Click() Appear.Bigicon.Checked＝True End Sub


    正确答案：C
    解析：本题考查的是菜单项的标记，它是通过菜单的Checked属性来控制的，当其值为False时，菜单项的前面没“√”，当其值为True时，则菜单项的前面有“√”，故要使单击菜单项的“大图标”后菜单项的前面添加一个“√”，只需将其属性Checked的值设为True，故本题正确答案为C项。

  • 第7题：

    设程序中有如下数组定义和过程调用语句：

    Dim a(10) as integer

    ……

    Call p(a)

    如下过程定义中，正确的是

    A)Private Sub p(a as integer)

    B)Private Sub p(a() as integer)

    C)Private Sub p(a(10) as integer)

    D)Private Sub p(a(n) as integer)


    正确答案：B
    【答案】：B
    【知识点】：以数组作为参数时形式参数的定义形式
    【解析】：形式参数为数组时，表达示为sub name( array() as integer[string......])，并不需要指明元素个数，但小括号不能省略。故本题选B。

  • 第8题：

    下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F


    正确答案：C

  • 第9题：

    设窗体有上一个名称为HScroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。 Dim 【7】 AsInteger Private Sub Form_Load Pos＝HScrol1．Value End Sub Private Sub HScroll1_Change Print 【8】 - pos Pos＝HScrolll．Value End Sub


    正确答案：
    6;4

  • 第10题：

    （ 22 ） 窗体上有文本框 Text1 和一个菜单 ， 菜单标题 、 名称如表 ， 结构见图 。 要求程序执行时单击 “ 保存 ”菜单项，则把其标题显示在 Text1 文本框中。下面可实现此功能的事件过程是：

    A ） Private Sub save_Click()

    Sub save_Click()

    Text1.Text=file.save.Caption

    ave.Caption

    End Sub

    B ） Private

    Text1.Text=s

    End Sub

    C ） Private Sub file_Click()

    Text1.Text=file.save.Caption

    End Sub

    D ） Private Sub file_Click()

    Text1.Text=save.Caption

    End Sub


    正确答案：B

  • 第11题：

    窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是

    A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()

    End Sub End Sub

    C）Private Sub Commandl_Click() D）Private Sub Command_ Click()

    End Sub End Sub


    正确答案：B

  • 第12题：

    问答题
    写出下面这段函数实现的功能。 Private Sub Command1_Click（） Dim inData As String Text1.Text="" Open"./smtext1.txt"For InputAs#1 Do While Not EOF（1） Input#1，inData Text1.Text=Text1.Text&inData Loop Close#1 End Sub

    正确答案： 将文件smtext1.txt中的内容在文本框Text1中显示出来。
    解析： 暂无解析

  • 第13题：

    有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。

    A．Private Sub Form_Click() PopupMenu cut End Sub

    B．Private Sub Command1_Click() PopupMenu edit End Sub

    C．Private Sub Form_Click() PopupMenu edit End Sub

    D．Private Sub Form_Click() PopupMenu cut End Sub


    正确答案：C
    解析：PopupMenu方法用来显示弹出式菜单，其格式为：[对象．]。PopupMenu菜单名[，Flags] [，X，Y，][BoldCommand]。根据题意，为了显示菜单，所以要把PopupMenu方法放到Form. Click事件中，菜单名为edit，所以选c。

  • 第14题：

    数组A在子过程或函数中定义为形参,正确的语句是( )。

    A、Private Sub sele(ByVal A( ) As integer)

    B、Private Function sale(A() As Integer) As String

    C、Private Sub sale(A() As Integer) As Integer

    D、Private Sub sale(A(i) As Integer)


    参考答案：C

  • 第15题：

    窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是（ ）。

    A.Private Sub save Click（ ） Text1．Text=file．save．Caption End Sub

    B.Private Sub save Click（ ） Text1．Text=save．Caption End Sub

    C.Private Sub file Click（ ） Text1．Text=file．save．Caption End Sub

    D.Private Sub file Click（ ） Text1．Text=save．Caption End Sub


    正确答案：B
    B。【解析】由干保存菜单对应的名称为save，因此对应事件应是save_Click，排除选项C、D。另外，对于save菜单的访问无需通过file，因此选项B正确。

  • 第16题：

    下面程序的输出结果是【 】。

    Private Sub Form_Click()

    i=0

    Do Until 0

    i=i+1

    if i＞10 then Exit Do

    Loop

    Print i

    End Sub


    正确答案：11
    11 解析：这题主要考察的是Do循环语句。看循环条件Do Until 0，得到这是一个无限循环，要跳出此循环，只有在循环体里面使用相关的语句。这里用的是Exit Do
    从程序上看出，跳出循环的条件足i＞10，而i是从0开始，每次循环加1。所以，跳出循环时i的值应该为 11。

  • 第17题：

    窗体上有一个名称为HScroll 1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。

    A． Private Sub HScroll 1_Change() Print HScroll1.Value End Sub

    B．Private Sub HScroll 1_Change() Print HScroll1.SmallChange End Sub

    C．Private Sub HScroll1 Scroll() Print HScroll1.Value End Sub

    D．Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub


    正确答案：A
    解析：本题考查的考点是有关滚动条的属性和事件的。单击滚动条的箭头时将触发Change事件，而滚动块的位置由Value属性返回。

  • 第18题：

    窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件的事件过程是

    A．Private Sub Forml_Click() … End Sub

    B．Private Sub Form_Click() … End Sub

    C．Private Sub Commandl_Click() … End Sub

    D．Private Sub Command_Click() … End Sub


    正确答案：B

  • 第19题：

    设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是。 A．Private Sub Commandl_Click B．Private Sub Commandl_Click Textl．GotFocus Commandl．GotFocus End Sub End Sub C．Private Sub Commandl_Click D．Private Sub Commandl_Click Textl．SetFocus Commandl．SetFocus End Sub End sub


    正确答案：D

  • 第20题：

    已知String类定义如下：

    class String

    {

    public:

    String(const char *str = NULL); // 通用构造函数

    String(const String &another); // 拷贝构造函数

    ~ String(); // 析构函数

    String & perater =(const String &rhs); // 赋值函数

    private:

    char *m_data; // 用于保存字符串

    };

    尝试写出类的成员函数实现。


    正确答案：

     

    String::String(const char *str)
    {
    if ( str == NULL ) //strlen在参数为NULL时会抛
    异常才会有这步判断
    {
    m_data = new char[1] ;
    m_data[0] = '\0' ;
    }
    else
    {
    m_data = new char[strlen(str) + 1];
    strcpy(m_data,str);
    }
    }
    String::String(const String &another)
    {
    m_data = new char[strlen(another.m_data) + 1];
    strcpy(m_data,other.m_data);
    }
    String& String::operator =(const String &rhs)
    {
    if ( this == &rhs)
    return *this ;
    delete []m_data; //删除原来的数据，新开一块内
    存
    m_data = new char[strlen(rhs.m_data) + 1];
    strcpy(m_data,rhs.m_data);
    return *this ;
    }
    String::~String()
    {
    delete []m_data ;
    }

  • 第21题：

    下面这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码完成程序。

    Private Sub numCount()

    Dim hum As Integer

    s＄ = "software And hardware"

    num = Len(s$)

    For i = 1 To hum

    b$=______

    If b$ = "a" Then x = x+1

    Next i

    Print "x="; x

    End Sub


    正确答案：Mid(s$i1)
    Mid(s$,i,1) 解析：分析题目和程序段可知，空白处的作用是取出字符串s中的第i个字符。这里可以使用Mid函数来取出第i个字符，然后对比该字符是否是字符a。如果是，则变量x加1；如果不是，则跳过if后面的语句继续循环，最后输出x。

  • 第22题：

    窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是。A．Private Sub save_Click B．Private Sub save_Click Textl.Text=file.save.Caption Textl.Text=save.Caption End Sub End Sub C．Private Sub file_Click D．Private Sub file_Click Textl.Text=file.save.Caption Textl.Text=save.Caption End Sub End Sub


    正确答案：C

  • 第23题：

    以下是子过程或函数过程定义中的开始语句，错误的为（）。

    • A、Private Function f（ x As String ） As Single
    • B、Private Function f（ x As String ）
    • C、Private Sub f（ x As String ） As Single
    • D、Private Sub f（ x As String ）

    正确答案:C

相关内容