( 6 ) 下面程序的功能是从键盘输入 1 大于 100 的整数 m ,计算并输出满足不等式
1+22+32 +42 + …… .+n2<m
的最大的 n 。请填空
Private Sub Command1__Click ()
Dim s ,m,n AS Integer
m=Val ( InputBox ( “ 请输入一个大于 100 的整数 ” ))
n=_________
s=0
Do While s<m
n=n+1
s=s+n*n
Loop
Print “ 满足不等式的最大 n 是_____
End Sub
第1题:
1、编写程序,定义数组a[50],编程实现以下功能: (1) 输入50个整数(存于整数数组a中); (2) 计算并输出最小值(记为min); (3) 计算并输出最大值(记为max); (4) 按从大到小的顺序排序后输出,每行输出10个。
第2题:
定义一个计算n!的函数,从键盘输入整数n,调用函数计算并输出结果。
第3题:
下面程序的功能是计算并输出100以内能被4和7同时整除的所有整数,请填空。 Private Sub Form_Click() Dim i% For i = 28 To 100 If i Mod 4=0_____i Mod 7=0 Then Print i Next i End Sub
第4题:
从键盘输入两个正整数 a 和 b ,计算并输出 a除b的商和余数。
第5题:
编写一个程序,从键盘输入一个四位整数n,输出它的各位数字之和,并逆序输出。 例如:n=1203,则输出6,3021 n=3024,则输出9,4203