(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框,其MultiLine 属性为True。程序运行后,如果单击窗体,则用随机数函数产生16个0~99的整数,并按4行4列的矩阵形式在文

admin2019-01-16  30

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。在窗体上有一个名称为Text1的文本框,其MultiLine 属性为True。程序运行后,如果单击窗体,则用随机数函数产生16个0~99的整数,并按4行4列的矩阵形式在文本框中显示出来;然后在文本框中输出该矩阵对角线上的数。程序运行情况如图1-300所示。

    这个程序不完整,请把它补充完整,并能正确运行。
    提示:程序中的vbCrLf 是回车-换行符。
    要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
    (2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。
    在窗体上有两个命令按钮,其名称分别为Command1和Command2,标题分别为“开始”和“停止”;有两个水平滚动条,其名称分别为HScroll1和 HScroll2,Min  属性均为0,Max属性均为100;此外还有一个计时器,其名称为Timer1,如图1-301(a)所示。程序的功能是,程序运后,如果单击“开始”命令按钮,则滚动条HScroll1中的滚动框从左向右移动(每次移动一个刻度),移到最右端后,自动回到最左端,再重新向右移动;同时滚动条HScroll2 中的滚动框从右向左移动(每次移动一个刻度),移到最左端后,自动回到最右端,再重新向左移动。如果单击“停止”按钮,则两个滚动条中的滚动框停止移动,如图1-301(b)所示。该程序不完整,请把它补充完整。

    要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。

选项

答案第1小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt3.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Mat(i, j) = Int(Rnd * 100) S = S & Str(Mat(i, j)) & " " If i = j Then T = T & Str(Mat(i, j)) & " " 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Private Sub Command1_Click() Form1.Timer1.Enabled = True End Sub Private Sub Command2_Click() Form1.Timer1.Enabled = False End Sub Private Sub Timer1_Timer() n1 = n1 + 1 If n1 = 100 Then n1 = 0 HScroll1.Value = n1 n2 = n2 - 1 If n2 = 0 Then n2 = 100 HScroll2.Value = n2 End Sub 步骤2:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://jikaoti.com/ti/owm0FFFM
0

最新回复(0)