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

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

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

    (2)在考生文件夹下有一个工程文件sjt4．vbp。其功能是：
    1)单击“产生数据”按钮，产生10个随机整数，并显示在Picture1图片框的第1行；
    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 k％，s $ For k＝1 To (List1．ListCount－1) 2 s $＝List1．List(k) List1．List(k)＝List1．List(List1．List Count－k) List1．List(List1．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 Picture1．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 Picture1．Print a(k)； Next k End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/HDUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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