网友您好，请在下方输入框内输入要搜索的题目：

搜题

题目内容（请给出正确答案）

提问人：网友zhengyytt 发布时间：2022-01-06

[主观题]

在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件data.txt，数据文件的内容是abc 10 20

在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件data.txt，数据文件的内容是

abc 10 20 30

efg 40 50 60

若运行程序，要在文本框中显示的内容是()。

Private Sub Form_Click()

Open "d:\data.txt" For Input As #10

Do Until EOF(10)

Line Input #10, lines

Text1.Text = Text1.Text + Mid(lines, 5, 2)

Loop

Close #10

End Sub

A.abc

B.1040

C.efg

D.10 20

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件data.txt，数据文件的内容是abc 10 20”相关的问题

第1题

（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load（) Open "d:

（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：

Private Sub Form_Load()

Open "d:\temp\dat.txt" For Output As #1

Text1.Text=""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

If UCase(Text1.Text)= 【14】 Then

Close #1

End

Else

Write #1, 【15】

Text1.Text=""

End If

End Sub

以上程序的功能是：在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按

回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容：如果输入“END”，则不写入

文件，直接结束程序。请填空。

点击查看答案

第2题

编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本

框Text1，将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。 option Explicit Private Sub Form. C1ick() Dim chl As String, fn As Integer Dim Str As String fn=【】 Open "C:\Config. sys" For Input As fn Do While Not EOF(【】) Line Input fn, chl Str=Str+chl+vbCrLf Loop Text1. Text=【】 End Sub

点击查看答案

第3题

在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFo

在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：

Private Sub Text1_LostFocus()

If Not IsNumeric(Text1) Then

MsgBox "帐号有非数字字符错误"

Text1.Text = ""

Text1.SetFocus

else

MsgBox "帐号正确"

End If

End Sub

当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为()

A.显示对话框，提示信息为"帐号正确"

B.显示对话框，提示信息为"帐号有非数字字符错误"

C.程序出错

D.没有任何提示

点击查看答案

第4题

有一个登录窗体Forlnl，窗体上有一个用于输入密码的文本框Textl和一个验证按钮Command1，已经设置单击该按钮后执行宏Macro1。以下能够正确运行宏MacrO1的操作是( )。

A.双击数据库窗口中的宏Macro1

B.单击登录窗体中的验证按钮Command1

C.在文本框Text1中输入密码后按＜Enter＞键

D.在VBA程序Module1中运行宏Macro1

点击查看答案

第5题

编写一过程将C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框

Text1，将其MultiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，请将程序补充完整。 Option Explicit Private Sub Form. _Click() Dim ch1 As String，fn As Integer Dim Str As String fn=【】 Open "C:\Config.sys" For Input As fn Do While Not EOF(【】) Line Input fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text =【】 End Sub

点击查看答案

第6题

在窗体上有若干控件，其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______ 。

A.TabStop

B.Enabled

C.Visible

D.Tablndex

点击查看答案

第7题

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是

A.TabStop

B.Enabled

C.Visible

D.TabIndex

点击查看答案

第8题

在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应使用的语句为（）

A.Text1．Clear

B.Text1．Visible = False

C.Text1．Hide

D.Text1．Enabled = False

点击查看答案

第9题

在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click（) X = Val（Inputbox（"输入x的值")) Y = 1 If X＜＞0 Then Y = 2 Text1.Value = Y End Sub 打开窗体运行，在输入框中输入整数12，文本框Text1中的结果是（)。

A.1

B.2

C.3

D.4

点击查看答案

第10题

在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程，Private Sub Form. Click（)x=In

在窗体上放一个文本框Text1，在文本框中输入456，并有如下事件过程， Private Sub Form. Click() x=InputBox("请输入一个整数") Print x+Text1. Text End Sub 单击该窗体，在输入对话框中输入123，单击“确定”按钮后，窗体上显示是()。

A．123

B．456

C．579

D．123456

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年成人自考大专用上课考试吗多久能考下来 2024自考本科考试时间及科目安排 2024年广东自考大专有哪些专业考哪些内容 2024年广东自考本科怎么选学校含金量高的推荐 2024年成人自考什么时候报名和截止考哪些内容 2024年成人自学考试的报名时间考哪些内容 2024年10月自学考试时间是什么时候 2024年10月自学考试时间及科目一览表 2024年自考成绩查询系统入口及网址 4月自学考试成绩什么时候公布多久可以查分

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次