填空题

在E盘当前目录文件夹下建立一个名为“Student．txt’’’的顺序文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。　　Private Sub Form _ Click( ) 　　　　【】　　　　For i=1 To 5 　　　　　　StuName=InputBox("请输入姓名") 　　　　　　StuGrade=InputBox("请输入年级号") 　　　　　　StuAge=InputBox("请输入年龄") 　　　　　　【】　　　　Next i 　　　　【】　　End Sub

【参考答案】

Open"E:\Student．txt" For Output As #1

<上一题目录下一题>

热门试题

填空题

阅读程序：Option Base1Private Sub Form_Click( )Dim a(3)As IntegerPrint“输入的数据是：”； For i＝1 To 3a(i)=InputBox(“输人数据”)Print a(i)；NextPrintIf a(1)a(3) Thenm=a(2)Else If a(1)>a(3)Thenm=【】Elsem=【】End IfPrint“中间数是：”；mEnd Sub程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。

填空题

下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text 为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case【】 Print 您的成绩为优秀！ Case【】 Print 您的成绩为良好！ Case【】 Print 您的成绩为一般！ Case ElsePrint 您的成绩为一般以下！ End SelectEnd Sub

相关试题