一下程序的作用是生成一个10×10的矩阵.该矩阵主对角线上的数据为1,其余数据为0(程序运行结果如下图所示)。该程序不完整,请补充完改程序。
Private Sub Command1_Click()
Dim a(10,10)As Integer
For i=1 To【 】
For j=1 To 10
If【 】Then
【 】=1
Else
a(i,j)=0
End If
Next j
Next i
For i =1 To 10
For j=1 To 10
Print a(i,j);
Next j
Next i
End Sub
第1题:
编写一个主程序,生成一个菜单界面,当输入1时,调用矩阵赋值函数,为5*5的矩阵赋初值;当输入2时,调用矩阵转置函数,对该矩阵进行转置操作;当输入3时,将该矩阵上三角所有元素值变成0;当输入4时,求该矩阵对角线所有元素的平均值;当输入5时,将该矩阵下对角线元素变成1,当输入0时,退出程序。
第2题:
分别计算矩阵a的两条对角线上的元素之和。 解题思路:行列数相同的矩阵主对角线上所有元素的下标值具有行列相等的特征;矩阵辅对角线上所有元素的下标值具有行与列之和等于该矩阵的最大列下标值(或最大行下标值)的特征。 1、无需输入数据,矩阵数据直接在程序内赋值,输入如下: 1 3 6 7 9 11 14 15 17 2、sum1中放主对角线上的数据,即1+9+17; 3、sum2中放辅对角线上的数据,即6+9+14。
第3题:
3.编写程序,建立并输出一个10*10的矩阵,该矩阵两条对角线元素为1,其余元素为0
第4题:
以下程序的作用是生成一个如下图的矩阵,该程序不完整,请补充完改程序。
Private Sub Command1_Click()
Dim A(3,3)
For M=1 To 3
For N=1 To 3
If N=M Or【 】Then
A(M,N)=1
Else
【 】=0
End If
Next N
Next M
For M=1 To 3
For N=1 To 3
Print A(M,N);
Next N
Next M
End Sub
第5题:
在考生文件夹下有一个工程文件execise41.vbp,相应的窗体文件为execise41.frm,此外还有一个名为in41.txt的文本文件,其内容如下:32 43 76 58 28 12 98 57 3l 42 53 64 75 86 97 13 24 35 46 57 6879 80 59 37。程序运行后,单击窗体,将把文件in.txt中的数据输入到二维数组Mat中,在窗体上按5行、5列的矩阵形式显示出来,并输出矩阵左上一右下对角线上的数据,如下图所示。在窗体的代码窗口中,已给出了部分程序,这个程序不完整,请把它补充完整,并能正确运行。
注意:
去掉程序中的注释符“'”,把程序中的问号“?”改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘,
第6题:
下列程序的作用是求所有小于或等于30的自然数对。该程序不完整,请补充完该程序(程序执行结果见下图)。
注:自然数对是指两个自然数的和与差都是平方数(如8与17)。
Private Sub Command1_Click()
Dim n As Long
Dim m As Long
Dim s As Single
Dim d As String
For n=1 To 30
For m=1 To【 】
s =n+ m
【 】
If Sqr (s)=Int(Sqr(s))【 】Sqr(D)=Int(Sqr(D))Then
Print n:m
End lf
Next m
Next n
End Sub
第7题:
下列程序为比较排序法排序程序,请补充完该程序(该程序对10个数值数据进行排序处理)。
Dim a(1 To 10)AS Integer
Private Sub Form. _Click()
Randomize
p=“”
For i = 1 To 10
Do
x = Int (Rnd * 90) + 10
yes = 0
For j = 1 To【 】
If x = a(j) Then yes = 1: Exit For
Next
Loop While yes = 1
a(i) = x
Next i
For i = 1 To 9
For【 】To 10
If a(i) > a(j) Then
t = a(i)
【 】
a(j) = t
End If
Next j
Next i
p = Str(a(1))
For i = 2 To 10
p = p & “,” & Str(a(i))
Print p
Next i
End Sub
第8题:
以下程序用来建立一个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【 】Or【 】Then
s (n, m) = 1
Else
s (n, m) = 0
End If
Next m
Next n
For n = 1 To 10
For【 】。
Picturel. Print Tab(m * 3); s(n, m)
Next m
Next n
End Sub
第9题:
下列程序的作用是:打开顺序文件C:\stuDatA.txt,读取文件中的数据,并将数据显示在窗体上。该程序不完整,请补充完该程序。
Private Sub Form_Click()
【 】
Do While Not EOF(1)
Input 1,StrNo,StuName,StuEng
Print StuNo;Tab(10);StuName;Tab(20);StuEng
Loop
Close 1
End Sub