[填空题]一下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序，并完成程序。 Private Sub Command1_Click（　） For a=1 to 50 For b=a to 50 c=Sqr(a^2+b^2) If 【15】 then print a;b;c next b next a end Sub c＜=50 And c=Int(c)

[填空题]一下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序，并完成程序。 Private Sub Commandl C土ick（　） For a＝l to 50 For b＝a to 50 C＝Sqr(a∧上标2＋b∧上标2) If【15】then print a；b；c next b next a end Sub C＜＝50 And C＝Int(c)

[填空题]以下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序，并完成程序。 Private Sub Command1_Click（　） For a=1 to 50 For b=a to 50 c=Sqr(a^2+b^2) If 【14】 then print a；b；c Next b Next a end Sub c＜=50 And c=Int(c)

[填空题]以下程序找出50以内所有能构成直角三角形的整数组。阅读下列程序，并完成程序。
Private Sub Command1_Click（　）
For a=1 to 50
For b=a to 50
c=Sqr(a^2+b^2)
If 【14】 then print a；b；c
Next b
Next a
end Sub
c＜=50 And c=Int(c)

[填空题]以下程序找出50以内所有能构成直角三角形的整数组。请在程序 【15】 处填上正确内容。
Private Sub Command1_ Click（　）
for a = 1 To 50
for b = a To 50
c = Sqr(a ^2 + b ^2)
if 【15】 then Print a; b; c
Next b
Next a
End Sub

[填空题]以下程序找出50以内所有能构成直角三角形的整数组。请在程序 【15】 处填上正确内容。 Private Sub Command1_ Click（　） for a = 1 To 50 for b = a To 50 c = Sqr(a ^2 + b ^2) if 【15】 then Print a; b; c Next b Next a End Sub

[简答题]

程序改错
下列程序的功能是找出100~999以内同时满足以下条件的数:个位数字与十位数字之和与10的模等于百位数;该数是素数(仅能被1和本身整除的数称为"素数’’)。例如,101、21l、239等。要求:
(1)将下列程序输入到项目中的程序文件PCODE中,并对其中的2条错误语句进行修改;
(2)在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
CLEAR
FOR i=1 To 999
yn=.T.
FOR j=3 TO i-1
IF MOD(j,i)=0
yn=.F.
EXIT
ENDIF
ENDFOR
IF yn
s=STR(i,3)
s1=SUBS(s,3,1)
s2=SUBS(s,2,1)
s3=SUBS(s,1,1)
IF MOD(VAL(s1)+VAL(s2))=VAL(s3)
i
ENDIF
ENDIF
ENDFOR

[简答题]下列程序的功能是：找出所有100以内(含100)满足I，I+4，I+10都是素数的整数I(1+10也是在100以内)的个数cnt，以及这些I之和sum。请编制函数countValue（　）实现程序要求，最后调用函数writeDAT（　）把结果cnt和sum输出到文件out64.dat中(数值1不是素数)。
注意：部分源程序已给出。
请勿改动主函数main（　）和输出数据函数writeDAT（　）的内容。
试题程序：
#include＜stdio.h＞
int cnt, sum;
int isPrime(int number)

int i,tag=1;
if (number==1)
return 0;
for(i=2;tag && i＜=number/2;i++)
if(number%i==0) tag=0;
return tag;

void countValue ( )


void main( )

cnt=sum=0;
countValue ( );
printf ( "满足条件的整数的个数=%d/n", cnt);
printf ( "满足条件的整数的和值=%d/n", sum);
writeDAT ( );

writeDAT ( )

FILE *fp;
fp=fopen("out64.dat","w");
fprintf(fp,"%d/n%d/n",cnt,sum);
fclose(fp);

[填空题]以下程序调用随机函数得到N个20以内的整数放在s数组中。函数fun的功能是找出s数组中的最大数(不止一个)所在下标传回主函数进行输出，并把最大值作为函数值返回，请填空。
#define N 30
man（　）
int s[N]，d[N]，i，k，m；
for(i＝0,i＜N；i++)s[i]＝rand（　）%20；printf("%3d"，s[i])；
m＝fun( 【13】 )；
printf("m=%d/n"，m)；
printf(”The index ;/n")；
for(i=0；i＜k；i++)printf("%4d"，d[i])；
printf("/n/n")；

fun(int*w，int*d，int * k)
int i，j，m=0，v；
for(i=0；i＜N；i++)
if(w[i]＞w[m]) 【14】 ；
v＝w[m]；
for(i=0，j=0;i＜N；i++)
if(w[i]＝＝v) 【15】 ；
*k＝ 【16】 ；
return 【17】 ；

[填空题]下列程序的功能是，单击命令按钮时随机生成15个100以内的正整数，放到3×5的数组中，找出该数组中最大的元素，并指出该元素的行标和列标。请填空。 Option Base 1 Private Sub Command1_Click（　） Dim a(1 To 3, 1 To 5) As Integer, n As Integer, m As Integer Dim maximum As Integer, max n As Integer, max_m As Integer Randomize For m=1 To 3 For n = 1 To 5 a(m, n)= 【3】 Next n Next m maximum＝a(1, 1) max n=1 : max m=1 For i = 1 To 3 For j=1 To 5 If 【4】 Then maximum=a(i, j) max m=i max_n=j End If Next j Next i Print maximum, max m, max n End Sub

[单项选择]______程序可以找出C语言源程序中的语法错误。
A. 汇编
B. 预处理
C. 编辑
D. C语言编译

[填空题]以下程序输出100以内的所有质数。
public class Class29

public static void main(String[] args)

int i，j，k=0；
System. out. println("100以内的质数有：")；
for(i=3；i＜=100；i++)

for(j=2；j＜=i/2；j++)

if(i%j==0)______；

if______

System. out. print(i+" ")；
k++；
if(k%8==0) System. out. println（　）；


System. out. println("共"+k+"个。")；

[填空题]

本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。
Option Explicit
Private Sub CmdRun_Click（　）
Dim m As Integer,sum As Integer,st As String
Dim i As Integer,j As Integer,k As Integer
m=Text1
For i=1 To m-1
（）
For j=i To m
sum=（）
If sum=m Then
st="" ’st赋以空值
For k=i To j
st= （）
Next k
List1.AddItem Left(st,Len(st)-1)
End If
Next j
Next i
End Sub

[简答题]在考生文件夹下有一个工程文件sjt5.vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a²+b²=c²。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计均在60以内的三个数满足上述关系的整数组合的个数，并显示在标签Label1中。
注意：不得修改原有程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。

[填空题]下列程序的功能找出披5、7除，余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。 PrivateSubForm_Click（） DimNcount%，n% Ncount＝0 n＝1 Do n＝n＋1 If______Then Debug．Printn Ncount＝Ncount＋1 EndIf LoopUhdlNcount＝5 EndSub

[填空题]下面的程序随机产生10个小于100的整数，并找出其最大值、最小值和平均值，请将程序补充完整。(此程序是VB语言编写)
Private Sub Form_Click( )
Dim a(1 To 10)As Integer
Dim m_max As Integer, m_min As Integer
Dim s As Single
Randomize
For i=1 To 10
a(i)=______
Print a(i)
Next i
m max=0: m min=100
For i=1 To 10
If a(i)＞m_max Then______
If a(i)＜m_min Then m min=a(i)
s=______
______
Print"最大值是:"; m_max
Print"最小值是:"; m_min
PIint"平均值是:"; ______
End Sub

[填空题]下列程序的功能是找出被5和7除余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Form_Click（　）
Dim Ncount%，n%
Ncount=0
n=0
Do
n=n+1
If______Then
Debug.Print n
Ncount=Ncount+1
End If
Loop Until Ncont=5
End Sub