网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列程序段的功能为：单击窗体后，在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
参考答案
更多 “ 下列程序段的功能为：单击窗体后，在D盘Temp目录下address.txt 文件中输入“张三，20，Male”。请填空。Private Sub form_ click()Dim name As StringDim age As IntegerDim sex As Stringname = "张三": age = 20: sex = "Male"Open "D:\temp\CodE．txt" For Append As 1______1, name, age, sex______End Sub ” 相关考题
考题
在窗体上画1个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load（）Open"d:\temp\dat.txt"For Output As#1Text1.Text=""End SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）lf【13】=13 ThenIf UCase（Text1.Text）=______ThenClose 1EndElseWrite#1,______Text1.Text=""End IfEnd IfEnd Sub以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。
考题
（ 11 ）在窗体上画 1 个文本框，名称为 Text1 ，然后编写下列事件过程：Private Sub Form_Load( )Open"d:\temp\dat.txt"For Output As#1Text1.Text= “ “End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)lf 【 13 】 =13 ThenIf UCase(Text1.Text)= 【 14 】 ThenClose 1EndElseWrite#1 , 【 15 】Text1.Text=" "End IfEnd IfEnd Sub以上程序的功能是：在 D 盘 temp 目录下建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键（回车符的 ASCII 码是 13 ）都把当前文本框中的内容写入文件 dat.txt ，并清除文本框中的内容 ； 如果输入 “ END ” ，则结束程序。请填空。
考题
（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load( )Open "d:\temp\dat.txt" For Output As #1Text1.Text=""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf UCase(Text1.Text)= 【14】 ThenClose #1EndElseWrite #1, 【15】Text1.Text=""End IfEnd IfEnd Sub以上程序的功能是：在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。
考题
下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的datA.txt文件中。请填空。Private Sub Command1_Click()Dim a As IntegerOpen【 】For Output As 100RandomizeFor i =1 To 10a=100+Int(899*RnD) 【 】Next iClose 100End Sub
考题
在考生文件夹下有“xx”数据库。在“窗体1”窗体中添加标签和名称相同的文本框“请输入学号”和“学生姓名”，添加“显示学生姓名”按钮，编写程序实现输入学号后单击“显示学生姓名”按钮后显示学生姓名。要求用Dlookup()函数实现。窗体设计如图所示。
考题
在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为A．123B．456C．579D．123456
考题
在窗体上画一个文本框，名称为Textl，然后编写如下程序：Private Sub Form_Load()Open”d：＼temp＼dat．txt”For Output As1Textl．Text=“”End SubPrivate Sub Textl KeyPress(KeyAscii As Integer)IfKeyAscii=13 ThenIf UCase(Textl．Text)=【 】ThenClose1EndElseWrite1，【 】Textl．Text=…End IfEnd IfEnd SUb以上程序的功能是：在D盘temp文件夹下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。
考题
下面一段程序的功能是，单击窗体弹出对话框。在对话框中输入一个文件名，窗体中输出该文件名的文件号。请填空。Private Sub Form_ click()filename = InputSox (“请输入文件名”)Filecode =Open filename For Output As FilecodePrint filename; “的文件号是”; FilecodeClose FilecodeEnd Sub
考题
完成附件中后两个截图所示的程序。要求： 1.主程序启动后，姓名栏中输入姓名如：“张三”，单击“进入子页面”按钮后，在子页面的上部显示在主程序中输入的姓名。 2.单击“返回” 按钮。返回主程序。 3.提交程序运行视频及App文件夹。
热门标签
最新试卷