下列哪些情形应当撤销认证证书（）

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

下面程序的功能是统计字符串中"i"的个数，请填空。

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

下面这个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

ivate Sub numCount() Dim num As Integer s$="software And hardware" Num=Len(s$) For i=1 unm b$=。 If b$="a"Then x=x+1 Next i Print"x="；xEnd Sub

下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。

Private Sub Form_Click()

Dim n as integer,s as integer,I as integer,k as integer

s=0

k=0

n=inputbox(″请输入n的值)

For i=1 to 100

k=k+1

s=s+I

【 】

Next i

Print s

End Sub

下面程序的功能是调用sub函数计算数组a中字符串的长度，请填空。 sub(char s[]) { int n; for(n=0;【 】n++); return 【 】； } main() { char*a;int k; gets(a); 【 】 printf("%d",k);

设有如下程序：

Option Base 1

Private Sub Commandl Click()

Dim arrl

Dim Min As Integer，i As Integer

arrl=Array(12,435,76,-24,78,54,866,43)

Min=【 】

For i=2 To 8

If arrl(i)＜Min Then【 】

Next

Print"最小值是:";Min

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

下面程序的功能是()。 #include ＜iostream＞ #include ＜string＞ using namespace std; int main () { int i=1, n=0; char s[80],*p; p=s; strcpy(p,"It is a book.."); for (; *p !=' \0' ;p++) { if(*p=='') i=0; else if (i==0) { n++; i=1; } } cout＜＜"n=" ＜＜n＜＜end1; return 0; }

A．统计字符串中的单词个数

B．统计字符串中的空格个数

C．统计字符串中的字母个数

D．统计字符串中的全部字符个数

ivate Sub numCount() Dim num 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

代码补充完整。 Private Sub P9() 　　 Dim num As Integer，a As Integer，b As Integer，i As Integer 　　 For i＝1 To 10 　　　　　num ＝ InputBox("请输入数据："，"输入") 　　　　　If ________ Then 　　　　　　　________ 　　　　　Else 　　　　　　　b ＝ b ＋ 1 　　　　　End If 　　 Next i 　　 MsgBox("运行结果：偶数个数＝" & Str(a) & "，奇数个数＝" & Str(b)) End Sub