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

[主观题]

下列程序段的功能为：单击窗体后，在D盘Temp目录下address.txt 文件中输入“张三，20，Male”。请填空。 Private Sub form_ click（) Dim name As String Dim age As Integer Dim sex As String name = "张三": age = 20: sex = "Male" Open "D:empCode.txt"

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“下列程序段的功能为：单击窗体后，在D盘Temp目录下addr…”相关的问题

第1题

下列程序段的功能为：单击窗体后，在D盘Temp目录下address.txt 文件中输入“张三，20，Male”。请填空。P

下列程序段的功能为：单击窗体后，在D盘Temp目录下address.txt 文件中输入“张三，20，Male”。请填空。

Private Sub form_ click()

Dim name As String

Dim age As Integer

Dim sex As String

name = "张三": age = 20: sex = "Male"

Open "D:\temp\CodE．txt" For Append As 1

______1, name, age, sex

______

End Sub

点击查看答案

第2题

在窗体上画1个文本框，名称为Text1，然后编写如下程序： PrivateSubForm_Load（） Open"d:\te

在窗体上画1个文本框，名称为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）

lf【13】=13 Then

If UCase（Text1.Text）=______Then

Close 1

End

Else

Write#1,______

Text1.Text=""

End If

End Sub

以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。

点击查看答案

第3题

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写下列事件过程：Priva

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写下列事件过程：

Private Sub Command1_Click()

CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"_

&"(*.txt)|*.txt|Batch Files(*.bat)|*.bat"

CommonDialog1.FilterIndex=1

CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

End Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是【】；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是【】。

点击查看答案

第4题

（11 ）在窗体上画 1 个文本框，名称为 Text1 ，然后编写下列事件过程：Private Sub Form_Load（)Ope

（11 ）在窗体上画 1 个文本框，名称为 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)

lf 【 13 】 =13 Then

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

Close 1

End

Else

Write#1 , 【 15 】

Text1.Text=" "

End If

End Sub

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

车键（回车符的 ASCII 码是 13 ）都把当前文本框中的内容写入文件 dat.txt ，并清除文本框中的内容；如

果输入 “ END ” ，则结束程序。请填空。

点击查看答案

第5题

要在D盘的Temp 目录下建立一个名为NamE．dat 的顺序文件，应使用______语句。A．Open "NamE．dat" For

要在D盘的Temp 目录下建立一个名为NamE．dat 的顺序文件，应使用______语句。

A．Open "NamE．dat" For Output As #1

B．Open "NamE．dat" For Input As #1

C．Open "D:\Temp\NamE．dat" For InputAs #1

D．Open "D:\Temp\NamE．dat" For Output As #1

点击查看答案

第6题

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt，复制到 D盘，并取名为a2.txt。 Private Sub Form_Click（)Dim Ch As StringOpen "c:a1.txt" For 【8】 As 10Open "d:a2.txt" For Output As 20Do While 【9】 Line Input 10, Ch 【10】 LoopClo

点击查看答案

第7题

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个名称为Command1的命令按钮，并编写如

下事件过程：

Private Sub Command1_ Click()

CommonDialogFlags = cd10FNHideReadOnly

CommonDialogFilter= "All Files (*.*) ｜*.* ｜Text Files" &

"(*.txt ｜*.txt｜Batch Files (*.bat)｜*.bat)"

CommonDialogFilterIndex = 1

CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

End Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 ______；如果在对话框中选择D盘temp 目录下的te1.txt 文件，然后单击“确定”按钮，则在信息框中显示的提示信息是______。

点击查看答案

第8题

下列程序实现的功能是：当在窗体上单击时，把C盘根目录下的文件a1.txt复制到D盘，并取名为 a2.txt，

请填宁。 Private Sub form_ Click() Dim Ch As String Open "c:\a1. txt, for【】As 10 Open "d:\a2.txt" for Output As 20 do while【】 Line Input 10, Ch 【】 Loop Close 10 Close 20 End Sub

点击查看答案

第9题

在考生文件夹中有一个工程文件execise7.vbp及窗体文件exeeise7.frm。在名为Form1的窗体中已经给出

了所有控件，如下图所示。

编写适当的事件过程完成以下功能：单击Read按钮，则把考生目录下的in7.txt文件中的一个整数放入Text1；单击Calc按钮，则计算出大于该数的第1个素数，并显示在Text2中；单击Save按钮，则把找到的素数存到考生目录下的out7.txt文件中。

注意：

在结束程序运行之前，必须单击Save按钮，把结果存入out7．txt文件，否则无成绩。最后把修改后的文件按原文件名保存。

点击查看答案

第10题

在考生文件夹中有一个工程文件execise54.vbp设窗体文件execise54.frm。在窗体Form1中已经给出了所

有控件，如下图所示。

编写适当的事件过程实现以下功能；单击Read按钮，则把考生目录下的in54.txt文件中的一个整数放入Text1；单击Calc按钮，则计算出小于该数的最大素数，并显示在Text2中；单击Save按钮，则把找到的素数存到考生目录下的out54.txt文件中。

注意：

在结束程序运行之前必须单击Save按钮，把结果存入out54.txt文件，否则无成绩。最后把修改后的文件按原文件名保存。

点击查看答案