举一反三
- 下面程序的功能是统计字符串中“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
- 下面程序的功能是统计字符串中“i”的个数请填空。 Sub COU( ) Dim n As Integer a$ =" Beijing University of Technology" n = Len(a$) For i = 1 To n b$ = 【15】 If b$ ="i" Then x=x+1 Next Print" x="; x End Sub
- 下面程序的功能是统计字符串中“广的个数，请填空。 Sub COU( ) a$="Beijing University of Technology" Dim n AS Integer n=Len(a$) For i=1 To n b$= 【12】 If 【13】 Then x=x+1 Next i Print "x="；x End Sub
- 运行下面的程序，第二行显示结果是___________。 Private Sub Form_Click() Dim A As Integer Dim i As Integer A = 5 For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub Private Sub sub1(x As Integer, y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 2 Next I y = y + N End Sub
- 下面这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码完成程序。 Private Sub numCount() Dim hum As Integer s＄ = "software And hardware" num = Len(s$) For i = 1 To hum b$=______ If b$ = "a" Then x = x+1 Next i Print "x="; x End Sub
内容
- 0
声明一个变量为局部变量应该用（ ）。 A: Private Sub Command1 Click() n=5：x=1 Do X=X * I I=I + 1 Loop While I ＜ n Print x End Sub B: Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End Sub C: Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End Sub D: Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＞n Print X End Sub
- 1
下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。 Private Sub numCoun() Dim num As Integer s＄="software And hardware" num=Len(s＄) For i=1 To num b＄=______ Ifb＄="a"Then x=x+1 Next i Print "x=";x End Sub
- 2
下列这个Sub过程的功能是：统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。 Private Sub numCount() Dim num As Integer S$="software And hardware" num=Len(s$) For i=1 To num b$=______ Ifb$="a" Then x=x+1 Next i Print "x=";x End Sub
- 3
如下程序的运行结果是【1】. Private Sub Command1_Click() Dim x As Integer x = 12 f2 x Print x End Sub Public Sub f2(n As Integer) n = n Mod 10 End Sub
- 4
已知B的ASCⅡ码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数。 Dim [10] Fori=65 To 90 pp(i)=0 Next x$=InputBox("Enter a string",K$) x$=U Case$(x$) Fori=1 To Len(x$) n=Asc(Mid$(x$,i,1)) If n＞=65Andn＜=90Then [11] End If Nexti Fori=65 To 90 If pp(i)＞Then Print Chr$(i);pp(i) End If Next