一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。Private Sub Command1_Click()Dim a(10，10)As IntegerFor i=1 To【 】For j=1 To 10If【 】Then【 】=1Elsea(i，j)=0End IfNext jNext iFor i =1 To 10For j=1 To 10Print a(i，j)；Next jPrintNext iEnd Sub

题目

一下程序的作用是生成一个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

Print

Next i

End Sub

相似考题

1.下列程序的作用是：打开顺序文件C:\stuDatA.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。Private Sub Form_Click()【 】Do While Not EOF(1)Input 1，StrNo，StuName，StuEngPrint StuNo；Tab(10)；StuName；Tab(20)；StuEngLoopClose 1End Sub

2.下列程序为比较排序法排序程序，请补充完该程序(该程序对10个数值数据进行排序处理)。Dim a(1 To 10)AS IntegerPrivate Sub Form. _Click()Randomizep=“”For i = 1 To 10Dox = Int (Rnd * 90) + 10yes = 0For j = 1 To【 】If x = a(j) Then yes = 1: Exit ForNextLoop While yes = 1a(i) = xNext iFor i = 1 To 9For【 】To 10If a(i) ＞ a(j) Thent = a(i)【 】a(j) = tEnd IfNext jNext ip = Str(a(1))For i = 2 To 10p = p & “,” & Str(a(i))Print pNext iEnd Sub

3.下列程序的作用是求所有小于或等于30的自然数对。该程序不完整，请补充完该程序(程序执行结果见下图)。注：自然数对是指两个自然数的和与差都是平方数(如8与17)。Private Sub Command1_Click()Dim n As LongDim m As LongDim s As SingleDim d As StringFor n=1 To 30For m=1 To【 】s =n+ m【 】If Sqr (s)=Int(Sqr(s))【 】Sqr(D)=Int(Sqr(D))ThenPrint n：mEnd lfNext mNext nEnd Sub

4.以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果见下图。Private Sub Form_ click()Dim s(10, 10) As IntegerFor n = 1 To 10For m = 1 To 10If【 】Or【 】Thens (n, m) = 1Elses (n, m) = 0End IfNext mNext nFor n = 1 To 10For【 】。Picturel. Print Tab(m * 3); s(n, m)Next mPrintNext nEnd Sub

参考答案和解析
正确答案：10 i=j a(ij)
10 , i=j , a(i，j)
更多“ 一下程序的作用是生成一个10×10的矩阵．该矩阵主对角线上的数据为1，其余数据为0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。Private Sub Command1_Click()Dim a(10”相关问题

  • 第1题：

    在考生文件夹下有一个工程文件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列的矩阵形式显示出来，并输出矩阵左上一右下对角线上的数据，如下图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。

    注意：

    去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘，


    正确答案：

  • 第2题：

    3.编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素为0


    A

  • 第3题：

    编写一个主程序，生成一个菜单界面，当输入1时，调用矩阵赋值函数，为5*5的矩阵赋初值；当输入2时，调用矩阵转置函数，对该矩阵进行转置操作；当输入3时，将该矩阵上三角所有元素值变成0；当输入4时，求该矩阵对角线所有元素的平均值；当输入5时，将该矩阵下对角线元素变成1，当输入0时，退出程序。


    在系统树窗口中打开工作空间，选择【File】|【New】菜单，或单击工具条中上的【New】图标，弹出新建对象对话框，选择【PB Object】页，选中【Menu】图标，双击鼠标左键或单击【OK】按钮，即新建了一个菜单对象，默认名称为：Untitled0，同时打开了菜单对象画板，在此画板中可进行菜单项的添加、删除、属性设置和脚本编写。

  • 第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

    Print

    Next M

    End Sub


    正确答案：N=3-M+1 A(MN)
    N=3-M+1, A(M，N)

  • 第5题：

    分别计算矩阵a的两条对角线上的元素之和。 解题思路：行列数相同的矩阵主对角线上所有元素的下标值具有行列相等的特征；矩阵辅对角线上所有元素的下标值具有行与列之和等于该矩阵的最大列下标值（或最大行下标值）的特征。 1、无需输入数据，矩阵数据直接在程序内赋值，输入如下： 1 3 6 7 9 11 14 15 17 2、sum1中放主对角线上的数据，即1+9+17； 3、sum2中放辅对角线上的数据，即6+9+14。


    答案：①j=2 ②j>=0

相关内容