更多"下面程序是用来打印九九乘法表的，请填空。 Private Sub F"的相关试题:
[填空题]下面程序是用来打印九九乘法表的，请填空。
Dim i As Integer，j As Integer，Str1 $
Str1=""
For i=1 To 9
For j=1 To 9
If (12) Then
Str1=Str1+Str$(j)+"×"+Str$(i)+"="+Str$(Val(i*j))
Else
Str1=Str1&Chr(13)
(13)
End If
Next
Next
Print Str1
[填空题]给定年份，下列程序用来判断该年是否是闰年，请填空。
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
[填空题]下面程序的功能是调用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);
[填空题]下列程序用来计算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+1
______
Next 1
Print s
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
[填空题]下面程序的功能是统计字符串中“广的个数，请填空。
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$=Mid$(a$,i,1)
If ______ 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(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)； }
[填空题]下面函数用来求两个单精度数之和，并通过形参将结果传回，请填空。
void sub(float x，float y, 【18】 z)
【19】 =x+y;
[填空题]下面函数用来求两个单精度数之和，并通过形参将结果传回，请填空。
Void sub(float x，noat y， 【19】 z)
{ 【20】 ＝x+y；}
