首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有一个名称为List1的列表框,且已有若干个项目,如图(a)所示。“部分反序”命令按钮的名称为Command1。程序运行时,单击“部分反序”按钮,列表框中除最前面的一个项目不动外,其他项目的顺序反向
admin
2017-09-20
48
问题
(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://kaotiyun.com/show/3kGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)M=пf(x>y,x,y)EndFunctionPrivateSub
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFuncdonf(mAsInteger)IfmMod2=0Thenf=mE1Se
使用语句DimAAsInteger声明数组A之后,以下说法正确的是()。
排序是计算机程序设计中的一种重要操作,常见的拌序方法有插入排序、______和选择排序。
编写如下事件过程:PrivateSubForm_keyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_Keypress(
窗体上有两个按钮,执行程序后按Cancel按钮的输出结果是______。PrivateSubCommandl_Click()Print“北京”;EndSubPrivateSubCommand2,_Click()
如果存在如下过程:PrivateFunctionFun(a()AsInteger)DimFirstAsInteger,LastAsInteger,iAsInteger First=LBound(a) La
如果准备读文件,打开顺序文件“text.dat”的正确语句是
执行如下两条语句后,窗体上显示的是()。a=9.8596PrintFormat(a,“$00,00.00”)
随机试题
下列方法中可以增大信道容量的是()
女性,高血压,58岁,血钾2.0mmol/L
药品临床研究不含
编制虚假财务会计报告的行为,是指违反《会计法》和国家统一的会计制度的规定,根据虚假的会计账簿记录,编制财务会计报告。()
万达外资公司无进出口经营权,2004年5月从意大利进口一批玩具样品,在向海关申报时,其报关单“贸易方式”栏立填写()。
出口羊毛计算重量,通常采用的计量方法是()。
某单位购买一批树苗计划在一段路两旁植树。若每隔5米种1棵树,可以覆盖整个路段,但这批树苗剩20棵。若每隔4米种1棵树且路尾最后两棵树之间的距离为3米,则这批树苗刚好可覆盖整个路段。这段路长为()。
有下列语句,编号分别是1、2、3、4,chars1="abcde";//1chars2[]="abcde";//2chars3[4]="abcde"; //3chars4[5]="abcde";//4其
Thebridge______thefishingvillageandthetownunderwentextensiverepairworkafteritcollapsedinlastweek’sstorm.
Whatpricedotherichercountriesalwaysraise?Thepricestheygetfrom_______________________arealwaysrising.
最新回复
(
0
)