填空题

下列程序实现的功能是:当在窗体上单击时,将在窗体上输出c:\a1.txt文件中的所有小写字母。
Private Sub Form_Click()
Dim Ch As String*1
Open"c:\a1.txt"For Input As #10
Do While 【13】
Ch=Input(1,#10)
If 【14】 Then
Print Ch;
End If
Loop
【15】
End Sub

【参考答案】

[13]Not EOF(10) [14]Ch>="a" And Ch<="z" [15]Close #10
<上一题 目录 下一题>
热门 试题

填空题
假设窗体中已经有了一个驱动器列表框Drivel和一个目录列表框Dirl,如图20-10所示。当改变了驱动器列表框中的驱动器时,希望在目录列表框中显示相应驱动器的目录结构,可在Drive1_Change事件中输入语句 【7】 。
填空题
以下程序的功能是每隔一定的时间在窗体的文本框中显示当前时间,刷新的时间间隔由滚动条来设定。窗体中有三个控件:文本框控件Text1用来显示当前时间,水平滚动条控件Hscroll1用来设置Timer1控件发生Timer事件的时间间隔,计时器控件Timer1用来控制每隔一定的时间在Text1中显示一次时间。程序运行的界面如图20-11所示,代码如下,请填空。 Private Sub HScroll1_Change() Timer1.Interval= 【8】 End Sub Private Sub Timer1_ 【9】 () Text1.Text=Time End Sub
相关试题
  • 随机生成的10个两位数,求出它们的总和和...