国家二级VB机试(简单应用题)模拟试卷10附答案解析

国家二级VB机试(简单应用题)模拟试卷10

简单应用题

1.(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有1个标题为“计算”的命令按钮,1个标题为“1!+2!+…+10!=”的标签。请画1个名称为Text1,初始内容为空的文本框。效果如图3—34所示。

程序功能:单击“计算”命令按钮,则计算“1!+2!+…+10!”的值,并将结果显示在Text1文本框中。请将“计算”命令按钮的Click事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。

注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上有1个名称为标题为“运行”的命令按钮。请画2个名称分别为Text1和Text2,初始内容都为空的文本框,再画2个名称分别为Label1、Label2,标题分别是“最大数”和“最大数位置”的标签。效果如图3—35所示。

第1小题

步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在窗体上添加一个文本框,按照如下表4—22设置属性。

[*]

步骤2:在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

While i<10

i=i+1

t=1

For i=1To n

jc=t

步骤3:按要求将文件保存至考生文件夹中。

第2小题

步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在窗体上加入两个文本框和两个标签,按照表4—23设置相关属性。

[*]

步骤2:在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

j=1

j=j+1

arr(j)=x

pos=i-1

步骤3:按要求将文件保存至考生文件夹中。

解析:第1小题:题目要求计算一个数列和,数列的每一项是一个阶乘。分析代码可知,函数ic返回一个整数的阶乘值。在命令按钮的Click事件代码里面,通过While循环来计算累加和。

第一个“?”处补充循环的结束条件,根据题目要求,计算10个元素的累加和,因此驯化执行10次:第二个“?”处是补充循环变量i的变化条件,在循环中i每次增加1,每次需要计算i的阶乘;第三个“?”处是初始化变量t为1:第四个“?”处是补充循环结束条件,计算阶乘的时候需要做n次连乘,循环执行n次;最后一个“?”处是补充函数返回值,t变量保存的阶乘值,因此函数返回t。

第2小题:题目要求生成50个不重复的随机数,并在这50个随机数里面找出最大值。分析程序可知,通过嵌套的循环来实现不重复随机数生产和最大值查找。

第一个“?”处是设置循环变量i恶道初始值,根据“Do While j<i”可知,循环变量从是最前面开始到i结束,因此j的初始值应为1;第二个“?”处是补充循环变量j的变化条件,搜索判断是否重复需要逐个搜索,因此i每次增加1;第三个“?”处是把生成的没有重复的随机数x添加数组arr当中;最后一个“?”是计算最大值的位置,循环变量i在前面经过“i=i+1”之后是当前位置加1,因此pox的值应为i-1。

2.(1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Text1的文本框,初始内容为空;添加一个名称为Combol的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别为Command1、Command2,其标题分别为“添加”、“统计”。在程序运行时,向Text1中输入字符,单击“添加”按钮后,则将Text1中的内容作为一个列表项被添加到组合框的列表中;单击“统计”按钮,则在窗体空白处显示组合框中列表项的个数,如图所示。请编写两个命令按钮的Click事件过程。

注意:程序中不得使用变量,也不能使用循环结构。存盘时必须存放在考生文件夹下,工程文件名保存为sjt3.vbp,窗体文件名保存为sjt3.frm。

(2)在考生文件夹下有一个工程文件sjt4.vbp,其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n,将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”,“z”后面的字母认为是“A”),如图所示。窗体中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。

(1)【操作步骤】

步骤1:新建一个窗体,按照题目要求建立控件并设置控件属性,如图3.22所示。

[*]

程序中用到的控件及属性设置见表3.15。

[*]

步骤2:打开代码编辑窗口,在指定位置编写如下代码。

参考答案

Private Sub Command1_Click()

Combo1.AddItem Text1

End Sub

Private Sub Command2_Click()

Print Combo1.ListCount

End Sub

步骤3:调试并运行程序,关闭程序后按题目要求存盘。

(2)【操作步骤】

步骤1:打开本题工程文件。

步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。

参考答案

Private Sub Command1_C1ick()

Dim n As Integer,k As Integer,m As Integer

Dim c As String,a As String

For k=0 To 2

If Op1(k).Value Then

n=Val(Op1(k).Caption)

End工f

Next k

m=Len(Text1.Text)

a=\

解析:

3.考生文件夹下有一个数据库文件“samp2.accdb”,其中存在已经设计好的表对象“tAttend”、“tEmployee”和“tWork”,请按以下要求完成设计。

(1)创建一个查询,查找并显示“姓名”、“项目名称”和“承担工作”3个字段的内容,将查询命名为“qT1”。

(2)创建一个查询,查找并显示项目经费在10000元以下(包括10000元)的“项目名称”和“项目来源”两个字段的内容.将查询命名为“qT2”。

(3)创建一个查询,设计一个名为“单位奖励”的计算字段,计算公式为:单位奖励=经费×10%,并显示“tWork”表的所有字段内容和“单位奖励”字段,将查询命名为“qT3”。

(4)创建一个查询,将所有记录的“经费”字段值增加2000元,将查询命名为“qT4”。

(1)【操作步骤】

步骤1:单击“创建”选项卡“查询”组中的“查询设计”按钮。在“显示表”对话框中分别双击表“tAttend”、“tEmployee”和“tWork”,关闭“显示表”对话框。

步骤2:分别双击“姓名”、“项目名称”和“承担工作”字段添加到“字段”行。如图3.124所示。

[*]

步骤3:单击快速访问工具栏中的“保存”按钮[*],将查询保存为“qT1”。关闭设计视图。

(2)【操作步骤】

步骤1:单击“创建”选项卡“查询”组中的“查询设计”按钮。在“显示表”对话框中双击表“tWork”,关闭“显示表”对话框。

步骤2:分别双击“项目名称”、“项目来源”和“经费”字段将其添加到“字段”行。

步骤3:在“经费”字段的“条件”行输入“<=10000”字样,单击“显示”行取消该字段的显示。如图3.125所示。

[*]

步骤4:单击快速访问工具栏中的“保存”按钮[*],将杏询保存为“qT2”。关闭设计视图。

(3)【操作步骤】

步骤1:单击“创建”选项卡“查询”组中的“查询设计”按钮。住“显示表”对话框中双击表“tWork”,关闭“显示表”对话框。

步骤2:双击“*”字段将其添加到“字段”行。

步骤3:在“字段”行下一列添加新字段“单位奖励:[经费]*0.1”,单击勾选“显示”行复选框显示该字段。如图3.126所示。

[*]

步骤4:单击快速访问工具栏中的“保存”按钮[*],将查询保存为“qT3”。关闭设计视图。

(4)【操作步骤】

步骤1:单击“创建”选项卡“查询”组中的“查询设计”按钮。在“显示表”对话框中双击表“tWork”,关闭“显示表”对话框。

步骤2:在“查询工具”的“设计”选项卡“查询类型”组中单击“更新”按钮。

步骤3:双击“经费”字段将其添加到“字段”行,在“更新到”行输入“[经费]+2000”。如图3.127所示。

[*]

步骤4:单击快速访问工具栏中的“保存”按钮,将查询保存为“qT4”。关闭设计视图。

解析:

4.(1)在考生文件夹下有一个工程文件sjt3.vbp。其窗体文件上有一个标题为“得分”的框架,在框架中有一个名称为Text1的文本框数组,含6个文本框控件;文本框Text2用米输入难度系数。程序运行时,在左边的6个文本框中输入6个得分,输入难度系数后,单击“计算分数”按钮,则可计算出最后得分并显示在文本框Text3中(如图所示)。

计算方法:

去掉1个最高得分和1个最低得分,求剩下得分的平均分,再乘以3,再乘以雉度系数。最后结果保留到第2位小数,不四舍五入。

注意:文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容,考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件st4.vbp。窗体上的控什如图所示。程序运行时,若选中“累加”单选按钮,则“10”、“12”菜单项不可用,若选中“阶乘”单选按钮,则

“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后,单击“计算”按钮,则相应的计算结果在文本框中显示(例如,选中“累加”和“2000”,则计算1+2+3+…+2000,选中“阶乘”和“10”,则计算10!)。单击“存盘”按钮则把文本框中的结果保存到考生文件夹下的out4.dat文件中。

要求:编写“计算”按钮的Click事件过程。

注意:不得修改已经存在的程序,拒结束程序运行之前,必须用“存盘”按钮存储计箅结果,否则尤成绩。最后,程序按原文件名存盘。

(1)【操作步骤】

步骤1:打开本题工程文件。

步骤2:打丌代码编辑窗口,去掉程序中的汴释符“’”,将问号改为正确的内容。

参考答案

Private Sub Commandlclick()

Dim k As Integer,S As Single,a As Single,b As Single

a=Val(Text1(0).Text)’将第一个文本框的值作为最大值赋予a

s=a

b=a’将第一个数作为最小值赋予b

For k=1 To 5’剩余文本框作为循环次数的条件

s=s+Val(Text1(k).Text)

If a<Val(Text1(k).Text)Then

’取出每个文本框的值与最大值比较,求最大值

a=Val(Text1(k).Text)

End If

If b>Val(Text1(k).Text)Then

b=Val(Text1(k).Text)

End If

Next k

s=(s-a-b)/4

根据要求去掉一个最高分和一个最低分后求四科的平均分

s=s*3*Val(Text2.Text)

根据题意此处应填平均分

Text3=Int(s*100)/100

’Int(N)是求小于或等于N的最大整数,同时将最后结果显示在Text3上

End Sub

步骤3:调试并运行程序,关闭程序后按题目要求存盘。

(2)【操作步骤】

步骤1:打开本题工程文件;

步骤2:打开代码编辑窗口,在指定位置编写如下代码。

参考答案

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

DimmAs Long

Dim sumAs Long

m=1

If n=10 Or n=12 Then’通过判断n的值,可确定使用什么操作

For i=2 To n

m=i*m

Next i=求n的阶乘

Text1.Text=m

End If

sum=0

If n=2000 Or n=1000 Then

For j=1 To n

sum=sum+j

Next j’求l到n的和

Text1.Text=sum

End If

End Sub

步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析:

5.在考生文件夹下,存在一个数据库文件“samp2.accdb”,里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个临时表对象“tTemp”。试按以下要求完成设计。

(1)创建一个查询,按所属院系统计学生的平均年龄,字段显示标题为“院系”和“平均年龄”,所建查询命名为“qT1”。

要求:平均年龄四舍五人取整处理。

(2)创建一个查询,查找上半年入学的学生,并显示“姓名”、“性别”、“课程名”和“成绩”等字段内容,所建查询命名为“qT2”。

(3)创建一个查询,查找没有选课的同学,并显示其“学号”和“姓名”两个字段内容,所建查询命名为“qT3”。

(4)创建删除查询,将表对象“tTemp”中年龄值高于平均年龄(不含平均年龄)的学生记录删除,所建查询命名为“qT4”。

(1)【操作步骤】

步骤1:单击“创建”选项卡下“查询”组中的“查询设计”按钮,在弹出的“显示表”对话框中双击添加表“tStud”,然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2:在“字段”行中分别输入“院系:所属院系”和“平均年龄:Round(Avg([年龄]),0)”。

步骤3:单击“查询工具”的“设计”选项卡下“显示/隐藏”组中的“汇总”按钮,然后在“平均年龄:Round(Avg([年龄]),0)”字段的“总计”行的下拉列表中选择“Expression”命令,如图4.34所示。

[*]

步骤4:单击陕速访问工具栏中的“保存”按钮,另存为“qT1”。

(2)【操作步骤】

步骤1:单击“创建”选项卡下“查询”组中的“查询设计”按钮,在弹出的“显示表”对话框中舣击表“tStud”、“tCourse”和“tScore”,然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2:选中表“tStud”中的“学号”字段,然后拖动鼠标指针到表“tScore”中的“学号”字段,放开鼠标左键,选中表“tCourse” 中的“课程号”字段,然后拖动鼠标指针到表“tScore”中的“课程号”字段,放开鼠标左键。

步骤3:分别双击添加“姓名”、“性别”、“课程名”、“成绩”和“入校时问”字段,在其下一字段行中输入“Month([入校时间])”,取消“Month([入校时间])”字段显示行复选框的勾选,在“Month([入校时间])”字段的“条件”行中输入“>=1 And <=6”,如图4.35所示。

[*]

步骤4:单击快速访问工具栏中的“保存”按钮,

另存为“qT2”。

(3)【操作步骤】

步骤1:单击“创建”选项卡下查询”组中的“查询设计”按钮,在弹出的“显示表”对话框中双击添加表“tStud”,然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2:双击添加“学号”和“姓名”字段,在“学号”的“条件”行中输入“Not ln(SELECT tStud.学号FROM tStud INNER JOIN tScore ON tStud.学号=tScore.学号GROUP BY tStud.学号)”,如图4.36所示。

[*]

步骤3:单击快速访问工具栏中的“保存”按钮,另存为“qT3”。

(4)【操作步骤】

步骤1:单击“创建”选项卡“查询”组中的“查询设计”按钮,在弹山的“显示表”对话框中双击添加表“tTemp”,然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2:双击添加“年龄”字段。

步骤3:单击“查询工具”的“设计”选项卡下“查询类型”组中的“删除”按钮,在“年龄”字段的“条件”行中输入“>(select avg(年龄)from[tTemp])”,如图4.37所示。

[*]

步骤4:单击“查询工具”的“设计”选项卡下“结果”组中的“运行”按钮,在弹出的“Microsoft Access”对话框中单击“是”按钮。

步骤5:单击快速访问工具栏中的“保存”按钮,另存为“qT4”,关闭“设计视图”。

解析:

6.(1)考生文件夹下的工程文件sjt3.vbp中有一个初始内容为空、且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别为Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1,再画一个名称为Text2,其初始内容为空的文本框,如图3-104所示。程序功能如下:

①单击“读数据”按钮,则将考生文件夹下in3.dat文件中已按升序排列的30个整数读入一维数组a中,并同时显示在Text1文本框内;

②单击“查找”按钮,将弹出输入框接收用户输入的任意一个偶数,若接收的数为奇数,则提示重新输入。如果接收的偶数超出一维数组a的数值范围,则无须进行相应查找工作,直接在Text2内给出结果;否则,在一维数组a中查找该数,并根据查找结果在Text2文本框内显示相应信息。命令按钮的Click事件过程已给出,但“查找”按钮的Click事件过不完整,请将其中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。

注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名存盘。

(2)考生文件夹下的工程文件sjt4.vbp中有一个初始内容为空的文本框Text1,一个包含三个元素的文本框控件数组Text2,两个标题分别是“读数据”和“统计”的命令按钮,两个分别含有三个元素的标签控件数组Label1和Label2,如图3-105所示。程序功能如下:

①考生文件夹下in4.dat文件中存有20个考生的考号及数学和语文单科考试成绩。单击“读数据”按钮,可以将in4.dat文件内容读入到20行3列的二维数组a中,并同时显示在Text1文本框内;

②单击“统计”按钮,则对考生数学和语文的平均分在“优秀”、“通过”和“不通过”三个分数段的人数进行统计,并将人数统计结果显示在控件数组Text2中相应位置。其中,平均分在85分以上(含85分)为“优秀”,平均分在60~85分之间(含60分)为“通过”,平均分在60分以下为“不通过”。

第1小题

【操作步骤】

步骤1:打开考生文件夹下的工程文件sjt3.vbp,打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码:

If num/ 2 <>Fix(num/2) Then

If num<a(1) Or num>a(30) Then

If a(n)=num Then

If n>30 Then

步骤2:按要求将文件保存至考生文件夹中。

第2小题

【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码:

Avg=a(i,2)+a(i,3)) /2

Case Is>=85

Case 60 To 84

End Select

Text2(n-1)=x(n)

步骤2:按要求将文件保存至考生文件夹中。

解析:

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

注意:不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp。其功能是:

1)单击“产生数据”按钮,产生10个随机整数,并显示在Picture1图片框的第1行;

2)在Text1文本框中输入要清0的第1个数的位置,在Text2文本框中输入要清0的个数,然后单击“清0”按钮,则把清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=\

解析:

8.(1)考生文件夹中有工程文件sjt3.vbp。在窗体上有名称为Combo1的组合框,请设置该组合框的属性,使该组合框只能用于选择操作,不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项,如图1-86(a)所示,单击“输入正整数”按钮,通过输入对话框输入一个正整数,再单击“判断”按钮,则按照选定的选项内容,将判断结果显示在信息框中。如图 1-86(b)所示的是输入56且选中的组合框选项为“判奇偶数”时显示的信息框。

在给出的窗体文件中已经有了全部控件,但程序不完整,要求:按照题目要求设置组合框的有关属性,去掉程序中的注释符,把程序中的?改为正确的内容。

注意:考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。

(2)在考生目录下有一个工程文件sjt4.vbp。窗体上有一大一小两个名称分别为Shape2、Shape1的Shape 控件。请在属性窗口中将Shape1控件设置为圆形,并将其颜色设置为红色(颜色值为&H000000FF&),如图1-87所示。

第1小题

【操作步骤】

步骤1:打开考生文件中的本题工程文件sjt3.vbp,将组合框的Style 属性设置为2。

步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

Select Case Combo1.ListIndex

MsgBox Str(x) & f1(x)

MsgBox Str(x) & f2(x)

Private Function f2(ByVal x As Integer)

As String

If x Mod 7 = 0 Then

步骤3:按要求将文件保存至考生文件夹中。

第2小题

【操作步骤】

步骤1:打开考生文件中的本题工程文件sjt4.vbp,将Shape1控件的Shape 属性设置为3,将FillStyle 设置为0 和 FillColor 设置为&H000000FF&。

步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

Private Flag As Boolean

Shape1.Top = Shape2.Top +

Shape2.Height – Shape1.Height

Shape1.Left = Shape2.Left +

Shape2.Width – Shape1.Width

步骤3:按要求将文件保存至考生文件夹中。

解析:

9.(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个名称分别为Form1、Form2的窗体。窗体上已有部分控件,请在Form1窗体上再画一个名称为Text1的文本框,初始内容为空,初始状态为不可用(如图1-204所示),输入字符时文本框内将显示字符“*”。

程序功能如下:

①单击Form1窗体的“输入密码”按钮,则Text1变为可用,且获得焦点。

②输入密码后单击Form1窗体的“密码校验”按钮,则判断Text1中输入内容是否为小写字符“abc”,若是,则隐去Form1窗体,显示Form2窗体;若密码输入错误,则提示重新输入,三次密码输入错误,则退出系统。

③单击Form2窗体的“返回”按钮,则隐藏Form2窗体,显示Form1窗体。Form2窗体的控件和程序已给出。但Form1窗体的程序不完整,请将程序中的注释符去掉,把?改为正确的内容,以实现上述程序功能。

注意:考生不得修改窗体文件中已经存在的控件和程序。最后,程序按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体如图1-205所示。程序功能如下:

①单击“读数据”按钮,则将考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)显示在Text1文本框中;

②在Text1中选中一部分文本,并单击“统计”按钮,则以不区分大小写字母的方式,自动统计选中文本中单词“the”出现的次数,并将统计结果显示在Text2文本框内。

第1小题

【操作步骤】

步骤1:打开考生文件中的本题工程文件sjt3.vbp,如表2-99在窗体中画出控件并设置属性。

[*]

步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

Text1.Enabled = True

If Text1 <> \

解析:

10.(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。

在窗体上有一个命令按钮,其名称为Command1,标题为“移动”;有一个文本框,名称为Text1,可以多行显示;此外还有一个列表框,其名称为List1。程序运行后,会在列表框中显示几行文字,如图1-290(a)所示。如果单击命令按钮,则把列表框中的文字移到文本框中,如图1-290(b)所示。该程序不完整,请把它补充完整(程序中的vbCrLf 表示回车换行符)。

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

(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。

在窗体上有一个标签(名称为Label1)、一个计时器(名称为Timer1)和两个命令按钮(名称分别为Command1和 Command2),如图1-291(a)所示。程序运行后,其初始界面如图 1-291(b)所示。此时如果单击“开始”命令按钮,则可使标签每隔0.2 秒闪烁一次;如果单击“停止”命令按钮,则标签停止闪烁。该程序不完整,请把它补充完整。

第1小题

【操作步骤】

步骤1:打开本题工程文件sjt3.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

For i = 0 To List1.ListCount – 1

s = s & List1.List(i) & vbCrLf

List1.Clear

Text1.Text = s

步骤2:按要求将文件保存至考生文件夹中。

第2小题

【操作步骤】

步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

Form_Load事件中的程序:

Timer1.Enabled = False

Timer1.Interval = 200

Command1_Click事件中的程序:

Timer1.Enabled = True

Command2_Click事件中的程序:

Timer1.Enabled = False

步骤2:按要求将文件保存至考生文件夹中。

解析:

资源下载《国家二级VB机试(简单应用题)模拟试卷10附答案解析.doc》 文档下载价格为10下载币,请先
将本套试题Word文档或文章下载到电脑,方便收藏和打印
资源下载
《国家二级VB机试(简单应用题)模拟试卷10附答案解析.doc》
试题含答案和解析word文档下载价格:10 下载币
《国家二级VB机试(简单应用题)模拟试卷10附答案解析.doc》
试题含答案和解析word文档VIP优惠:免费
将本套试题Word文档或文章下载到电脑,方便收藏和打印
0

评论0

没有账号? 注册  忘记密码?