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

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

admin2017-09-20  38
问题 (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(Listl．ListCount一1) 2 s$=List1．List(k) List1．List(k)=List1．List(List1.ListCount-k) List1．List(List1．ListCount—k)=s Next End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤1：打开本题项目工程。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 Option Base 1 Dim a(10)As Integer Private Sub Commandl_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://jikaoti.com/ti/Ddy0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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