更多"以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余"的相关试题:
[填空题]以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。
该程序运行结果见下图。
Private Sub Form_ click（ ）
Dim s(10, 10) As Integer
For n = 1 To 10
For m = 1 To 10
If 【12】 Or 【13】 Then
s (n, m) = 1
Else
s (n, m) = 0
End If
Next m
Next n
For n = 1 To 10
For 【14】 。
Picturel. Print Tab(m * 3); s(n, m)
Next m
Print
Next n
End Sub
[填空题]下面程序用于计算矩阵的两条对角线上的元素之和。补充下列语句，实现该功能。
#include＜iostream.h＞
void main（ ）{
int a[3]，[3]={9，8，7，6，5，4，3，2，1}；
int sum1=0，sum2=0，i，j;
for(i=0；i＜3；i++)
for(j=0；j＜3；j++)
if(i==j)sum1+=a[i][j]；
for(i=0；i＜3：i++)
for(j=2； [8] ；j--)
if(i+j==2)sum2+=a[i][j]；
}
[填空题]下面程序用于计算矩阵的两条对角线上的元素之和。补充下列语句，实现该功能。
#include＜iostream.h＞
void main（ ）
int a[3]，[3]=9，8，7，6，5，4，3，2，1；
int sum1=0，sum2=0，i，j;
for(i=0；i＜3；i++)
for(j=0；j＜3；j++)
if(i==j)sum1+=a[i][j]；
for(i=0；i＜3：i++)
for(j=2； [8] ；j--)
if(i+j==2)sum2+=a[i][j]；
[填空题]以下程序代码使用二维数组A表示矩阵，实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1，其余元素值全为0，请补充完该程序。
Private Sub Command1_click（ ）
Dim A(4，4)
For I=1 To 4
For J= 1 To 4
【12】 =1
Next I
【13】
【14】
Next J
For i=1 To 4
For j=1 To 4
Print A(i，j)：
Next j
Print
Next I
End Sub
[填空题]以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示：
·当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。
·当a=0，b＜＞0时，有一个根。
·当a=0、b=0时，方程无意义。
Private Sub Command1_Click（ ）
Dim a As Single
Dim b As Single
Dim c As Single
Dim sb As Single
Dim xb As Single
Dim re As Single
a = InputBox (“请输入a的值”)
c = InputBox(“请输入c的值”)
if 【10】 then
delta = b ^2- 4 * a * c
re = -b/(2 * a)
if 【11】 then
sb = Sqr (delta)/(2 * a)
Print “方程有两个实根”
Elseif delta = 0 then
Print “方程有两个相等实根”
Else
xb = Sqr( - delta)/(2 * a)
Print “方程有两个虚要”
End if
Else
if 【12】 then
ygz = - b / c
Print “方程仅有一个根”
Else
print “方程无意义”
End if
End if
End Sub
[填空题]以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示：
·当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。
·当a=0，b＜＞0时，有一个根。
·当a=0、b=0时，方程无意义。
Private Sub Command1_Click（ ）
Dim a As Single
Dim b As Single
Dim c As Single
Dim sb As Single
Dim xb As Single
Dim re As Single
a = InputBox (“请输入a的值”)
c = InputBox(“请输入c的值”)
if 【10】 then
delta = b ^2- 4 * a * c
re = -b/(2 * a)
if 【11】 then
sb = Sqr (delta)/(2 * a)
Print “方程有两个实根”
Elseif delta = 0 then
Print “方程有两个相等实根”
Else
xb = Sqr( - delta)/(2 * a)
Print “方程有两个虚要”
End if
Else
if 【12】 then
ygz = - b / c
Print “方程仅有一个根”
Else
print “方程无意义”
End if
End if
End Sub
[单项选择]以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Cotmand1_Click（ ） Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End Sub
A. i Mod 2= 0
B. x mod 2=0
C. I mod 2＜＞0
D. x mod 2＜＞0
[简答题]请完成下列Java程序：查找一个矩阵中的鞍点，对于一个二维数组中的鞍点，该点位置上的元素在该行上最小，在该列上最大，也可能没有鞍点。数组大小为4行5列。
注意：请勿改动main（ ）主方法和其他已有的语句内容，仅在横线处填人适当的语句。
public class ex12_2{
public static void main(String[] args){
int i,j,flag,m=4，n=5；
int[] min=new int[4]；
int[] max=new int[5]；
int r[][]={{2,5,6,7,9}，
{32,65,2,78,12}，
{1,8,5,96,4}，
{5,3,21,73,23}}；
flag=0；
for(i=0;i＜m;i++){//获取元素在该行上最大
min[i]=r[i][0]；
for(j=1;j＜n;j++)
if(r[i][j]＜min[i])
__________；
}
for(j=0;j＜n;j++){//获取同一元素在该列上最大
max[j]=r[0][j]；
for(i=1;i＜m;i++)
if(r[i][j]＞max[j])
__________；
}
for(i=0;i＜m;i++)
for(j=0;j＜n;j++)
if(min[i]==max[j]){ ，
System.out.print("("+i+"，"+j+")："+r[i][j])；
flag=1；
}
if(flag==0)
System.out.println("没有鞍点!")；
}
}
[简答题]请补充完整程序，使得程序能实现以下功能：
从文件IN.dat中读取200个整数至数组number中，求出最大数max及最大数的个数cnt和数组number中能被3整除或能被7整除的算术平均值ave(保留2位小数)。把结果max、 cnt、ave输出到OUT. dat文件中。
注意：部分程序、读数据函数read_ dat (int number[200])及输出格式已给出。
#include ＜conio. h＞
#include ＜stdio. h＞
#define N 200
void read_ dat(int number[N])
int i, j;
FILE *fp;
fp = fopen("IN. dat", "r");
for (i=0; i＜20; i++)
for (j=0; j＜10; j++)
fscanf(fp, "%d,", &number[i*10+j]);
printf("%d ", number[i*10+j]);
printf ("/n");
fclose (fp);void main （ ）
int cnt, number[N], max;
float ave;
FILE *fw;
int i, k; ’
long j = 0;
fw = fopen("OUT.dat", "w");
read_ dat (number);
/ ************************************************ /
/ ************************************************ /
printf("/n/nmax=%d, cnt=%d, ave=%6.2f/n", max, cnt, ave);
fprintf(fw, "%d/n%d/n%6.2f/n", max, cnt, ave);
fclose (fw);
[单项选择]
设一个MxN矩阵已存储在数组A(M，N)中，下面的程序段用来计算（）。
sum＝0.0
do 10 j＝2，n-1
sum=sum+a(1，j)+a(m，j)
10 continue
do 20 j＝1，m
sum=sum+a(j，1)+a(j，n)
20 continue
A. 矩阵所有靠边元素的和
B. 矩阵所有不靠边元素的和
C. 矩阵所有元素的和
D. 矩阵两条对角线上元素的和
[填空题]以下程序功能为仅接受输入Y或N，否则程序结束，请补充完整。
DO WHILE.T.
WAIT”请输入y/n”T0 YN
IF UPPER(YN)<>”N”
[]
ELSE
[8]
ENDIF
ENDDO
