2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp。窗体上有一个名称为List1的列表框，且已有若干个项目，如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时，单击“部分反序”按钮，列表框中除最前面的一个项目不动外，其他项目的顺序反向

(1)在考生文件夹下有一个工程文件sjt3．vbp。窗体上有一个名称为List1的列表框，且已有若干个项目，如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时，单击“部分反序”按钮，列表框中除最前面的一个项目不动外，其他项目的顺序反向

admin2019-03-14  51
问题 (1)在考生文件夹下有一个工程文件sjt3．vbp。窗体上有一个名称为List1的列表框，且已有若干个项目，如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时，单击“部分反序”按钮，列表框中除最前面的一个项目不动外，其他项目的顺序反向显示，如图(b)所示。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

    (2)在考生文件夹下有一个工程文件sjt4．vbp。其功能是：
    1)单击“产生数据”按钮，产生10个随机整数，并显示在Picturel图片框的第l行；
    2)在Text1文本框中输入要清0的第1个数的位置，在Text2文本框中输入要清0的个数，然后单击“清0”按钮，则把清0后的数据显示在图片框的下一行。如图所示。
    其他约束：
    a)若输入的第1个数位置大于10，则认为从第10个数开始；
    b)若不输入第1个数位置，则认为从第1个数开始；
    C)若不输入清0个数，则认为一直清0到最后一个数；
    d)若输入的清0个数超出了最后1个数，则清0到最后一个数为止。
    在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。
    注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案(1)步骤1：打开本题项目工程。 步骤2：打开代码编辑窗口，去掉程序中的注释符“”’，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim kCh)．s$ For k=1 To(List1．ListCount—1) 2 s$=List1．List(k) List1．List(k)=List1．List(List1．List Count=k) List1．List(Ljstl．ListCount—k)=s Next End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤1：打开本题项目工程。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 参考答案 Option Base 1 Dim a(10)As Integer Private Sub Command1_Click() Randomize For k=1 To 10 a(k)=Int(Rnd*99)+1 Picture1．Print a(k)； Next k Picturel．Print End Sub Private Sub Command2_Click() Dim start As Integer，n As Integer start=Val(Text1．Text) If start=0 Then start=1 End If If start>10 Then start=10 End If If Text2．Text=""Then n=10一start+1 Else n=Val(Text2．Text) End If If start+n>11 Then n=10一start+1 End If For k=start To start+n-1 a(k)=0 Next k For k=1 To 10 Picturel．Print a(k)； Next k End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 (1)本题主要考察列表框控件属性的使用方法，根据题意可知，程序从列表框的第二项开始，将首尾项进行互换，所以循环变量k的初始值应该设置为1，循环体中的三条语句是将列表框的首尾对应项进行互换。
(2)单击Command1命令按钮时，随机产生10个整数放入数组a中，使用图片框控件的Print方法输出数组中的原始数据，单击Command2命令按钮时，使用If语句判断输入起始位置的值和清0的个数，变量start用来来保存起始位置，变量n用来保存清0的个数，再使用For循环根据起始位置清0n个数组元素值，并将结果输出。
转载请注明原文地址:https://www.kaotiyun.com/show/eKFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)