更多"下列程序用来计算1+2+…n，当和大于100时停止计算，请填空。 P"的相关试题:
[填空题]下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，没有意义。请填空。
Private Sub Command1_Click（ ）
Dim x As Single
x=InputBox("请输入x的值!")
【 】
Case Is<50
y=0．8 * x
Case 50 To 100
y=0．7 * x
【 】
Print"输入的数据出界!"
End Select
Print x，y
End Sub
[填空题]下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，
没有意义。请填空。
Private Sub Command1_Click（ ）
Dim x As Single
x=InputBox("请输入x的值!")
【10】
Case Is<50
y=0．8 * x
Case 50 To 100
y=0．7 * x
【11】
Print"输入的数据出界!"
End Select
Print x，y
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
[填空题]给定年份，下列程序用来判断该年是否是闰年，请填空。
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);
[填空题]下列程序段的作用是控制窗体的显示与隐藏。请填空。
Private Sub Form_Click（ ）
Dim msg As Integer
Me. 【5】
MsgBox "单击Ok显示窗体"
Form1. 【6】
End Sub
[填空题]以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。
Private Sub Command1_Click（ ）
Dim a As Integer
a=0
Sum a, 1, 5, 2
Print "sum of 3 = "; a
a = 0
Call Sum(a, 1, 3, 5, 7, 9)
Print "sum of 5 = "; a
End Sub
Private Sub Sum(x As integer, 【3】
Dim y As Variant
For 【4】
x = x + y
Next y
End Sub
[填空题]以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。
Private Sub Command1_Click（ ）
Dim a As Integer
a=0
Sum a, 1, 5, 2
Print "sum of 3 = "; a
a = 0
Call Sum(a, 1, 3, 5, 7, 9)
Print "sum of 5 = "; a
End Sub
Private Sub Sum(x As integer, 【3】
Dim y As Variant
For 【4】
x = x + y
Next y
End Sub
