填空题

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

填空题
下面程序运行后，单击命令按钮，输出的结果是【 】。Private Sub Commandl_Click( )Dim a％(1 To 4) ，b％(2 To 6) ，i％，strl#，str2#For i=1 To 4a(i) =iNext iFor i=2 To 6b(i) =iNext istr1 =YAG(a)str2 =YAG(b)Print strl ；str1; str2= ；str2End SubFunction YAG (a()As Integer)Dim T#，i％t=1For i=LBound(a) To UBound(a)t=t * a(i)Next iYAG =tEnd Function
填空题
下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：Dim PaintStart As Boolean编写如下事件过程：Private Sub Form_Load()DrawWidth=2ForeColor=vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，_X As Single，Y As Single)【 】 End SubPrivate Sub Form_MouseMove(Button As Integer，Shift As Integer，_X As Single，Y As Single)If PaintStart ThenPSet(X，Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer，Shift As Integer，_X As Single，Y As Single)【 】 End SubPrivate Sub Form_Db1Click()【 】 End Sub
相关试题