阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。[说明]本程序提供了三阶矩阵加、减及乘运算的功能。用户单击“生成操作数”按钮将随机生成两个矩阵(即操作数1和操作数2),再单击某一矩阵运算按钮后,程序将输出相应运算的结果。程序运行界面如下:开发过程中,界面上从左至右三个文本框分别取名为Text1至Text3,“生成操作数”按钮名为 CmdNew,“+”、“-”和“*”构成按钮控件组,分别名为CmdOperate(0)、CmdOperate(1)和CmdOperate(2)

题目

阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。

[说明]

本程序提供了三阶矩阵加、减及乘运算的功能。用户单击“生成操作数”按钮将随机生成两个矩阵(即操作数1和操作数2),再单击某一矩阵运算按钮后,程序将输出相应运算的结果。程序运行界面如下:

开发过程中,界面上从左至右三个文本框分别取名为Text1至Text3,“生成操作数”按钮名为 CmdNew,“+”、“-”和“*”构成按钮控件组,分别名为CmdOperate(0)、CmdOperate(1)和CmdOperate(2)。

已知n阶矩阵加、减法运算法则是对应位置的元素相加、减;n阶矩阵的乘法C=AB有公式:Cij=AilBij+AilBij+…+An1Bnj其中记号Xij表示矩阵X第i行第j列上的元素。程序使用的主要变量是三维数组matrix(3,3,3),其元素matrix(i,j,k)代表第i个矩阵j行k列上的元素,这里i,j,k均从0开始计数,第0、1、2个矩阵分别表示操作数1、操作数2和结果矩阵。

代码中用到的子过程及其功能说明如下:

(1) Sub newMatrices():随机产生矩阵运算的两个操作数;

(2) Sub printOut(txt As TextBox, i As Integcr):定义矩阵i向文本框txt的输出格式;

(3) Sub operate(operation As String):计算并输出矩阵运算结果。

[Visual Basic代码]

Dim matrix(3, 3, 3) As Integer

Sub newMatrices()

……… End Sub

Sub printOut(txt As TextBox, i As Integer)

……… End Sub

Sub operate(operation As String)

Dim i, j, k As Integer

For i = 0 To 2

For j = 0 To 2

(1)

Case"+": matrix(2, i, j) = matrix(0, i, j) + matrix(1, i, j)

Case"-": matrix(2, i, j) = matrix(0, i, j) - matrix(1, i, j)

Case"*"

matrix(2, i, j) = 0

For k = 0 To 2

matrix(2, i, j) = matrix(2, i, j) +(2)

Next

End Select

Next

Next

printOut (3)

End Sub

Private Sub CmdNew_Cliek() ’“生成操作数”按钮的单击事件响应代码

(4)

printout Text1,0

printout Text2,1

End Sub

Private Sub CmdOperale_Click(Index As Integer) ’矩阵运算按钮组的单击事件响应代码

operate CmdOperate(Index).(5)

End Sub


相似考题
更多“ 阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。[说明]本程序提供了三阶矩阵加、减及乘运算的功能。用户单击“生成操作数”按钮将随机生成两个矩阵(即操作数1和操作数2),再单击某”相关问题
  • 第1题:

    阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。

    【说明】

    已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdCene按钮时,随机产生10个[1,100]范围内的整数并将它们放在数组intA中;单击cmdSort按钮时,用选择法排序这10个数并输出。

    【程序代码】

    Dim intA(1 To 10)As integer

    Private Sub cmdGene_Click( )

    Dim intl As Integer

    Randomize

    For intl = 1 To 10

    intA(intl) =(1)

    Next intl

    End Sub

    Private Sub cmdSort_Click( )

    Dim intl, intJ,intMin, intTemp As Integer

    For intl = 1 To 9

    intMin = intA(intl)

    For intJ=(2) To 10

    If intA(intJ) < intMin Then

    Temp = intA(intJ)

    intA(intJ)=(3)

    intMin = intTemp

    End If

    Next intJ

    (4)

    (5)

    For intl = 1 To 10

    Print Str(intA(intl))+" ";

    Next intl

    Next lntl

    Print

    End Sub


    正确答案:(1)1+int(rnd*100) (2)intI+1 (3)intMin (4)intA(intI)=intMin (5)Next intI
    (1)1+int(rnd*100) (2)intI+1 (3)intMin (4)intA(intI)=intMin (5)Next intI 解析:根据题意,第一个空应该是产生10个[1,100]范围内的随机整数,因此填“1+int(rnd*100)”。
    选择排序思想是:第i趟排序开始时,当前有序区和无序区分别为 R[1..i-1]和R[i..n](1≤i≤n-1),该趟排序则是从当前无序区中选出关键字最小的记录R[k],将它与无序区的第1个记录R[i]交换,使R[1..i]和R[i+1..n)分别变为新的有序区和新的无序区。因为每趟排序均使有序区中增加了一个记录,且有序区中的记录关键字均不大于无序区中记录的关键字,即第i趟排序之后R[1..i].keys≤R[i +1..n].keys,所以进行n-1趟排序之后有R[1..n-1].keys≤R[n]. key。也就是说,经过n-1趟排序之后,整个文件R[1..n]递增有序。因此(2)空填“intI+1”;If intA(intJ)intMin Then后的3条语句是实现数intA(intJ)与intMin的交换,因此(3)空填“intMin”;(4)空是实现最小数与无序区的第1个数交换,因此填“intA(intI)=intMin”;(5)空是循环结束语句,填“Next intI”。

  • 第2题:

    ●试题五

    阅读以下应用说明、属性设置及Visual Basic程序代码,将应填入(n)处在字句写在答题纸的对应栏内。

    【说明】

    本应用程序的运行窗口如图2所示。

    只要用户单击"闪烁"按钮,文字"欢迎光临"就会以0.3秒消失、0.3秒显示反复进行闪烁;单击"停止"按钮时,闪烁停止,恢复图示的初态。

    在开发过程中,需要设置的属性如表1所示。

    在开发过程中,需要编写的程序代码如下:

    【程序】

    Private Sub CmdF_Click()

    Timer1. (3) =True

    Labe1.Visible=False

    End Sub

    Private Sub Timer1_Timer()

    (4) =not Label.Visible

    End Sub

    Private Sub CmdT_Click()

    Timer1.Enabled= (5)

    Labe1.Visible=true

    End Sub


    正确答案:

    ●试题五

    【答案】(1)false(2)300(3)Enabled(4)Label.Visible(5)false

    【解析】单击"闪烁"按钮后,文字才开始闪烁,所以初始时定时器并未启动,(1)处应填false。定时器的时间间隔为0.3秒,即300毫秒,所以(2)处应填300(Interval属性的单位是毫秒)(3)单击"闪烁"按钮后,应启动定时器,所以修改Timer1Enable属性为True(4)定时器到时的时候,应当使Label的是否可见属性(Visible)取反,所以(4)处应填Label.Visible(5)单击"停止"按钮后,要停止定时器,所以应修改Timer1Enable属性为false

  • 第3题:

    阅读下列说明和?C++代码,将应填入(n)处的字句写在答题纸的对应栏内。
    【说明】
    阅读下列说明和?Java代码,将应填入?(n)?处的字句写在答题纸的对应栏内。
    【说明】
    某快餐厅主要制作并出售儿童套餐,一般包括主餐(各类比萨)、饮料和玩具,其餐品种
    类可能不同,但其制作过程相同。前台服务员?(Waiter)?调度厨师制作套餐。现采用生成器?(Builder)?模式实现制作过程,得到如图?6-1?所示的类图。






    答案:
    解析:

  • 第4题:

    阅读以下应用说明、属性设置及Visual Basic程序代码,将应填入______处的语句写在答题纸的对应栏内。

    [应用说明7]

    本应用程序的运行窗口如图2-5所示。

    只要用户单击“闪烁”按钮,文字“欢迎光临”就会以0.3s消失、0.3s显示反复进行闪烁;单击“停止”按钮,闪烁停止,恢复图示的初态。

    [属性设置7]

    [程序代码7]

    Private Sub CmdF C1ick()

    Timerl. (3)=True

    Label.Visible=False

    End Sub

    Private Sub Timerl_Timer()

    (4)=not Label.Visible

    End Sub

    Private Sub CmdT_Click()

    Timerl.Enabled=(5)

    Label.Vlsible=true

    End Sub


    正确答案:(1)False (2)300 (3)Enabled (4)Label.Visible (5)False
    (1)False (2)300 (3)Enabled (4)Label.Visible (5)False 解析:在VB中,计时器控件主要有Name、Enabled和Interval等属性。
    Name属性是该计时器的标识符。
    Enabled=true表示打开计时器,开始计时;Enabled=false表示关闭计时器,停止计时。
    Interval属性用来设置计时器事件之间的间隔,一般以ms为单位,取值范围为0~ 65535,因此其最大时间间隔不能超过65s。因为60000ms为1min,如果把Interval属性设置为1000,则表明每秒钟发生一个计时器事件。
    本题要求0.3s闪烁一次,因此,应该把Interval的属性值设置为300。在窗体运行时,需要用户单击“闪烁”按钮后才开始闪烁,所以初始化时,计时器的Enabled属性值应该为False。当用户单击“闪烁”按钮时,计时器的Enabled属性值应该为True。当用户单击“停止”按钮时,计时器的Enabled属性值应该为False。

  • 第5题:

    试题三(共 15 分)

    阅读以下说明和 C 程序,将应填入 (n) 处的字句写在答题纸的对应栏内。


    正确答案: