写出下面这段函数实现的功能。 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.TextinData 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
相关考题：
在窗体上有一个文件名称为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
下面程序运行后，窗体中显示【 】。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"For k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintEnd Sub
在窗体上有—个名称为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
（ 25 ）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A ）Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）Print X,YEnd SubB ）Private Sub P1_MouseDown （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）Picture.Print X,YEnd SubC ）Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）P1.Print X,YE n d S u bD ）Private Sub Form_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）P1.Print X,YEnd Sub
有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。A．Private Sub Form_Click() PopupMenu cut End SubB．Private Sub Command1_Click() PopupMenu edit End SubC．Private Sub Form_Click() PopupMenu edit End SubD．Private Sub Form_Click() PopupMenu cut End Sub
要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A．Private Sub P1_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) Print X，Y End SubB．Private Sub P1_M0useDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture．Print X，Y End SubC．Private Sub P1_MouscMove(Button As integer，Shift As Integer，X As Single，Y As Single) P1．Print X．Y End SubD．Private Sub Form_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) P1．Print X．Y End Sub
数组A在子过程或函数中定义为形参,正确的语句是( )。 A、Private Sub sele(ByVal A( ) As integer)B、Private Function sale(A() As Integer) As StringC、Private Sub sale(A() As Integer) As IntegerD、Private Sub sale(A(i) As Integer)
窗体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···
窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是（ ）。A.Private Sub save Click（ ） Text1．Text=file．save．Caption End SubB.Private Sub save Click（ ） Text1．Text=save．Caption End SubC.Private Sub file Click（ ） Text1．Text=file．save．Caption End SubD.Private Sub file Click（ ） Text1．Text=save．Caption End Sub
下面过程运行后，变量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 SUBA．25B．26C．27D．28
下面程序实现将预先装载在Picture1中的图形清除，在横线上填写正确的语句。Private Sub Form_Load()Picture1．Picture=LoadPicture("face.bmp")End SubPrivate SubCommand1 Click()【 】End Sub
窗体上有一个名称为HScroll 1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )。A． Private Sub HScroll 1_Change() Print HScroll1.Value End SubB．Private Sub HScroll 1_Change() Print HScroll1.SmallChange End SubC．Private Sub HScroll1 Scroll() Print HScroll1.Value End SubD．Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub
设有菜单结构如表所示要求在运行时，当鼠标单击菜单项“大图标”时，在这个菜单项前面就添加一个“√”， 下面正确的事件过程是A．Private Sub Bigicon Click() Bigicon.Checked＝False End SubB．Private Sub Bigicon Click() Me.Appear.Bigicon.Checked＝True End SubC．Private Sub Bigicon Click() Bigicon.Checked＝True End SubD．Private Sub Bigicon Click() Appear.Bigicon.Checked＝True End Sub
窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件的事件过程是A．Private Sub Forml_Click() … End SubB．Private Sub Form_Click() … End SubC．Private Sub Commandl_Click() … End SubD．Private Sub Command_Click() … End Sub
设程序中有如下数组定义和过程调用语句：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)
设在窗体上有一个名称为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
下面程序的输出结果是。 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=sMid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F
已知String类定义如下：class String{public:String(const char *str = NULL); // 通用构造函数String(const String another); // 拷贝构造函数~ String(); // 析构函数String perater =(const String rhs); // 赋值函数private:char *m_data; // 用于保存字符串};尝试写出类的成员函数实现。
设窗体有上一个名称为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
下面这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码完成程序。Private Sub numCount()Dim hum As Integers＄ = "software And hardware"num = Len(s$)For i = 1 To humb$=______If b$ = "a" Then x = x+1Next iPrint "x="; xEnd Sub
（ 22 ） 窗体上有文本框 Text1 和一个菜单 ， 菜单标题 、 名称如表 ， 结构见图 。 要求程序执行时单击 “ 保存 ”菜单项，则把其标题显示在 Text1 文本框中。下面可实现此功能的事件过程是：A ） Private Sub save_Click()Sub save_Click()Text1.Text=file.save.Captionave.CaptionEnd SubB ） PrivateText1.Text=sEnd SubC ） Private Sub file_Click()Text1.Text=file.save.CaptionEnd SubD ） Private Sub file_Click()Text1.Text=save.CaptionEnd Sub
窗体上有文本框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
窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()End Sub End SubC）Private Sub Commandl_Click() D）Private Sub Command_ Click()End Sub End Sub
以下是子过程或函数过程定义中的开始语句，错误的为（）。A、Private Function f（ x As String ） As SingleB、Private Function f（ x As String ）C、Private Sub f（ x As String ） As SingleD、Private Sub f（ x As String ）
问答题写出下面这段函数实现的功能。 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.TextinData Loop Close#1 End Sub