填空题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
a="National Computer Rank Examination"
n=Len(a):s=0
For i=1 To n
b=Mid(a,i,1)
If b="n" Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是______。

【参考答案】

D
<上一题 目录 下一题>
热门 试题

填空题
窗体上命令按钮Command1的事件过程如下： Private Sub Command1_Click() Dim total As Integer total=s(1)+s(2) Print total End Sub Private Function s(m As Integer) As Integer Static x As Integer For i=1 To m x=x+1 Next i s=x End Function 运行程序，第三次单击命令按钮Command1时，输出结果为______。
填空题
在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1_Click() Dim inData As String Text1.Text= Open d: myfile.txt For (7) As #1 Do While (8) Input #1.inData Text1.Text=Text1.Text+inData Loop Close #1 End Sub 程序的功能是：打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。
相关试题