填空题

下面程序的功能是统计字符串中“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\
<上一题 目录 下一题>
热门 试题

填空题
下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时, Private Sub Command1_Click() Dim x As Single x = InputBox( 请输入x的值 ) Select Case x Case Is＜50 y=0.8 * x Case 50 To 100 y=0.7 * x 【12】 Print 输入数据出界! End Select Print x, y End Sub
填空题
下列程序的功能是：将数据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
相关试题