填空题

下列程序实现的功能是：在窗体上单击时，将在窗体上输出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
填空题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 3 For j=1 To 4 If j Mod 2＜＞0 Then a=a+1 End If a=a+1 Next j Next i Print a End Sub 程序执行后，单击命令按钮，输出结果是 【3】 。
相关试题