更多"在下面的程序中，要求循环体执行四次，请填空。 Private Sub"的相关试题:
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_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
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1 _ 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$ =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$ =Mid$(a$,i, 1)
If 【11】 Then x=x + 1
Next
Print "x ="; x
End Sub
[填空题]下面程序对已知数组b，删除数组中某指定值的元素，但程序不完整，请填空。
Private Sub Command1_Click（ ）
Dim m, n%, i%, j%
m=Array(1,3,5,29,34,50)
n=Val(InputBox("请输入要删除的值"))
For i=0 To UBound(m)
If (12) Then
For j=i+1 To UBound(m)
(13)
Next j
ReDim Preserve (14)
MsgBox("删除完成")
Exit For
End If
Next i
End Sub
[填空题]下面程序的功能是统计字符串中“广的个数，请填空。
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（ ）
Dim n As Integer
a$="Beijing University of Technology"
n=Len(a$)
For i=1 To n
b$=______
If b$="i" Then x=x+1
Next
Print "x=":x
End Sub
[填空题]下面程序的功能是两个整数进行交换，请填空。
sub(int * x，int *y)
{ 【19】
z=*x； *x= *y； *y=z；
return； }
main（ ）
{int m，n，*t1，*t2；
scanf("%d，%d"，&m，&n)；
t1＝&m；t2＝&n；
【20】
printf("%d，%d/n"，m，n)； }
