更多"在下面的程序中，要求循环体执行四次，请填空。 Private Sub"的相关试题:
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Commandl_Click（ ）
x=1
Do While 【13】
x=x+2
Loop
End Sub
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Commandl_Click（ ）
x=1
Do While 【13】
x=x+2
Loop
End Sub
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command l-Click （ ）
x=l
Do While 【13】
x=x+2
Loop
End Sub
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_click（ ）
x=1
Do While 【13】
x=x+2
Loop
End Sub
[填空题]下面程序的功能是调用sub函数计算数组a中字符串的长度，请填空。
sub(char s[])
int n;
for(n=0; 【18】 n++);
return 【19】 ；
main（ ）
char*a;int k;
gets(a);
【20】
printf("%d",k);
[填空题]给定年份，下列程序用来判断该年是否是闰年，请填空。
Sub YN( )
Dim X AS Integer
x＝Input Box("请输入年号")
If( x Mod 4=0 【 】 x Mod l00< >0) 【 】 (x Mod 400=0)Then
Print"是闰年"
Else
Print"不是闰年，是普通年份"
End If
End Sub
[填空题]给定年份，下列程序用来判断该年是否是闰年，请填空。
Sub YN( )
Dim X AS Integer
x＝Input Box("请输入年号")
If( x Mod 4=0 【10】 x Mod l00< >0) 【11】 (x Mod 400=0)Then
Print"是闰年"
Else
Print"不是闰年，是普通年份"
End If
End Sub
[填空题]下面程序是用来打印九九乘法表的，请填空。
Private Sub Form_Click（ ）
Dim flag As Integer,i As Integer,j As Integer,Str1$
Str1＝“”
For i＝1 To 9
【11】
For j＝1 To 9
If 【12】 Then
str1=str1+Str$(j)+“*”+Str$(i)+“=”+Str$(Val(i*j))
Else
str1＝str1 & Chf(13)
Exit For
End If
Next j
Next i
Print str1
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
[填空题]下面程序的功能是统计字符串中“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
