下列程序段的功能为:单击窗体后,在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
第1题:
在考生文件夹下有“xx”数据库。
在“窗体1”窗体中添加标签和名称相同的文本框“请输入学号”和“学生姓名”,添加“显示学生姓名”按钮,编写程序实现输入学号后单击“显示学生姓名”按钮后显示学生姓名。要求用Dlookup()函数实现。窗体设计如图所示。
第2题:
在窗体上画一个文本框,名称为Textl,然后编写如下程序:
Private Sub Form_Load()
Open”d:\temp\dat.txt”For Output As1
Textl.Text=“”
End Sub
Private Sub Textl KeyPress(KeyAscii As Integer)
IfKeyAscii=13 Then
If UCase(Textl.Text)=【 】Then
Close1
End
Else
Write1,【 】
Textl.Text=…
End If
End If
End SUb
以上程序的功能是:在D盘temp文件夹下建立一个名为dat.txt的文件,在文本框中输入字符,每次按回车键都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则不写入文件,直接结束程序。请填空。
第3题:
完成附件中后两个截图所示的程序。要求: 1.主程序启动后,姓名栏中输入姓名如:“张三”,单击“进入子页面”按钮后,在子页面的上部显示在主程序中输入的姓名。 2.单击“返回” 按钮。返回主程序。 3.提交程序运行视频及App文件夹。
第4题:
在窗体上画一个文本框,然后编写如下事件过程: Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容为
A.123
B.456
C.579
D.123456
第5题:
下面一段程序的功能是,单击窗体弹出对话框。在对话框中输入一个文件名,窗体中输出该文件名的文件号。请填空。
Private Sub Form_ click()
filename = InputSox (“请输入文件名”)
Filecode =
Open filename For Output As Filecode
Print filename; “的文件号是”; Filecode
Close Filecode
End Sub