单选题

某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:Private Sub Command1_Click()Open"out.txt"For Output As2Print"Text1"Close2End Sub调试时发现没有达到目的,为实现上述目的,应做的修改是()。

查看答案
该试题由用户997****10提供 查看答案人数:41903 如遇到问题请 联系客服
正确答案
该试题由用户997****10提供 查看答案人数:41904 如遇到问题请联系客服

相关试题

换一换
单选题
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:Private Sub Command1_Click()Open"out.txt"For Output As2Print"Text1"Close2End Sub调试时发现没有达到目的,为实现上述目的,应做的修改是()。
答案
单选题
某人编写了下面的程序,希望能把Text1文本框中的内容写到Temp.txt文件中 Private Sub Command1_Click() Open "Temp.txt" For Output As2 Print"Text1" Close 2 End Sub 调试时发现没有达到目的,为实现上述目的,应做的修改是()。
A.把所有2改为1 B.把Print"Text1"改为Print 2,Text1 C.把Print"Text1"改为Write"Text1" D.把Print"Text1"改为Print Text1
答案
单选题
在窗体上有两个文本框控件,名称分别为Text1和Text2,以下程序实现的功能是希望在文本框Text1中输入字符时,输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示,下划线处应填( )。
A.图20-1 B.Private Sub Text1_ _________() C.Text2. Text=Text1. Text D.nd Sub
答案
主观题
清除文本框Text1中内容的程序代码是:____________。
答案
单选题
在窗体中有一个文本框Text1,编写事件代码如下:打开窗体运行后,在输入框中输入整数12,文本框Text1中输出的结果是()
A.1 B.2 C.3 D.4
答案
单选题
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:当向文本框Text1中输入小写字母a时,文本框Text2中显示的是()
A.A B.a C.C D.c
答案
单选题
在窗体上有一个文本框Text1,Text属性值为空,然后编写下列事件过程: Private Sub Text1 KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Chr(KeyAscii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后,若在文本框中输入单字母“p”,则在文本框Text1中显示的内容为( )。
A.pp B.pP C.PP D.Pp
答案
单选题
在窗体上有若干控件,其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______。
A.TabStop B.Enabled C.Visible D.TabIndex
答案
主观题
在窗体上画两个文本框,名字分别为Text1和Text2,然后编写下列程序。程序运行后,如果在文本框 Text2中输入lmn,那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress(Key
答案
单选题
在窗体上画一个名称为Text1,的文本框和一个名称为Command1的命令按钮,然后编写以下程序代码:运行程序,单击Command1,则在文本框Text1中显示的结果为()
A.75 B.23 C.57 D.32
答案
热门试题
在窗体上画一个文本框,名称为Text1,然后编写如下程序:程序运行后,在文本框中输入一个字符串,然后单击窗体,则文本框中的内容() 在窗体上画两个名称分别为Text1、Text2的文本框,Text1的Text属性为“DatBase”,如下图所示。现有如下事件过程:运行程序,在文本框Text1中原有字符之前输入a,Text2中显示的是() 在Access中,要引用窗体Form1中的Text1文本框的值,下列表达式正确是 设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发 设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发______。 在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:打开窗体运行后,单击命令按钮,文本框Text1输出的结果是() 清除文本框Text1中选中内容的代码是:Text1.SelText="" 有一文本框对象Text1与公共变量y数据绑定,y当前值为"01/01/05",则文本框Value值的数据类型是()。 设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是() 在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”, 如图所示。现有如下事件过程: Private Sub Text1_Change()Text2.Text=Mid(Text1,1,1)End Sub运行程序,在文本框Text1中原有字符之前输入a,Text2中显示的是:()。 文本框Text1中有选定的文本,执行Text1.SelText=”Hello”的结果是() 在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,再编写如下程序:程序运行后在文本框中输入“Number100”,并单击命令按钮,则文本框中显示的是() 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1),外观如下图所示。 编写如下程序: Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByValy As Integer) DoWhiley<>0tmp=x ModyX=yy=tmp Loop f=X End Function 运行程序,在Textl文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是( )。 窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Dim c As Stringc=UCase(Chr(KeyCode))Text2.Text=Chr(Ase(c)+2)End Sub当向文本框Text1中输入小写字母a时,文本框Text2 在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click()Text1.Text=“计算机”Me.Text1=“等级”Text1=“考试” End Sub 程序运行后.如果单击命令按钮,则在文本框中显示的是 在窗体上有一个文本框,其名称为Text1,编写下列事件过程:Private() 在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:程序运行后,在文本框中输入456,然后单击命令按钮,在输入对话框中输入123,则文本框中显示的内容是() 窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyDown事件过程如下: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Dim s As String s=Chr(KeyCode+35) Text2.Text=s End Sub 当向文本框Text1中输入小写字母a时,文本框Text2中显示的是 在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序: Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (a) d=UCase (b) Print c;d End Sub程序运行后,在文本框Text1、Text2中分别输入AbC和Efg,结果是______ 。 在窗体上画1个文本框,名称为Text1,然后编写如下程序:Private Sub Form_Load()Open "d:empdat.txt" For Output As 1Text1.Text=" "End SubPrivate Sub Text1 KeyPress(KeyAscii As Integer)If ()=13 ThenIf UCase(Tex
购买搜题卡 会员须知 | 联系客服
会员须知 | 联系客服
关注公众号,回复验证码
享30次免费查看答案
微信扫码关注 立即领取
恭喜获得奖励,快去免费查看答案吧~
去查看答案
全站题库适用,可用于E考试网网站及系列App

    只用于搜题看答案,不支持试卷、题库练习 ,下载APP还可体验拍照搜题和语音搜索

    支付方式

     

     

     
    首次登录享
    免费查看答案20
    微信扫码登录 账号登录 短信登录
    使用微信扫一扫登录
    登录成功
    首次登录已为您完成账号注册,
    可在【个人中心】修改密码或在登录时选择忘记密码
    账号登录默认密码:手机号后六位