填空题

下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU( )
Dim n As Integer
a$ = "Beijing University of Technology"
n = Len(a$ )
For i = 1 To n
b$ =Mid$(a$,i, 1)
If 【11】 Then x=x + 1
Next
Print "x ="; x
End Sub

【参考答案】

b$="i\
<上一题 目录 下一题>
热门 试题

填空题
下列程序的功能是：将数据1,2,..,8写入顺序文件Num. txt中请补充完整。 Private Sub Form_Click ( ) Dim i As Integer Open Num. txt For Output As #1 For i = 1 To 8 【13】 Next Close #1 End Sub
填空题
下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1,2,3,... ,90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click( ) Dim Y As Single Open 【15】 Y=3. 14159 180 For i=1 To 90 Ksc. K=i Ksc. Sinx = Sin ( i * Y) Ksc. Cosx = Cos ( i * Y) Put #2, i, Ksc Next i Close #2 End Sub
相关试题