填空题

在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
<上一题 目录 下一题>
热门 试题

填空题
某人编写如下函数来判断a是否为素数,若是,则函数返回True；否则返回False。 Function prime(a As Integer)As Boolean Dim k As Integer,isprime As BooleanIf a<2 Thenisprime=FalseE1seisprime=Truek=2 Do While k<a／2 And isprimeIf a Mod k=0 Then isprime=FalseE1sek=k +1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有1个非素数也被判断为素数,这个错判的数是【 】
填空题
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。Private Sub Command1_Click()Dim a As Integer，n As Integer，Cout As IntegerDim Sn As Long，Tn As LongCout=1Sn=0Tn=0a=InputBox( 请输入a的值： )【 】 DoTn=Tn * 10 + aSn二Sn + TnCout=Cout+1【 】 Debug．Print a，n，SnEnd Sub
相关试题