2013年VB二级考试题库中简单应用题的详细解析

需积分: 0 115 浏览量更新于2024-03-24 收藏 3.73MB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源推荐

要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的

文件按原文件名存盘。

Dim x0 As Integer, y0 As Integer , a As Single , radius As Integer

radius=Shape1.Width / 2 ‘圆的半径

If Button=LEFT_BUTTON Then

x0=shape1.left + radius ‘圆心的 x 坐标

y0=shape1.top + radius ‘圆心的 y 坐标

If x=x0 Then

Stepy=Sgn(y-y0) * 50

‘ Stepx=? ***** 0 *****

Else

a=(y-y0) / (x-x0) ‘斜率

stepx=sgn(x-x0) * 50

‘ ?=a * stepx ***** stepy *****

If abs(stepy) > abs(stepx) Then

Stepy=sgn(y-y0) * 50

Stepx=stepy / a

End if

End If

‘ ?=True ***** Timer1.Enabled *****

Else

‘ ?=False ***** Timer1.Enabled *****

End if

End Sub

Private Sub Timer1_Timer( )

‘ Shape1.Move Shape1.Left + stepx , Shape1.Top + ? ***** stepy *****

End Sub

*****第 10 套简单应用题

（1）考生文件夹中有工程文件 sjt3.vbp。窗体上有名称为 Label1、标题为“标签控件”的标签；有一个名称为

Command1、标题为“命令按钮”的命令按钮。单击上述两控件中任一控件，则在标签 Label2 中显示所单击控件的

标题内容（标题内容前有“单击”二字），下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中

的？改为正确的内容。

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

Private Sub Command1_Click()

'Call ShowName(？) ***** Command1 *****

End Sub

Private Sub Label1_Click()

'Call ShowName(？) ***** Label1 *****

End Sub

'Private Sub ShowName(c As ？) ***** Control *****

If TypeOf c Is CommandButton Then

　　　　Label2.Caption = "单击" & Command1.Caption

End If

If TypeOf c Is Label Then

'　？ = "单击" & Label1.Caption ***** Label2.Caption *****

End If

End Sub

（2）在考生文件夹下有一个工程文件 sjt4.vbp。其窗体上有一个由八个图片框控件组成的控件数组、

两个命令按钮及一个计时器控件，如图 1 所示。程序功能：

将计时器控件设置为每隔 0.5 秒触发一次。运行程序时，只显示下标为 0 的图片框控件数组元素，其它图片框均不显示。单击“开始”按

钮，数组中的每个图片框自左至右依次显示，时间间隔为 0.5 秒，产生月亮从左向右移动的效果，如图 2 所示。月亮移到右端后再从左端

重新开始。单击“停止”按钮，月亮停止移动。

要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文

件按原文件名存盘。

Private Sub Form_Load()

Picture1(0)．Left = 0

Picture1(0)．Top = 100

For k = 1 To 7

'　Picture1(k)．Visible = ？ ***** False *****

End Sub

Private Sub Command1_Click()

'　Timer1.Enabled = ？ ***** True *****

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Static i As Integer

Picture1(i)．Visible = False

i = i + 1

'　If i = ? Then ***** 8 *****

'　i =？ ***** 0 *****

End If

Picture1(i)．Visible = True

End Sub

*****第 10 套综合应用题

考生文件夹下有一个工程文件 sjt5.vbp。运行程序后，从文件中读出数据，放入 5X5 的二维数组 a 中。请编写程序，找出 a 数组中每行的

最大值及该值在行中的次序（即列下标），并将所找到的结果分别保存到一维数组 b、c 中（a 第一行的最大值保存在 b(1)中，最大值的列

次序保存在 c(1)中）。

注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行

一次。

Dim a(5, 5) As Integer

Dim b(5) As Integer

Dim c(5) As Integer

Private Sub Command1_Click()

N = 5

For i = 1 To N

'＝＝＝＝＝＝＝＝考生编写程序开始＝＝＝＝＝

Max = a(i, 1)

For j = 1 To 5

If Max < a(i, j) Then

Max = a(i, j)

End If

b(i) = Max

If Max = a(i, j) Then c(i) = j

Next j

'＝＝＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝

Next i

Save

End Sub

*****第 11 套简单应用题

（1）在考生目录下有一个工程文件 sjt3.vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，

且文本框中不显示输入的字符。单击名称为 Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为 Combo1 的组合

框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的？改为正确的内容。

注意：

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

Private Sub Command1_Click( )

‘Combo1.? *** AddItem Text1.Text ***

Text1.text=””

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

‘If KeyAscii > 57 Or KeyAscii < ? Then *** 48 ***

MsgBox “请输入数字！”

‘KeyAscii=? *** 0 ***

End if

End Sub

（2）在考生目录下有一个工程文件 sjt4.vbp。该程序的功能是计算 M！+（M+1）！+（M+2）！+。。。+N！之和。窗体上有名称分别为

Text1、Text2 的两个文本框，用于接收输入的 M 和 N（要求 M<N）。单击名称为 Command1、标题为“计算”的命令按钮，计算 M！+

（M+1）！+（M+2）！+。。。+N！之和，并将计算结果显示在标签 lblResult 中。

在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。

注意：

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

Private Sub Command1_Click( )

Dim m as integer

Dim n as integer

Dim s as Long

Dim i as Integer

M=val(Text1.text)

N =val(text2.text)

S=0

‘For i=? to n *** m ***

‘t=? *** f(i) ***

‘s=s+? *** t ***

lblResult.Cation=s

End Sub

Private Function f(ByRef x as integer) As Long

Dim t as Long

t=1

For i=1 to x

‘t=? *** t*i ***

‘f=? *** t ***

End Function

*****第 11 套综合应用题

在考生目录下有一个工程文件 sjt5.vbp，用来计算勾股定理整数组合的个数。勾股定理中 3 个数的关系是：a^2+b^2=c^2。例如，3、4、5

就是一个满足条件的整数组合（注意：a，b，c 分别为 4，3，5 与分别为 3，4，5 被视为同一个组合，不应该重复计算）。编写程序，统

计三个数均为 60 以内满足上述关系的整数组合的个数，并显示在标签 Label1 中。

注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。

最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click( )

‘***** 考生编写程序开始 *****

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i = 1 To 60

For j = 1 To 60

For k = 1 To 60

If i ^ 2 = j ^ 2 + k ^ 2 Then

m = m + 1

End If

Next k

Next j

Next i

Label1.Caption = m / 2

‘***** 程序结束 *****

Save Label1

End Sub

Public Sub Save(l As Control)

Open App.Path & “\out5.txt” For Output As #1

Print #1, l.Caption

Close #1

End Sub

*****第 12 套简单应用题

（1）在考生文件夹下有一个工程文件sjt3.vbp，包含了所有控件和部分程序。程序运行时，在文

本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签Label1中；

若是大写字母，则把它的小写形式显示在Label1中，若是其他字符，则将该字符直接显示在

Label1中。输入的字母总数则显示在标签Label2中，如图所示。

要求：去掉程序中的注释符，把程序中的?改为正确的内容。

注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。

Dim n As Integer

Private Sub Text1_Change()

Dim ch As String

'　ch = Right$( ? ) ***** Text1,1 *****

If ch >= "A" And ch <= "Z" Then

　　　　Label1.Caption = LCase(ch)

　　　　n = n + 1

ElseIf ch >= "a" And ch <= "z" Then

　　　　Label1.Caption = UCase(ch)

　　　　n = n + 1

Else

'　Label1.Caption = ? ***** ch *****

End If

'　Label2.Caption = ? ***** n *****

End Sub

（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为Shape1，如图所

示。

当程序运行时，单击"开始"按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则

变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。

单击"停止"按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程

序中的注释符，把程序中的?改为正确的内容。

提示：程序中的符号常量blue_color表示蓝色的值，red_color表示红色的值。

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

Dim left0 As Integer

Const blue color =&HFF0000, red color = &HFF&

Private Sub Command1_Click()

'　Timer1.Enabled = ? ***** True *****

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Form_Load()

left0 = Shape1.Left

End Sub

Private Sub Timer1_Timer()

If Shape1.FillColor = blue color Then

　　　　If Shape1.Left > 0 Then

　　　　　 Shape1.Height = Shape1.Height + 100

　　　　　　Shape1.Width = Shape1.Width + 100

　　　　　　Shape1.Left = Shape1.Left - 50

　　　　　　Shape1.Top = Shape1.Top - 50

　　　　Else

'　Shape1.FillColor = ? ***** red_color *****

　　　　End If

If Shape1.FillColor = red color Then

　　　　If Shape1.Left < left0 Then

　　　　　　Shape1.Height = Shape1.Height - 100

　　　　　　Shape1.Width = Shape1.Width - 100

'　？ = Shape1.Left + 50 ***** Shape1.Left *****

'　？ = Shape1.Top + 50 ***** Shape1.top *****

　　　　Else

'　Shape1.FillColor = ? ***** blue_color *****

　　　　End If

End Sub

*****第 12 套综合应用题

在考生文件夹下有一个工程文件sjt5.vbp，包含了所有控件和部分程序。当程序运行时，单击"打开文件"按钮，则

弹出"打开"对话框，默认目录为考生目录，默认文件类型为"文本文件"。选中in5.txt文件(如

图1所示)，单击"打开"按钮，则把文件中的内容读入并显示在文本框(Text1)中；单击"修改

内容"按钮，则将Text1中的大写字母"E"、"N"、"T"改为小写，把小写字母"e"、"n"、"t"

改为大写；单击"保存文件"按钮，则弹出"另存为"对话框，默认文件类型为"文本文

件"，默认文件夹为考生文件夹，默认文件为"out5.txt"(如图2所示)，单击"保存"按钮，

则将Text1中修改后的内容存到out5.txt文件中。

剩余183页未读，继续阅读

zzzzl333

粉丝: 713
资源: 7万+

会员权益专享

2013年VB二级考试题库中简单应用题的详细解析

浙江省计算机VB二级机试详解.doc

2021计算机二级(VB)考试机试题库.docx

浙江省计算机二级vb上机试题题库.pdf

vb计算机二级考试历年真题 阿里云盘

vb hslcommunication.modbus.modbustcpnet

vb.net中System.Configuration.Configuration用法

spire.doc8.13无水印版

e-iceblue:spire.doc:5.4.2

vb6 vlcplugin21.input

ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("模块1")编辑错误，参数不可选

aspx.vb怎么变成aspx.cs

VB书写if...elseif

vb6 opcclient.dll使用

spire.doc破解

如何使用VB编写打开pdata.fwc的exe

vb所需的.ico图标下载

vb.net DataGridView1.HorizontalScrollBarVisible = True无法设置水平滚动条

vb dstable.Rows.Add

vb.net DataGridView for...next循环获取一行的文本的多种方法

vb6cli.exe 怎么用使用教程

会员权益专享

最新资源

vb计算机二级考试历年真题阿里云盘