填空题

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

【参考答案】

Not EOF(10) Ch＞＝"a"And Ch＜="z" Close #10

<上一题目录下一题>

热门试题

填空题

在窗体上建立名称为Text1、Text2和删的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为command1的命令按钮，单击它将得到数M从右边起的N位数字，并把该数字显示在Text3文本框中，如下图所示。请填空。 private Fuction digit(ByVal m As Integer, ByVal n As Integer) As Integer Dim i As Integer For i = 1 To n - 1 M=m 10 Next i Digit= 【6】 End Function Private Sub Command1_Click() Dim m As Integer，n As Integer，k As Integer m=Val(Text1.Text) n=Val(Tex2.Text) k= 【7】 Text3.Text = Str(k) End Sub

填空题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Colnmand1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮command1变为可用。请将程序补充完整。 Private Sub Form_Load() Command 1.Enabled=False End Sub Private SubText1 【2】 () Command1.Enabled=True End Sub

相关试题